1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use strict;
use warnings;
package Listener;
use Net::Daemon;
use base 'Net::Daemon';
use MyDemoServer;
sub Run {
my $self = shift;
my $handler = MyDemoServer->new($self->{socket});
while (1) {
my $finished = $handler->handle;
if ($finished) {
# we have finished with the socket
$self->{socket}->close;
return;
}
}
}
package main;
my $listener = Listener->new({
localport => 8080,
logfile => 'STDERR',
pidfile => 'none',
mode => 'fork'
});
$listener->Bind;
1;
|
