Jag håller på att lägga in Kjells webupdate till en site, men har några funderingar på två moderfieringar.
Först vill jag att man ska använda både lösen och användar namn och varje person skall ha vars ett.
Det andra är att det skall föras någon sort av statestik över när och vem som loggade in och uppdaterade. Att det lagras i ett enkelt text doc. gör inget.
open(PASSWD,"<sökväg/till/läsbar/tabseparerad/lösenordsfil") or die "Kunde inte läsa lösenordsfilen";
@passwd=<PASSWD>;
close PASSWD;
$passlist=join("",@passwd);
&errorMsg unless ($passlist=~ /$FORM{'username'}\t$FORM{'password'}/ig);
sub LogUser{
($logevent,$logdate,$logtime)=@_;
open(LOG,">>sökväg/till/skrivbar/loggfil") or die "Kunde inte öppna loggfilen.";
print LOG "$logdate\t$logtime\t$logevent\t$ENV{'HTTP_REMOTE_HOST'}\n";
close LOG;
}
OBS! Skrivet på fri hand, så det kan vara hur fel som helst.
------------------
------------------- What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle
I mitt exempel har jag tänkt mig en fil med användarnamn och lösenord, med tabb emellan. En användare per rad.
------------------
------------------- What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle