#!C:\Perl\bin\Perl.exe print "Content-type:text/html\n\n"; use CGI; use CGI::Carp qw(fatalsToBrowser); use LWP::Simple; use XML::Simple; use XML::Parser; use XML::LibXML; my $cgi = new CGI; my $var = CGI:aram('ip'); my $url1 = 'https://www.xxyyzz.de/'; ### url my $uri = "$url1?ref=$var& save_report=yes" ; #### es gibt eine HTML-Seite mit einem Inputfeld nach der eingabe des Referenzes # wird in der URL # übermittelt und ganze URL an den Server des Hertsteller geleitet, so dass der server anhand des eingegeben Referenz # ein Report als XMl zur Verfügung stellt. print "Location: $uri\n\n"; open(KIRSCHE,">>c:/Programme/Apache/cgi-bin/grab.xml"); ####XML Ausgabe soll in dieser Datei gespeichert select(KIRSCHE); print KIRSCHE $doc; select(STDOUT); close(KIRSCHE); my $zeiger = new XML::Parser (); ######die gespeicherte Datei parsen $zeiger->setHandlers ( Start => \&anfang, End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("grab.xml"); print ""; sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print "
$inhalt
"; } sub ende { %watnu2=("SCAN"=>"","KEY"=> "","IP"=>"","OS"=>"","NETBIOS_HOSTNAME"=>""); ($wert_des_zeigers,$endtag) = @_; print "$watnu2{$endtag}"; } sub anfang { %watnu1=("SCAN"=>"","KEY"=> "","IP"=>"","OS"=>"","NETBIOS_HOSTNAME"=>""); $wert_des_zeigers = shift; $starttag=shift; print $watnu1{$starttag}; print "\n"; }