Real time counter

Engang ledte jeg også efter en online counter, men fandt heller ikke nogen. Derfor satte jeg mig ned og skrev min egen:

#!/usr/bin/perl
###############################################################################
# -( (c)2000 Thomas Palm )-                                    #
# Fil:        online.cgi                                    #
# Beskrivelse:    Viser antallet af online brugere                    #
#                                                    #
###############################################################################
print \"Content-type:text/html\\n\\n\"; # Sørger for at output er text/html

# Åben \"aktive\" brugere databasen (vi laver selv denne her...
dbmopen(%users, \'/path/til/en/userdb\', 0666); # File mode: 0666=rw-rw-rw-

$newtime = time(); # Ny tid

foreach $key (keys %users) {
    if (($newtime - $users{$key}) > 120 ) {
        # Key er mere end 2 minutter gammel og skal derfor slettes
        delete $users{$key};
    }
}
$users{$ENV{\'REMOTE_ADDR\'}} = time();
$antalonline=0;
foreach $key (keys %users) {
    $antalonline++;
}
dbmclose(users); # Luk databasen
$userword = \'users\';
$userword = \'user\' if ($antalonline==1);
print \"$antalonline $userword currently online\";
###############################################################################


Håber du kan bruge den til noget!

Jeg har sendt deg en mail...