# Some variables defined elsewhere: 
# $XForumUser is the current member logged in. It's password is already validated. 
# $XForumUserIP = $ENV{'REMOVE_ADDR'} || '' 
# $MEMBER_TTL = 5 * 60; # 5 minutes. 
 
 
{ 
  my %MemberLinks; 
  my $EpochSecs = time(); 
  my $Name = ($XForumUser ne '' ? &dbGetMemberName($XForumUser) : ''); 
   
  # Open for READ/WRITE, create it not exists. 
  if(sysopen(TTLDB, "$DATA_FOLDER/visitors.rct", O_RDWR|O_CREAT, 0666)) 
  { 
    # Lock and get the contents when locked 
    flock(TTLDB, LOCK_EX); 
    my @Visitors = <TTLDB>; 
     
    # Clear the database, so we can rewite data into it. 
    seek(TTLDB, 0, 0)   or die "Can't reinit for write of visitors: $!"; 
    truncate(TTLDB, 0)  or die "Can't rewrite visitors: $!"; 
     
    foreach(@Visitors) 
    { 
      # Remove \n and split the records, separated by pipes 
      chomp; 
      my ($TTL, $IP, $Member, $Name) = split(/\|/); 
      
      if($TTL && ($XForumUserIP ne $IP) &&   (($EpochSecs - $TTL) <= $MEMBER_TTL) && ($XForumUser eq '' || $Member ne $XForumUser)) 
      { 
        # Put back the record because it's still valid. 
        print TTLDB "$TTL|$IP|$Member|$Name\n"; 
         
        # Add guests, or add link to hash 
        if ($Member eq '' || $Name eq '') { $Guests++; } 
        else 
        { 
          $MemberLinks{$Member} = qq[<A href="$THIS_URL?show=member&member=$Member">$Name</A>, ]; 
        } 
      } 
    } 
 
    # Write the last record (yourself) 
    print TTLDB "$EpochSecs|$XForumUserIP|$XForumUser|$Name\n"; 
    flock(TTLDB, LOCK_UN); 
    close(TTLDB); 
  } 
   
  if($XForumUser eq '' || $Name eq '') { $Guests++; } 
  else { $MemberLinks{$XForumUser} = qq[<A href="$THIS_URL?show=member&member=$XForumUser">$Name</A>, ]; } 
   
  foreach my $Member (sort { $MemberNames{$a} cmp $MemberNames{$b} } keys %MemberLinks) 
  { $Visitors .= $MemberLinks{$Member}; } 
   
  if    ($Guests == 0) { $Guests  = 'no guests'; } 
  elsif ($Guests == 1) { $Guests .= ' guest'; } 
  elsif ($Guests >= 2) { $Guests .= ' guests'; } 
} 
  
... 
  
print "$Visitors $Guests";