Qëllimi i skriptit është që të regjistrojë emrat dhe IP e përdoruesve që ekzekutojnë skriptin më lart në skedarin cgi.log.
Kodi PHP:
#!/usr/bin/perl
sub writeCgiEntry
{
# emri i regjistrit
my ($logfile)="cgi.log";
# emri i kompjuterit, psh: vizioninfo.com ose forumishqiptar.com
# ndonjehere serveri nuk e gjen dot emrin dhe kjo variabel eshte bosh
my ($name)=$ENV(`REMOTE_HOST `);
# adresa IP e kompjuterit qe ekzekuton skriptin
# ndonjehere mund te jete IP e proxy-t (psh: IP e albtelecom)
my ($addr) = $ENV( ` REMOTE_ADDR ` );
# hapim skedarin cgi.log
# >> ka kuptimin "shtese" (append), dmth ruajme te dhenat qe ka ne
# skedar dhe vetem sa shtojme te dhena te tjera ne fund
open (LOGFILE, ">>$logfile") or die("Skedari s'mund te hapet!");
# shkruajme nje rresht me emrin e kompjuterit dhe adresen IP
# te ndara me presje
# \n mbyll rreshtin
print LOGFILE("$name, $addr \n");
}
# ketu therasim funksionin me lart
writeCgiEntry();
Ja një shembull i regjistrit cgi.log
Kodi:
forumishqiptar.com, 69.72.56.115
vizioninfo.com, 80.78.23.56
albtelecom.al, 210.30.112.35
forumishqiptar.com, 69.72.56.115
, 192.168.0.1
localhost, 127.0.0.1
, 192.168.0.1 => s'ka emër sepse serveri nuk e gjeti dot
localhost, 127.0.0.1 => localhost tregon se skripti është ekzekutuar nga vetë severi që e përmban atë (psh nga aministratori)
Krijoni Kontakt