Hello again!
You will be pleased to know that I have a working script in my
possession, coded in Perl and using AIM.
I'm assuming that you either have Net::AIM installed or know how to.
Here is the code:
-----------------------
#!/usr/bin/perl
use lib '.';
use Net::AIM;
$aim = new Net::AIM;
$conn = $aim->newconn (Screenname => 'AIMScreenName',
Password => 'Password');
foreach my $i (0..14) { # Empirical 15s delay
$aim->do_one_loop || last;
sleep 1;
}
$aim->send_im ('SecondAIMScreenName', 'EnterMessage');
sleep 2;
-----------------------
If you do not have the latest Net:AIM module, you can download it from
here:
http://cpan.org/authors/id/A/AR/ARYEH/
Kind regards,
errol-ga. |
Request for Answer Clarification by
donphiltrodt-ga
on
27 May 2003 13:52 PDT
Nearly excellent.
Would you mind altering the script to accept 4 strings by either POST or GET?...
1) SenderName (SN)
2) SenderPassword (SP)
3) Recipient (R)
4) Message (M)
|
Request for Answer Clarification by
donphiltrodt-ga
on
27 May 2003 13:54 PDT
(Oops. Bumped the "Post Request" button too soon.)
It seems (to me) that my requested hack is very trivial. But if you
would prefer me to raise the price, I'd be glad to, since I know
you've spent some considerable time.
|
Clarification of Answer by
errol-ga
on
27 May 2003 20:44 PDT
Hello again!
No problem at all, it is very easy to pass form values to a script -
you just do this:
Your HTML page
===============
<html>
<head>
<title>Compose Message</title>
</head>
<body>
<form method="post" action="sendmessage.pl">
<!-- You could also use action="sendmessage.cgi", depending on the
server setup -->
<!-- OR GET like this:
<!-- <form method="get" action="sendmessage.pl">
Sender Name:<br>
<input type="text" name="sendername"><br>
Sender Password:<br>
<input type="text" name="password"><br>
Recipient:<br>
<input type="text" name="recipient"><br>
Message:<br>
<textarea name="message"></textarea><br>
<input type="reset" value="Start Over">
<input type="submit" value="Send Message">
</form>
</body>
</html>
The modified script - "sendmessage.pl"
====================
#!/usr/bin/perl
use lib '.';
use Net::AIM;
$aim = new Net::AIM;
$conn = $aim->newconn (Screenname => '$sendername',
Password => '$password');
foreach my $i (0..14) { # Empirical 15s delay
$aim->do_one_loop || last;
sleep 1;
}
$aim->send_im ('$recipient', '$message');
sleep 2;
As you can see, all you need to do is use variables such as
$sendername in the script and it will automatically capture the form
values and use them.
To use the GET method, you would do something like this:
http://www.yoursite.com/sendmessage.pl?sendername=myscreenname&password=thepassword&recipient=therecipient&message=Hello
Obviously, the POST method is better because it doesn't show the
password variable in the URL.
If this doesn't work for any reason, let me know and I'll write the
processing script in PHP with a .bat file which runs on the local
filesystem to execute the Perl script.
Kind regards,
errol-ga.
|
Request for Answer Clarification by
donphiltrodt-ga
on
02 Jun 2003 17:56 PDT
Wow. You're definitely very close. I have one more request (for a
higher price if nec):...
The script works only if the message is hard coded (like your first
version). But if you use the second version (with string
interpolation), Apache throws this error...
Can't use an undefined value as a symbol reference at
D:/perl/site/lib/Net/AIM/Connection.pm line 781.
...So to what price should I raise the question so you feel
comfortable fixing this error?
|
Clarification of Answer by
errol-ga
on
03 Jun 2003 06:21 PDT
Hi there!
I have spent the (very frustrating!) morning working out the form
parsing code and I now have the final, working version ready.
Here it is, remember to replace the path to Perl with yours:
#!E:/Perl/bin/perl.exe
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
print "Sent message from <b>$FORM{'sendername'}</b>, to
<b>$FORM{'recipient'}</b>!";
use lib '.';
use Net::AIM;
$aim = new Net::AIM;
$conn = $aim->newconn (Screenname => $FORM{'sendername'},
Password => $FORM{'password'});
foreach my $i (0..4) { # Empirical 15s delay
$aim->do_one_loop || last;
sleep 1;
}
$aim->send_im ( $FORM{'recipient'},$FORM{'message'});
sleep 1;
print "</body></html>";
I've tested the code thoroughly by changing the various form fields
and it works like a dream, I shortened the sleep time for the code too
so it is faster than before.
errol-ga.
|
Request for Answer Clarification by
donphiltrodt-ga
on
03 Jun 2003 12:34 PDT
Wow. Thanks for all your work. I will compensate you via a tip.
This is really getting close. This version, unfortunately, doesn't
work properly when using GET instead of POST. If you need further
details, lemme know.
(I'll be available until 5:30 pm PDT, then I won't return until Friday
AM.)
|
Clarification of Answer by
errol-ga
on
03 Jun 2003 14:12 PDT
Hi!
No problem at all, here we have the finished script which will accept
either POST or the GET methods, I also cleaned up the code a little
bit:
===============
#!E:/Perl/bin/perl.exe
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
if ($ENV{'QUERY_STRING'})
{
@getpairs = split(/&/, $ENV{'QUERY_STRING'});
push(@pairs,@getpairs);
}
}
else
{
print "Content-type: text/html\n\n";
print "Use the POST or GET methods."; }
foreach $pair (@pairs) { ($key, $value) = split (/=/, $pair);
$key =~ tr/+/ /; $key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
$value =~ s///g; if ($formdata{$key}) { $formdata{$key} .= ", $value";
}
else { $formdata{$key} = $value; } } 1;
print "Content-type: text/html\n\n";
print "Sent message from <b>$formdata{'sendername'}</b>, to
<b>$formdata{'recipient'}</b>!";
use lib '.';
use Net::AIM;
$aim = new Net::AIM;
$conn = $aim->newconn (Screenname => $formdata{'sendername'},
Password => $formdata{'password'});
foreach my $i (0..4) {
$aim->do_one_loop || last;
sleep 1;
}
$aim->send_im ( $formdata{'recipient'},$formdata{'message'});
sleep 1;
print "</body></html>";
Kind regards,
errol-ga.
|
Clarification of Answer by
errol-ga
on
03 Jun 2003 15:07 PDT
Thank you for your generosity!
It was a good learning experience and very satisfying when the code
started to work. :)
errol-ga.
|
