serverstatus-anzeigen in html-seiten u html-forum

MANX · 31.05.2001, 10:25

Hallo!

Hab' das ungefähr so gemeint:
http://miss.wu-wien.ac.at:81/cgi-bin/j9451369/ping.pl

der Link wird nicht lange funktionieren, drum das ganze script:

#!/usr/local/bin/perl

# die zu pingende IP-Adresse
$ip_address="195.3.96.67";

# wir wollen 4 Pakete senden
$ausgabe = `ping -c 4 $ip_address`;

print "Content-type: text/html", "\n\n";

print "<HTML>", "\n";
print "<HEAD><TITLE>About this Server</TITLE></HEAD>", "\n";
print "<BODY><H1>About this Server</H1>", "\n";
print "<HR><PRE>";
print "Server Name: ", $ENV{'SERVER_NAME'}, "
", "\n";
print "Running on Port: ", $ENV{'SERVER_PORT'}, "
", "\n";
print "Server Software: ", $ENV{'SERVER_SOFTWARE'}, "
", "\n";
print "Server Protocol: ", $ENV{'SERVER_PROTOCOL'}, "
", "\n";
print "CGI Revision: ", $ENV{'GATEWAY_INTERFACE'}, "
", "\n";
print "Remote host: ", $ENV{'REMOTE_HOST'}, "
", "\n";
print "Remote address: ", $ENV{'REMOTE_ADDR'}, "
", "\n";
print "Browser: ", $ENV{'HTTP_USER_AGENT'}, "
", "\n";

print "Ping zum DNS von A-Online:\n\n";
print "$ausgabe\n";

print "<HR></PRE>", "\n";
print "</BODY></HTML>", "\n";

exit (0);

MfG

MANX

31.05.2001, 10:25	#7
MANX Inventar Registriert seit: 27.02.2001 Beiträge: 1.967	Nachtrag! Hallo! Hab' das ungefähr so gemeint: http://miss.wu-wien.ac.at:81/cgi-bin/j9451369/ping.pl der Link wird nicht lange funktionieren, drum das ganze script: #!/usr/local/bin/perl # die zu pingende IP-Adresse $ip_address="195.3.96.67"; # wir wollen 4 Pakete senden $ausgabe = `ping -c 4 $ip_address`; print "Content-type: text/html", "\n\n"; print "<HTML>", "\n"; print "<HEAD><TITLE>About this Server</TITLE></HEAD>", "\n"; print "<BODY><H1>About this Server</H1>", "\n"; print "<HR><PRE>"; print "Server Name: ", $ENV{'SERVER_NAME'}, " ", "\n"; print "Running on Port: ", $ENV{'SERVER_PORT'}, " ", "\n"; print "Server Software: ", $ENV{'SERVER_SOFTWARE'}, " ", "\n"; print "Server Protocol: ", $ENV{'SERVER_PROTOCOL'}, " ", "\n"; print "CGI Revision: ", $ENV{'GATEWAY_INTERFACE'}, " ", "\n"; print "Remote host: ", $ENV{'REMOTE_HOST'}, " ", "\n"; print "Remote address: ", $ENV{'REMOTE_ADDR'}, " ", "\n"; print "Browser: ", $ENV{'HTTP_USER_AGENT'}, " ", "\n"; print "Ping zum DNS von A-Online:\n\n"; print "$ausgabe\n"; print "<HR></PRE>", "\n"; print "</BODY></HTML>", "\n"; exit (0); MfG MANX

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)