#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use HTTP::Daemon;

$daemon = new HTTP::Daemon(LocalPort => 7000);
die "HTTP::Daemon failed" unless defined $daemon;

print "Please contact me at: <URL:", $daemon->url(), ">\n";

while ($c = $daemon->accept()) {
    $r = $c->get_request();
    if ($r) {
        print $r->as_string();
        $c->autoflush();
        while (<STDIN>) {
          last if $_ eq ".\n";
          print $c $_;
        }
        print "\nEOF\n";
        $r = undef;
    }
    $c->close();
    $c = undef;
}