zackse@ahumado:/opt/src$ diff -ur PerlMonksModules/ PerlMonksModules.new/
diff -ur PerlMonksModules/PerlMonks/Chat.pm PerlMonksModules.new/PerlMonks/Chat.pm
--- PerlMonksModules/PerlMonks/Chat.pm  Mon Aug 19 12:39:56 2002
+++ PerlMonksModules.new/PerlMonks/Chat.pm      Sat Aug 24 01:16:15 2002
@@ -58,7 +58,7 @@
   # Get general chat messages
   if ($c=$self->getpage(CHAT_URL)) {
     $c=~s/[\r\n\t]//g;
-    my @msgs=($c=~/message\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);
+    my @msgs=($c=~/message\s+user_id="\d+"\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);
     if (@msgs) {
       while (@msgs) {
        my ($author, $msg)=(shift(@msgs),shift(@msgs));
@@ -91,9 +91,10 @@
   if ($self->{cookie_jar}) {
     if ($c=$self->getpage(PRIVATE_URL)) {
       $c=~s/[\r\n\t]//g;
-      my @msgs=($c=~/message\s+message_id="(\d+)"\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);
+      my @msgs=($c=~/message\s+user_id="\d+"\s+author="([^\"]+)"\s+time="\d+"\s+message_id="(\d+)"[^>]+>\s*(.*?)\s*<\/message>/g);
+
       while (@msgs) {
-       my ($mid, $author, $msg)=(shift(@msgs),shift(@msgs),shift(@msgs));
+       my ($author, $mid, $msg)=(shift(@msgs),shift(@msgs),shift(@msgs));
         # Remove html tags
        $msg =~ s/<[^>]+?>//g;
        # Decode html entities
diff -ur PerlMonksModules/PerlMonks/Users.pm PerlMonksModules.new/PerlMonks/Users.pm
--- PerlMonksModules/PerlMonks/Users.pm Mon Aug 19 12:39:56 2002
+++ PerlMonksModules.new/PerlMonks/Users.pm     Sat Aug 24 01:16:15 2002
@@ -63,7 +63,7 @@
   my $self=shift;
   if ( (time() - $self->{cache_users_ts}) > USERS_REFRESH) {
     if (my $c=$self->getpage(USERS_URL)) {
-      my %users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g);
+      my %users=reverse ($c=~/user\s+user_id="(\d+)"\s+username="([^\"]+)"/g);
       $self->{cache_users}=\%users;
       $self->{cache_users_ts}=time();
     }