Rückgabewert von Web-Server - #116400 (Perl/CGI)

Gast Gast

2008-11-19 16:12

Hallo zusammen,

ich habe folgendes Skript für einen Web-Server:

Code (perl): (dl )

#!/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("<HTML>");
                        $rs->add_content("<HEAD> <TITLE> Anzeige </TITLE>  </HEAD>");
                        $rs->add_content("<BODY>");
                        $rs->add_content("Nr: <input name=Nummer size 30> ID: <input name=Zuordnung size 30>  ");
                        $rs->add_content("<input type=submit value=Zuweisen>  <input type=submit value=Löschen> </form> <hr>");
                        $rs->add_content("</BODY> </HTML>");
                        $c->send_response($rs);
                }
                else {
                        $c->send_error(RC_FORBIDDEN)
                }
        }
        $c->close;
        undef($c);
}

Jetzt würde ich gerne die Rückgaben über die Buttons "Zuweisen" und "Löschen" wieder zurück in mein Skript bekommen um diese dort weiter zu verarbeiten. Ist dies möglich? Nach Möglichkeit ohne CGI.

Gruß Stefan