Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Open

by Open (Initiate)
on Mar 20, 2001 at 08:18 UTC ( #65626=user: print w/replies, xml ) Need Help??

My website

#!/usr/bin/perl #SAIM by open #you can use it just put my name in it. use Net::AOLIM; use base 'CGI::Application'; sub setup { my $self = shift; $self->run_modes( 'mode_1' => 'main', ); $self->start_mode('mode_1'); $self->mode_param('rm'); } sub main { my $self = shift; # Get CGI query object my $q = $self->query(); my $user = $q->param("username"); my $pass = $q->param("pass"); my $destuser = $q->param("destuser"); my $message = $q->param("message"); $aim = Net::AOLIM->new('username' => $user, 'password' => $pass, 'callback' => \&handler); $aim->signon; $aim->toc_send_im($destuser, $message); } <!-- -----BEGIN PERL GEEK CODE BLOCK----- Version: 0.01 P+++(*)@c*P6*R++++M++++O++++MA++++E++++ PU++++BD*C*D++++S*X++++WP++++MO++++PP++ ++n++++$CO++++$PO*$o++++$G*$A++++$OLC*$ OLCC*$OLJ*$OLP*$OLR*$OLCO*$OLS*$OLL*$OL A*$Ee+++Ev*Eon++++$Eot++++$Eob++++$Eoa+ +++$uL*$uB*$uS*$uH*$uo*$w!m*$osA++++$os BE++++$ ------END PERL GEEK CODE BLOCK------ -->

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2020-11-25 09:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?