Frank Schönmann: CGI/PERL

Beitrag lesen

SELF-Forum

CGI/PERL

Frank Schönmann
– Informationen zu den Bewertungsregeln

Kennt jemand ein CGlScript in Perl, mit dem ich ein Formular uebergebe und dieses dann als HTML-File in eine Datei oder zu einer Mail-Adresse weiterschicken kann?

Es sollte kein so großes Problem sein, sowas selbst zu schreiben. So in etwa sollte es wohl funktionieren (ungetestet):

=== cut ===
#!/usr/bin/perl

Daten lassen sich per POST und GET übermitteln

if($ENV{'REQUEST_METHOD'} eq 'GET')
{
  $EnvDaten = $ENV{'QUERY_STRING'}
}
else
{
  read(STDIN, $EnvDaten, $ENV{'CONTENT_LENGTH'});
}

@Daten = split(/&/, $EnvDaten);

open MAIL "|/usr/lib/sendmail -t") || die;
print MAIL "To: name@domain.de\n";
print MAIL "From: unbekannt\n";
print MAIL "Subject: Feedback-Formular\n\n";
foreach $data (@Daten)
{
  @value = split(/=/, $data);
  $value[1] = &correct($value[1]);
  print MAIL "$value[0] = $value[1]";
}
close MAIL;

print "Content-Type: text/html\n\n";
print '<html>hier kommt die ausgabe rein</html>';

wandelt die Sonderzeichen (%XY) in lesbare Zeichen um

sub correct
{
  my $value = shift @_;

$value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/<!--(.|\n)*-->//g;

return $value;
}
=== cut ===

Ich hoffe, das funktioniert jetzt so :)

bye, Frank!

Beitrag melden
–
Informationen zu den Bewertungsregeln