added back refresh, this time in as server->refresh

diff --git a/lib/PXElator/dhcpd.pm b/lib/PXElator/dhcpd.pm
index 5c93504..0a94af7 100644 (file)
--- a/lib/PXElator/dhcpd.pm
+++ b/lib/PXElator/dhcpd.pm
@@ -82,6 +82,8 @@ our $transaction = 0; # FIXME predictible transaction numbers
 sub process_packet {
        my $sock = shift;
 
+       server->refresh;
+
        my $buf;
        $sock->recv($buf, 1024);
        my $size = 'empty';

diff --git a/lib/PXElator/dnsd.pm b/lib/PXElator/dnsd.pm
index 4a60ba6..98269d8 100644 (file)
--- a/lib/PXElator/dnsd.pm
+++ b/lib/PXElator/dnsd.pm
@@ -20,6 +20,8 @@ sub reply_handler {
        my ($qname, $qclass, $qtype, $peerhost,$query,$conn) = @_;
        my ($rcode, @ans, @auth, @add);
 
+       server->refresh;
+
        print "Received query from $peerhost to ". $conn->{"sockhost"}. "\n";
        $query->print;
 

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index d0d5af2..0aeb723 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -136,6 +136,8 @@ my $redirect = qq|HTTP/1.1 302 Found\r\nContent-type: text/html\r\nLocation: $ur
 sub get_request {
        my ( $client, $path, $param ) = @_;
 
+       server->refresh;
+
        warn "get_request $path ", $param ? dump( $param ) : '', "\n";
 
        if ( my $found = static( $client,$path ) ) {

diff --git a/lib/PXElator/server.pm b/lib/PXElator/server.pm
index 7da02e7..5af7169 100644 (file)
--- a/lib/PXElator/server.pm
+++ b/lib/PXElator/server.pm
@@ -4,6 +4,7 @@ use warnings;
 use strict;
 
 use Module::Refresh;
+sub refresh { Module::Refresh->refresh };
 
 our $ip      = '172.16.10.1';
 our $netmask = '255.255.255.0';

diff --git a/lib/PXElator/tftpd.pm b/lib/PXElator/tftpd.pm
index 8a8212f..54bf5dd 100644 (file)
--- a/lib/PXElator/tftpd.pm
+++ b/lib/PXElator/tftpd.pm
@@ -39,6 +39,8 @@ sub transfer_status {
 sub tftp_request {
        my $request = shift;
 
+       server->refresh;
+
        warn 'request: ', dump( $request ) if $debug;
 
        config::for_ip();