use Net::TFTPd 0.03 qw(%OPCODES);
use IO::Socket::INET;
use Data::Dump qw/dump/;
-use CouchDB;
+use store;
use server;
sub tftp_request {
my $request = shift;
- server->refresh;
-
warn 'request: ', dump( $request ) if $debug;
my $ip = $request->{_REQUEST_}->{PeerAddr};
my $audit = {
ip => $ip,
opcode => $opcode,
- file => $file,
+ 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 );
- $request->processRQ();
+ store::audit( $opcode, $audit );
}
}
CallBack => \&transfer_status,
# BlkSize => 8192,
-# BlkSize => 512,
- BlkSize => 1456, # IBM GE seems to be picky
+ BlkSize => 512, # Dell's RAC doesn't like bigger packets
+# BlkSize => 1456, # IBM GE seems to be picky
Debug => 99,
%params, # merge user parameters
_UDPSERVER_ => $udpserver,
warn 'listener: ',dump( $listener ) if $debug;
- CouchDB::audit( 'start', {
+ store::audit( 'start', {
addr => $listener->{LocalAddr},
port => $listener->{LocalPort},
timeout => $listener->{Timeout},
# wait for any request (RRQ or WRQ)
if(my $request = $listener->waitRQ()) {
+ server->refresh;
tftp_request $request;
} elsif ( my $error = Net::TFTPd->error ) {
warn $error;