nicht angemeldet
open(LOG, "+>$loginlog") || die "cant open log\n";
Du kannst hier sinnvollerweise auch noch den Grund für ein Scheitern reinschreiben
open(LOG, "+>$loginlog") || die "cant open log ($!)\n";
print LOG "9*0*Jul 10 $username\n" || die "cant print\n";#hab ich nur zum testen
my ($ag_last,$count_last,$date_last) = split(/\*/,$logins{$username});#mit logins gibts probleme
Was hat $logins{$username} für einen Wert?
#if first time logging in today
if ($date_last ne $date_today)
Was hat $date_today für einen Wert?
fehlermeldung des servers ist
Use of uninitialized value in string ne at test.cgi line...damit ist if ($date_old ne $date_today) gemeint.
Das heißt eine von beiden Variabeln ist undefiniert.
Struppi.