6 svar · 187 visningar · startad av Hallgren
Hallå vänner!
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.
Scriptet hittar ni här: http://www.lammhult.com/cgi/update/
Några lösningar?
Byt ut raden
&errorMsg unless ($FORM{'password'} eq $password);
till
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);
Byt ut
print NEWS <<Page;
till
LogUser($FORM{'title'},$date,$cloc);
print NEWS <<Page;
och
sub errorMsg {
till
LogUser("failed",$date,$cloc};
sub errorMsg {
och lägg till
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.
Tack ska du ha grabben!!
Ska prova det när jag kommer hem från skolan...mm....blääää....bussen går snart.. 
Hur ser en lösenords fil ut och hur ser det ut om man använder fler lösenord/användare? 
I mitt exempel har jag tänkt mig en fil med användarnamn och lösenord, med tabb emellan. En användare per rad.