/[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 138 by dpavlin, Tue Aug 4 15:25:09 2009 UTC revision 141 by dpavlin, Tue Aug 4 17:29:59 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5    
6  use Net::TFTPd 0.03 qw(%OPCODES);  use Net::TFTPd 0.03 qw(%OPCODES);
7    use IO::Socket::INET;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  use server;  use server;
# Line 74  sub start { Line 75  sub start {
75    
76          warn 'start';          warn 'start';
77    
78          my $listener = Net::TFTPd->new(          # XXX we need to setup listener ourselfs because we need Reuse
79            my %params = (
80                    Proto => 'udp',
81    #               LocalAddr => $server::ip,
82    #               LocalAddr => '0.0.0.0',
83                    LocalPort => 69,
84                    Reuse => 1,
85            );
86    
87            my $udpserver = IO::Socket::INET->new(%params);
88            die "can't start server ",dump( \%params ), " $!" unless $udpserver;
89    
90            my $listener = bless {
91                  RootDir => $dir,                  RootDir => $dir,
92                  Writable => 0,  
93                  Timeout => 3600,                  ACKtimeout  => 4,
94                    ACKretries  => 4,
95                    Readable    => 1,
96                    Writable    => 0,
97                    Timeout => 3600,
98    
99                  CallBack => \&transfer_status,                  CallBack => \&transfer_status,
 #               LocalAddr => $server::ip,  
                 LocalAddr => '0.0.0.0',  
100  #               BlkSize => 8192,  #               BlkSize => 8192,
101  #               BlkSize => 512,  #               BlkSize => 512,
102                  BlkSize => 1456,        # IBM GE seems to be picky                  BlkSize => 1456,        # IBM GE seems to be picky
103                  Debug => 99,                  Debug => 99,
104          ) || die Net::TFTPd->error;                  %params, # merge user parameters
105                    _UDPSERVER_ => $udpserver,
106            }, 'Net::TFTPd';
107    
108          warn 'listener: ',dump( $listener ) if $debug;          warn 'listener: ',dump( $listener ) if $debug;
109    
Legend:
Removed from v.138  
changed lines
  Added in v.141
  ViewVC Help
Powered by ViewVC 1.1.26