Hallo zusammen,ich habe folgendes Skript für einen Web-Server:
Perl:
01: #!/usr/bin/perl
02:
03: use HTTP::Daemon;
04: use HTTP::Status;
05: use strict;
06:
07: my $My_IP = 'localhost';
08: my $Name = "HTTP Server";
09:
10: my $d = HTTP::Daemon->new(
11: LocalHost => $My_IP,
12: LocalPort => 3003,
13: );
14: die "$Name: Socket konnte nicht erstellt werden - Grund: $!\n" unless $d;
15:
16: print " $Name läuft auf : <", $d->url, ">\n";
17: while (my $c = $d->accept) {
18: while (my $r = $c->get_request) {
19: if ($r->method eq 'GET') {
20: my $rs = new HTTP::Response(RC_OK);
21: $rs->content("<HTML>");
22: $rs->add_content("<HEAD> <TITLE> Anzeige </TITLE> </HEAD>");
23: $rs->add_content("<BODY>");
24: $rs->add_content("Nr: <input name=Nummer size 30> ID: <input name=Zuordnung size 30> ");
25: $rs->add_content("<input type=submit value=Zuweisen> <input type=submit value=Löschen> </form> <hr>");
26: $rs->add_content("</BODY> </HTML>");
27: $c->send_response($rs);
28: }
29: else {
30: $c->send_error(RC_FORBIDDEN)
31: }
32: }
33: $c->close;
34: undef($c);
35: }
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
Datum: 24.11.2008-11:08
Webprogrammierung mit Perl
