#!/usr/bin/perl use strict; use warnings; $| = 1; # URL der Homepage # Formulare werden mit
# angesprochen. my $HOMEURL = "http://www.netzmafia.de"; # der Pfad des Programms selbst wird automatisch ermittelt my $script_url = $ENV{'SCRIPT_NAME'}; # Pfad zum wget-Programm my $wget = '/usr/bin/wget'; # global: Formulardaten my %FORM = (); my ($url, @result, $temp); # auf jeden Fall Abbruch nach 1 Minute $SIG{'ALRM'} =\&alarm_handle; alarm(60); # Header generieren InsertHeader('HTTP-Header'); # Formulareingabe parsen ParseForm(); if (defined($FORM{'URL'})) { # Antwort vom Formular process_request($FORM{'URL'}); # Vermeiden einer Denial-of-Service-Attacke sleep(2); } else # leerer Aufruf, Formular anzeigen { show_form(); } # und Schluss ... InsertTrailer(); sub show_form { # Leeres Formular ausgeben print qq~
Url eingeben: http://
 
~; } sub process_request { $url = shift; # "http://" ergaenzen, falls nicht schon vorhanden $url = "http://" . $url unless ($url =~ m|http://|); # alles entfernen, was nicht zu einer URL gehoert chomp($url); $url =~ s/ \-.*?(\W|\S)//sg; $url =~ s/;//sg; # Pfad etc. entfernen $url =~ m#http://(.*?)(/*$|/.*$)#; $url = $1; print "

Header von $url

\n"; # wget aufrufen und Resultat ausgeben @result = `$wget -A html,htm -T 5 -O /dev/null -S $url 2>&1`; # ersten beiden Zeilen entfernen (wget-Status) shift(@result); shift(@result); # den Rest ausgeben foreach $temp (@result) { # Leerzeilen ueberspringen last if ($temp =~ m/^$/); print "$temp
"; } } sub alarm_handle { # Unterprogramm fuer Timeout, mit Fehler beenden alarm(0); print "

Fehler

", "\n"; print "Zeit\überschreitung, Abbruch!", "\n"; print "", "\n"; exit 0; } sub InsertHeader { # HTTP-Header und HTML-Vorspann ausgeben my ($htmltitle) = @_; print "Content-type: text/html\n\n"; print "\n\n"; print " $htmltitle \n\n"; print "\n"; } sub InsertTrailer { # HTML-Nachspann ausgeben print "\n\n"; } sub ParseForm { my ($buffer, @pairs, $pair, $name, $value); # Read in text if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { # Name-Wert-Paare trennen ($name, $value) = split(/=/, $pair); # Leerzeichen wieder einsetzen $value =~ tr/+/ /; # URL-codierte Zeichen (%xx) ersetzen $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # im hash speichern if (defined $FORM{$name}) # vermutlich checkbox { $FORM{$name} = $FORM{$name} . ", " . $value; } else { $FORM{$name} = $value; } } }