#!/usr/local/bin/perl # skvallerping version 1.0 # Låter besökare på din webbsida se om du är på jobbet. # Kräver att du på jobbet har en dator med eget IP-nummer # som är på när du jobbar, och som du stänger av när du # går hem. Datorn måste svara på ett ping som kommer från # din webbserver, dvs brandväggar etc måste vara öppna # för detta. Programmet är anpassat för den implementation # av ping som ingår i Solaris, och som svarar " # is alive". Har du en annan version av ping på din server # så måste du skriva om en del av denna kod. # Av Anders Hultman 1995. # Distribueras under GNU General Public Licence. # Programmet öppnar ett shell och det "pingar" din dator. # Ändra 127.0.0.1 till din dators IP-adress. # Pinget är satt till 5 sekunders time-out. $ping = `/usr/sbin/ping 127.0.0.1 5`; chop($ping); # Programmet börjar rita upp sidan. Ändra denna del så # att sidan ser ut som du vill ha den. print "Content-type: text/html\n\n"; print "\n\n"; print "Är jag här?\n"; print '\n',"\n"; print '',"\n"; # Byt ut IP-adressen även här. if ($ping eq "127.0.0.1 is alive") { print "[Den text som ska visas om jag är där]"; } else { print "[Den text som ska visas om jag inte är där]"; } # Sidan avslutas. print "\n"; print "\n\n"; # Ett annat alternativ är att servera olika sidor eller bilder med # Location-headers. Radera stycket efter "Programmet börjar rita upp # sidan" och stycket efter "Sidan avslutas". Istället för de texter som # visas om du är där/inte där skriver du två olika Location-headers # med relativa URL:er till de sidor/bilder som ska visas. # Exempel: # # if ($ping eq "127.0.0.1 is alive") { # print "Location: /pictures/ja.gif\n\n"; # } else { # print "Location: /pictures/nej.gif\n\n"; # } exit (0);