Help for this page

Select Code to Download


  1. or download this
    --- Chat.pm-old Tue Sep 24 17:45:12 2002
    +++ Chat.pm Tue Sep 24 17:32:07 2002
    ...
         if (@msgs) {
           while (@msgs) {
        my ($author, $msg)=(shift(@msgs),shift(@msgs));
    
  2. or download this
    --- Users.pm-old    Tue Sep 24 17:45:18 2002
    +++ Users.pm    Tue Sep 24 17:37:28 2002
    ...
           $self->{cache_users}=\%users;
           $self->{cache_users_ts}=time();
         }