#!/usr/bin/perl

use HTTP::Daemon;
use HTTP::Status;
use strict;
use CGI qw/:standard/;

my $My_IP = 'localhost';
my $Name = "HTTP Server";

my $d = HTTP::Daemon->new(
        LocalHost => $My_IP,
        LocalPort => 3002,
);
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(CGI::start_html(-title=>' Anzeige '));
                        $rs->add_content(CGI::start_form);
                        $rs->add_content("Nr: " . CGI::textfield(-name=>'Nummer',-size=>30) . "ID: " . CGI::textfield(-name=>'Zuordnung', -size=>30));
                        $rs->add_content(CGI::submit(-value=>'Zuweisen') . CGI::submit(-value=>'Löschen') );
                        $rs->add_content(CGI::end_form . CGI::hr . CGI::end_html);
                        $c->send_response($rs);
                }
                else {
                        $c->send_error(RC_FORBIDDEN)
                }
        }
        $c->close;
        undef($c);
}