/[pxelator]/lib/PXElator/shell.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/shell.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 204 by dpavlin, Wed Aug 12 19:41:24 2009 UTC revision 207 by dpavlin, Wed Aug 12 22:56:45 2009 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  use autodie;  use autodie;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8    use CouchDB;
9    
10  our $command;  our $command;
11    
# Line 46  warn "command $command key $key"; Line 47  warn "command $command key $key";
47                  if ( $key ) {                  if ( $key ) {
48                          my $k = $cols[$key - 1];                          my $k = $cols[$key - 1];
49                          $info->{$k} = $hash;                          $info->{$k} = $hash;
50                            CouchDB::audit( $command, $k, $hash );
51                  } else {                  } else {
52                          push @$info, $hash;                          push @$info, $hash;
53                  }                  }
Legend:
Removed from v.204  
changed lines
  Added in v.207
  ViewVC Help
Powered by ViewVC 1.1.26