Hacking Gmail

164 Part II — Getting Inside Gmail
Listing 10-2 (continued)
foreach ( @{$messages} ) {
if ( $_->{“new”} ) {
print $id . “\t”
. $_->{“sender_email”} . “\t”
. strip_bold( $_->{“subject”} )
. “\n”;
push( @nums, $num );
$id++;
}
$num++;
}
print “\n”;
print “enter message number to reply to\n”;
$num = ;
print “\n”;
$message = @{$messages}[ $nums[ $num - 1 ] ];
$msgid = $message->{“id”};
if ($msgid) { # check if message id is OK
print “body:\n”;
$body = ;
$gmail->send_message(
to => $message->{“sender_email”},
subject => “Re: “ . strip_bold( $message->{“subject”}
),
msgbody => $body
); # we are using sender and subject from the
original message
print “message sent\n”;
}
Running this script produces a list of the new messages and gives you the option
to choose one and reply to it. You should see how this works from the code, but
let’s walk through it.
The start is simple enough. You’re using the Utils.pm module you created in
Chapter 7, and you just want to log in. Logging in creates the Gmail object
used in the rest of the script:
use Utils;
$gmail = login();