first verision which boots virtual machine logging using new CouchDB::audit code

[pxelator] / lib / PXElator / CouchDB.pm

diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm
index 2b3357f..3396eda 100644 (file)
--- a/lib/PXElator/CouchDB.pm
+++ b/lib/PXElator/CouchDB.pm
@@ -74,7 +74,6 @@ sub get {
 
 sub put {
        my ($self, $url, $json) = @_;
-       warn "put $url ",dump($json);
 
        if ( ! defined $json->{_rev} ) {
                my $old = eval { $self->get( $url )->{_rev} };
@@ -103,18 +102,22 @@ sub audit {
        $url =~ s/-\S+//g;
        $url =~ s/\W+/-/g;
 
-       my ( $package, undef, $line, $sub ) = caller(1);
+       my ( $package, $file, $line, $sub ) = caller(1);
        ( $package, undef, $line ) = caller(0) if $package eq 'main';
 
+       my $t = time();
+
        $data->{x_meta} = {
-               'ident' => [ @_ ],
-               'time' => time(),
+               'time' => $t,
                'package' => $package,
                'line' => $line,
                'sub' => $sub,
        };
+       $data->{'ident'} = [ @_ ] if @_;
+
+       warn 'audit ', dump($data), "at $file +$line\n";
 
-       $audit->put( "pxelator/$package.$url", $data );
+       $audit->put( "pxelator/$t.$package.$url", $data );
 }
 
 1;