/[pxelator]/lib/PXElator/tftpd.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/tftpd.pm

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

revision 208 by dpavlin, Wed Aug 12 23:59:01 2009 UTC revision 472 by dpavlin, Tue Jan 5 00:25:34 2010 UTC
# Line 43  use config; Line 43  use config;
43  sub tftp_request {  sub tftp_request {
44          my $request = shift;          my $request = shift;
45    
         server->refresh;  
   
46          warn 'request: ', dump( $request ) if $debug;          warn 'request: ', dump( $request ) if $debug;
47    
48          my $ip = $request->{_REQUEST_}->{PeerAddr};          my $ip = $request->{_REQUEST_}->{PeerAddr};
# Line 61  sub tftp_request { Line 59  sub tftp_request {
59          my $audit = {          my $audit = {
60                  ip => $ip,                  ip => $ip,
61                  opcode => $opcode,                  opcode => $opcode,
62                  file => $file,                  path => $file,
63                  state => 'start',                  state => 'start',
64          };          };
65          CouchDB::audit( $opcode, $audit );          CouchDB::audit( $opcode, $audit );
# Line 78  sub tftp_request { Line 76  sub tftp_request {
76                  $audit->{state} = 'error';                  $audit->{state} = 'error';
77                  $audit->{error} = Net::TFTPd->error;                  $audit->{error} = Net::TFTPd->error;
78                  CouchDB::audit( $opcode, $audit );                  CouchDB::audit( $opcode, $audit );
                 $request->processRQ();  
79          }          }
80    
81  }  }
# Line 112  sub start { Line 109  sub start {
109    
110                  CallBack => \&transfer_status,                  CallBack => \&transfer_status,
111  #               BlkSize => 8192,  #               BlkSize => 8192,
112  #               BlkSize => 512,                  BlkSize => 512,         # Dell's RAC doesn't like bigger packets
113                  BlkSize => 1456,        # IBM GE seems to be picky  #               BlkSize => 1456,        # IBM GE seems to be picky
114                  Debug => 99,                  Debug => 99,
115                  %params, # merge user parameters                  %params, # merge user parameters
116                  _UDPSERVER_ => $udpserver,                  _UDPSERVER_ => $udpserver,
# Line 132  sub start { Line 129  sub start {
129    
130                  # wait for any request (RRQ or WRQ)                  # wait for any request (RRQ or WRQ)
131                  if(my $request = $listener->waitRQ()) {                  if(my $request = $listener->waitRQ()) {
132                            server->refresh;
133                          tftp_request $request;                          tftp_request $request;
134                  } elsif ( my $error = Net::TFTPd->error ) {                  } elsif ( my $error = Net::TFTPd->error ) {
135                          warn $error;                          warn $error;
Legend:
Removed from v.208  
changed lines
  Added in v.472
  ViewVC Help
Powered by ViewVC 1.1.26