Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: PerlMonksChat module via proxy

by alien_life_form (Pilgrim)
on Jun 12, 2002 at 12:39 UTC ( #173793=note: print w/ replies, xml ) Need Help??


in reply to PerlMonksChat module via proxy

Greetings,

choocroot is right on target. Coincidentally, I did download the modules a few days back, and added that patch and few others that prevented them to work correctly with the latest format changes on perlmonks. I did /msg zzamboni about them. If anybody's too impatient to wait for the true official version, these is the diff file I came up with:

*** PerlMonks.pm Fri Jun 07 15:11:41 2002 --- PerlMonks.pm.ORIG Mon Jun 10 16:08:03 2002 *************** *** 61,67 **** my $class=shift; my $self={}; $self->{ua}=new LWP::UserAgent; - $self->{ua}->env_proxy(); #ALF bless $self, $class; return $self; } --- 61,66 ---- *** Chat.pm Fri Jun 07 15:21:52 2002 --- Chat.pm.ORIG Sat Oct 28 00:47:22 2000 *************** *** 58,65 **** # Get general chat messages if ($c=$self->getpage(CHAT_URL)) { $c=~s/[\r\n\t]//g; ! #my @msgs=($c=~/message\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/m +essage>/g); ! my @msgs=($c=~/message(?:\s+user_id=\"\d+\")\s+author="([^\"]+)" +[^>]+>\s*(.*?)\s*<\/message>/gx); #ALF if (@msgs) { while (@msgs) { my ($author, $msg)=(shift(@msgs),shift(@msgs)); --- 58,64 ---- # Get general chat messages if ($c=$self->getpage(CHAT_URL)) { $c=~s/[\r\n\t]//g; ! my @msgs=($c=~/message\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/me +ssage>/g); if (@msgs) { while (@msgs) { my ($author, $msg)=(shift(@msgs),shift(@msgs)); *** Users.pm Mon Jun 10 14:51:24 2002 --- Users.pm.ORIG Mon Sep 04 22:44:10 2000 *************** *** 63,74 **** 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; ! my @uids=($c=~/user\s+.*user_id="(\d+)"/g); ! my @unames=($c=~/user\s+.*username="([^\"]+)"/g); ! my $count=0; ! %users=map {($_,$uids[$count++])} @unames; $self->{cache_users}=\%users; $self->{cache_users_ts}=time(); } --- 63,69 ---- 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 +); $self->{cache_users}=\%users; $self->{cache_users_ts}=time(); }

Cheers,
alf
You can't have everything: where would you put it?


Comment on Re: PerlMonksChat module via proxy
Download Code
Re: Re: PerlMonksChat module via proxy
by Courage (Parson) on Jun 12, 2002 at 12:55 UTC
    that's good.

    But isn't it the patch in opposite direction?

    Courage, the Cowardly Dog.
    PS. Something fishy is going on there, or my name is Vadim Konovalov. And it's not.

      Greetings,

      Most likely in the opposite direction. I keep getting it backwards...
      Cheers,
      alf


      You can't have everything: where would you put it?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://173793]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2014-12-27 05:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls