Parent Directory | Revision Log | 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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |