--- lib/PXElator/shell.pm 2009/08/12 19:41:24 204 +++ lib/PXElator/shell.pm 2009/08/12 22:56:45 207 @@ -5,6 +5,7 @@ use autodie; use Data::Dump qw/dump/; +use CouchDB; our $command; @@ -46,6 +47,7 @@ if ( $key ) { my $k = $cols[$key - 1]; $info->{$k} = $hash; + CouchDB::audit( $command, $k, $hash ); } else { push @$info, $hash; }