hallo
hab hier folgendes problem...
#!perl -w use CGI qw(:standard escapeHTML); #use CGI::Carp qw(fatalsToBrowser); use diagnostics; $mailprog= "/usr/lib/sendmail" ; $recipient= "paeann@web.de" ; open(MAIL, "|$mailprog $recipient") || &HTMLdie("Couldn't send the mail (couldn't run $mailprog).") ; $ENV{'HTTP_REFERER'} || ($ENV{'HTTP_REFERER'}= "your Web site") ; print MAIL "Subject: Form data from the Web\n\n","The following data was entered at $ENV{'HTTP_REFERER'}:\n\n" ; if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } @nvpairs = split(/&/,$buffer); foreach $pair ( @nvpairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if (exists $in{$name}){ $in{$name} .= "\n$value"; } else{ $in{$name} = $value; } } print header(), start_html("gesendete Parameter"),"<h2>Folgende Daten wurden gesendet:<hr></h2>"; foreach (keys %in){ print "<b>$_</b><br>$in{$_}<hr><p>"; print MAIL "$_ \n$in{$_}\n\n"; } print end_html(); close(MAIL); exit;
dieses script funktioniert ganz wunderbar under linux(debina/apache) hab das für jemanden geschrieben bei dem ich nicht wusste, was für einen server er denn einsetzt, ist denn wohl nen MS-Server :-(, denn es funktioniert nicht.... kann mir vielleicht jemand darueber auskunft geben, was denn beim IIS an diesem scrip geaendert werden muss?
danke
Rico