Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Send private CB messages through XChat

by Beatnik (Parson)
on Apr 15, 2001 at 20:45 UTC ( #72672=CUFP: print w/ replies, xml ) Need Help??

As a sequal on my previous CUFP, here's a way to reply to private messages... this chunk is ofcourse based on lhoward's node too... (no XML this time, sorry OeufMayo :) )
Update: Tweaked some Monestary related things... Thanks epoptai
#!/usr/bin/perl use LWP::UserAgent; use URI::URL; use HTTP::Cookies; IRC::register("Monk Messenger", "0.1", "", ""); IRC::print "\0035:: Loading Monk Messenger ::\003\n"; IRC::add_command_handler("msgmonk", "msg_monk"); sub msg_monk { my $message = @_[0]; $message = substr($message,0,255); ($user,$message) = split(/ /,$message,2); my $pm_user=''; # Monk alias my $pm_password=''; # Monk password my $WWWAgent = new LWP::UserAgent(); my $co=new HTTP::Cookies(file=>'./cookies.dat',autosave=>1,ignore_ +discard=>1); $WWWAgent->cookie_jar($co); my $url=new URI::URL 'http://www.perlmonks.org/index.pl'; $url->query_form(op => "login",node_id => "16046",user => $pm_user +,passwd => $pm_password,expires=> "+10y"); my $WWWRequest = new HTTP::Request 'GET', $url->as_string() ; my $WWWResult = $WWWAgent->request($WWWRequest); die "Error logging in $WWWResult->code $WWWResult->message" if(!$W +WWResult->is_success); $url=new URI::URL 'http://www.perlmonks.org/index.pl'; $url->query_form(op => 'message',node=>"16046", message=>"/msg $us +er $message"); $WWWRequest = new HTTP::Request 'GET', $url->as_string() ; $WWWResult = $WWWAgent->request($WWWRequest); die "Can't load Monk Messanger $WWWResult->code $WWWResult->messag +e" if(!$WWWResult->is_success); IRC::print "you said $message to $user\n"; 1; }
You can put this in your .xchat directory to get automatically loaded on startup...
How this works : /msgmonk <monk> <message> ,like in CB... (Something like "/msgmonk Beatnik hey dude your code sucks" will ofcourse work :-|)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

Comment on Send private CB messages through XChat
Download Code
Re: Send private CB messages through XChat
by epoptai (Curate) on Apr 16, 2001 at 08:49 UTC
    Neat idea. A few FYIs:

    Requests to perlmonks can be made faster by asking for very small nodes. It's not necessary to use node 109 for login or homenode for /msg (or lastnode_id at all). If a node isn't supplied The Monastery Gates comes back (ouch). The smallest nodes at perlmonks are some empty XML nodes but I usually use the tiny XML xp nodelet at node_id=16046 since it'll probably be there in the future.

    If you have a saved cookie file login can be skipped, but either needs to use ignore_discard on the cookies:

    $co=new HTTP::Cookies(file=>'./cookie',autosave=>1,ignore_discard=>1);
    or set an expires param in the login query:
    $url->query_form( op => "login", node_id => "16046", expires=> "+10y" user => $pm_user, passwd => $pm_password );
    Also, the size limit on /msg is 255 bytes, so $message needs to be counted and truncated before the print to reflect overflow.
      Thanks, I tweaked it :)

      Greetz
      Beatnik
      ... Quidquid perl dictum sit, altum viditur.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2014-10-24 16:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (133 votes), past polls