in reply to CGI Question . . .
So just put a few minimal perl distributions on the disk (one per platform you want to support) and put a script similar to the following (adopted from HTTP::Daemon pod):
then you make a few ways to start the server (autorun on win32, ...) and you are up and away.use HTTP::Daemon; use HTTP::Status; my $d = new HTTP::Daemon LocalPort => 9999; print "CDRom webserver running on: ", $d->url, "\n"; while (my $c = $d->accept) { while (my $r = $c->get_request) { if ($r->method eq 'GET') { # here you do the stuff # ... } else { $c->send_error(RC_FORBIDDEN) } } $c->close; undef($c); }
think perl for perl is the most elevated
your humble brother
/dh
|
|---|