so that it will run properly under tcpd/inetd. Right now it just barfs. Here's the reportsock.pl code:
#!/usr/bin/perl
use HTTP::Daemon;
use HTTP::Status;
my $d = new HTTP::Daemon
LocalAddr => 'xx.xx.xx.xx',
LocalPort => 44000;
print "Starting: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
my $r = $c->get_request;
print "Got connection\n";
$c->send_file_response("/tmp/reportsock");
$c->close;
undef($c);
}
It's a very long time since I messed with this stuff...any idea how to get this working?
KS |
