use Net::TFTPd 0.03 qw(%OPCODES);
use IO::Socket::INET;
use Data::Dump qw/dump/;
-use CouchDB;
+use store;
use server;
path => $file,
state => 'start',
};
- CouchDB::audit( $opcode, $audit );
+ store::audit( $opcode, $audit );
progress_bar::start;
my $size = -s "$dir/$file";
$audit->{state} = 'finish';
$audit->{size} = $size;
- CouchDB::audit( $opcode, $audit );
+ store::audit( $opcode, $audit );
} else {
$audit->{state} = 'error';
$audit->{error} = Net::TFTPd->error;
- CouchDB::audit( $opcode, $audit );
+ store::audit( $opcode, $audit );
}
}
warn 'listener: ',dump( $listener ) if $debug;
- CouchDB::audit( 'start', {
+ store::audit( 'start', {
addr => $listener->{LocalAddr},
port => $listener->{LocalPort},
timeout => $listener->{Timeout},