Skript për regjistrimin e vizitorëve në PERL

[fotjon]

mirepres pergjigje per kete ushtrim

Jepet skripti i meposhtem i shkruar ne gjuhen Perl. Supozojme se perdorusi qe ekzekuton skriptin ndodhet ne makinen me IP 80.78.23.56 dhe emer domain www.vizioninfo.com

#!/usr/bin/perl
sub writeCgiEntry
{
my ($logfile)="cgi.log";
my ($name)=$ENV(`REMOTE_HOST `);
my ($addr) = $ENV( ` REMOTE_ADDR ` );
open (LOGFILE, ">>$logfile") or die("Skedari s'mund te hapet!");
print LOGFILE("$name, $addr \n");
}
writeCgiEntry();

Peshkruani:
- qellimin e skriptit
- si funksionon
- veprimin rezultant te tij

[qoska]

ky ben ruajtjen e te gjitha adresave ip qe lidhen ne serverin tend ne faqen cgi me modul perl te aktivizuar ne filen cgi.log dhe sa here e therret si funksion shkruan nje rresht te ri ne ate file qe ndodhet ne te njejten direktori si scripti.

ti do te dish sa veta dine perl ne forum apo se kupton vete ???

FUNKSIONIMI:
deklarohen tre variabla
emrin e filet
dhe lexon dy te tjera nga abmienti i shellit te serverit pasi jane dy variabla shelli te serverit sidomos apache dhe kryen funksione te thjeshta si open file dhe pastaj shkruan me te ne print.

gjithsesi duhet thirrur si funksinon nga nje faqe cgi qe te punoje.

[edspace]

Qëllimi i skriptit është që të regjistrojë emrat dhe IP e përdoruesve që ekzekutojnë skriptin më lart në skedarin cgi.log.

#!/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

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)

[fotjon]

po, flm per pergjigjet, ky ishte si ushtrim ne nje teze provimi te lendes "programim i sistemeve te shperndare" qe duhet te jap, ndaj pyeta njehere