Network Tools

#!/usr/bin/perl $| = 1; use strict; use warnings; #------------------- Beginn Konfiguration ------------------------ # Es wird ein Hash von Kommandos angelegt, der die Zuordnung # von Namen zu einen Programmpfad festlegt. # # Beginnt der Name mit 'P-', ist ein Parameter zwingend # erforderlich, # beginnt der Name mit 'N-' ist ein optionaler Parameter # möglich, # beginnt der Name mit 'R-', darf kein Parameter angegeben sein. # # Wurde kein Hostname (target) angegeben, verwendet das Programm # die Environment-Variable 'REMOTE_ADDR' my %commands = ( 'N-PING', '/bin/ping -c 5 -w 5 ', 'N-TRACE', '/usr/sbin/traceroute ', 'P-LOOK', '/usr/bin/host -a ', 'P-LOOKA', '/usr/bin/host -l -v -t any ', 'R-UP', '/usr/bin/uptime' ); #--------------------- Ende Konfiguration ------------------------ my $PROGRAMM = ''; # Programmname (1. Wert des Hashes %commands) my $ZIELHOST = ''; # Eingabeparameter my $temp = ''; # Hilfvariable my $i = 0; # Zaehlvariable my $content = ''; # Variablen zur Aufbereitung der CGI-Parameter my $key = ''; my %FORM = (); # Formulardaten # Abbruch nach spätestens 60 Sekunden # (wichtig bei ping/traceroute $SIG{'ALRM'} =\&alarm_handle; alarm(60); # Header ausgeben print "Content-type: text/html\n\n"; print "Network Tools", "\n"; print "", "\n"; print "

Netzmafia Network Tools

", "\n"; # Formulareingabpen pruefen ParseForm(); if (defined($FORM{'program'})) { # Antwort vom Formular DoIt(); # Vermeiden einer Denial-of-Service-Attacke sleep(2); } else # leerer Aufruf, Formular anzeigen { ShowForm(); } print "

***** FERTIG *****

\n\n"; sub DoIt { $PROGRAMM = $FORM{'program'}; # gibt's das Programm? unless (defined($commands{$PROGRAMM})) { print "

Fehler

", "\n"; print "Kein Kommando angegeben!\n"; print "", "\n"; exit 0; } # Parameterpruefung # 1. Eingabe auf zulaessige Zeichen beschraenken if ($FORM{'target'} =~ /^([-\@\w.]+)$/ || $FORM{'target'} eq "") { $ZIELHOST = $FORM{'target'}; } else { print "Unzul\ässige Zeichen im Parameter. Abbruch!"; print "", "\n"; exit 0; } # 2. Laengenueberpruefung der Eingabe if (length($ZIELHOST) > 255) { print "Parameter zu lang (mehr als 255 Zeichen). Abbruch!"; print "", "\n"; exit 0; } # 3. Parameter erlaubt/notwendig/verboten? if ($ZIELHOST eq "") { if ($PROGRAMM =~ /^P-/) { print "

Fehler

", "\n"; print "Das Kommando ben\ötigt eine Angabe im Eingabefeld!\n"; print "", "\n"; exit 0; } else { $ZIELHOST = $ENV{'REMOTE_ADDR'}; } # Default } if ($PROGRAMM =~ /^R-/) # Parameter loeschen { $ZIELHOST = ""; } $temp = $commands{$PROGRAMM}; # Programmnamen aufbereiten fuer Ausgabe --> Pfad weg $temp =~ s/^..*\///; print "Bitte etwas Geduld, bis die Daten ermittelt sind.

", "\n"; print "Ergebnisse von Kommando: $temp", "\n"; print " $ZIELHOST\n" if ($ZIELHOST ne ""); print "

\n";
  open (INP, "$commands{$PROGRAMM} $ZIELHOST |");
  print while ();
  close (INP);
  print "

\n"; } sub ShowForm { print qq~ ~; } 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; } } } # Unterprogramm fuer Timeout # sub alarm_handle { alarm(0); print "

Fehler

", "\n"; print "Zeit\überschreitung, Abbruch!", "\n"; print "", "\n"; exit 0; }

	Ping auf einen Host oder von hier zu Ihrem Rechner, falls Sie nichts eingeben.
	Traceroute von hier zu einem Host oder von hier zu Ihrem Rechner, falls Sie nichts eingeben.
	Einzelhost-Nameserverabfrage mit dem Programm "host". Bitte Hostname oder IP-Nummer angeben.
	Nameserverabfrage einer kompletten Domain mit dem Programm "host". Vorsicht! Das kann unter Umständen sehr viel Output ergeben. Bitte Domainnamen angeben.
	Uptime und Load.
Hostadresse: