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();
     }