40 |
|
|
41 |
use config; |
use config; |
42 |
|
|
43 |
|
$SIG{CHLD}='IGNORE'; |
44 |
|
|
45 |
sub tftp_request { |
sub tftp_request { |
46 |
my $request = shift; |
my $request = shift; |
47 |
|
|
48 |
warn 'request: ', dump( $request ) if $debug; |
warn 'request: ', dump( $request ) if $debug; |
49 |
|
|
50 |
|
if ( my $pid = fork ) { |
51 |
|
# parent |
52 |
|
warn "# forked $pid\n"; |
53 |
|
return; |
54 |
|
} |
55 |
|
|
56 |
|
|
57 |
my $ip = $request->{_REQUEST_}->{PeerAddr}; |
my $ip = $request->{_REQUEST_}->{PeerAddr}; |
58 |
config::for_ip( $ip ); |
config::for_ip( $ip ); |
59 |
|
|
87 |
store::audit( $opcode, $audit ); |
store::audit( $opcode, $audit ); |
88 |
} |
} |
89 |
|
|
90 |
|
exit 0; |
91 |
} |
} |
92 |
|
|
93 |
use server; |
use server; |