WebUpdate/User och stat.

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?

------------------
-=-=-=-=-=-
Mvh Hallgren
Forumledare
True Design
-=-=-=-=-=-

:(

------------------
-=-=-=-=-=-
Mvh Hallgren
Forumledare
True Design
-=-=-=-=-=-

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.

------------------
-------------------
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

[Redigerat av emission den 09 okt 2000]

Tack ska du ha grabben!!

Ska prova det när jag kommer hem från skolan...mm....blääää....bussen går snart.. :l

------------------
-=-=-=-=-=-
Mvh Hallgren
Forumledare
True Design
-=-=-=-=-=-

Hur ser en lösenords fil ut och hur ser det ut om man använder fler lösenord/användare? :r :r :r

------------------
-=-=-=-=-=-
Mvh Hallgren
Forumledare
True Design
-=-=-=-=-=-

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

Typ:

Nisse     nisseslösen
Palle     palleslösen
Kalle     kalleslösen

Ska det sparas i ett visst format?

------------------
-=-=-=-=-=-
Mvh Hallgren
Forumledare
True Design
-=-=-=-=-=-