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

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

revision 110 by dpavlin, Sun Aug 2 02:04:00 2009 UTC revision 118 by dpavlin, Mon Aug 3 08:52:32 2009 UTC
# Line 19  use IO::Socket::INET; Line 19  use IO::Socket::INET;
19  use File::Slurp;  use File::Slurp;
20  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
21  use Net::Ping;  use Net::Ping;
 use Module::Refresh;  
22    
23  use lib '..';  use lib '..';
24  use Net::DHCP::Packet;  use Net::DHCP::Packet;
# Line 124  sub process_packet { Line 123  sub process_packet {
123                  Giaddr  => $dhcp->giaddr(),                  Giaddr  => $dhcp->giaddr(),
124                  Chaddr  => $dhcp->chaddr(),                  Chaddr  => $dhcp->chaddr(),
125                  File    => $file,                  File    => $file,
126    
127                    DHO_PXELINUX_MAGIC()       => 0xF100747E,
128                    DHO_PXELINUX_CONFIG_FILE() => 'pxelinux.cfg/default',
129                    DHO_PXELINUX_PATH_PREFIX() => 'live-helper/tftpboot/',
130                    DHO_PXELINUX_REBOOT_TIME() => 5, # default: 300 s
131          };          };
132    
133          my $messagetype = $dhcp->getOptionValue(DHO_DHCP_MESSAGE_TYPE());          my $messagetype = $dhcp->getOptionValue(DHO_DHCP_MESSAGE_TYPE());
# Line 193  sub start { Line 197  sub start {
197          print "DHCP listen on ",$sock->sockhost,":",$sock->sockport,"\n";          print "DHCP listen on ",$sock->sockhost,":",$sock->sockport,"\n";
198    
199          while (1) {          while (1) {
                 Module::Refresh->refresh;  
200                  process_packet $sock;                  process_packet $sock;
201          }          }
202  }  }
Legend:
Removed from v.110  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.26