#!/usr/bin/perl
use HTTP::Daemon;
use HTTP::Status;
use strict;
my $My_IP = 'localhost';
my $Name = "HTTP Server";
my $d = HTTP::Daemon->new(
LocalHost => $My_IP,
LocalPort => 3003,
);
die "$Name: Socket konnte nicht erstellt werden - Grund: $!\n" unless $d;
print " $Name läuft auf : <", $d->url, ">\n";
while (my $c = $d->accept) {
while (my $r = $c->get_request) {
if ($r->method eq 'GET') {
my $rs = new HTTP::Response(RC_OK);
$rs->content("");
$rs->add_content(" Anzeige ");
$rs->add_content("");
$rs->add_content("Nr: ID: ");
$rs->add_content("
");
$rs->add_content(" ");
$c->send_response($rs);
}
else {
$c->send_error(RC_FORBIDDEN)
}
}
$c->close;
undef($c);
}