check_gmail
Monday, July 31st, 2006I’ts amazing what you can whip up in just 15 minutes using CPAN (including reading the documentation).
!/usr/bin/env perl
use warnings; use strict;
=head1 INTRODUCTION
Checks if there are new unread messages in your GMail Inbox.
=head1 USAGE
$ perl check_gmail.pl 1 Swaroop C H Looks like check_gmail.pl works=cut
######## Configuration
Change this to your correct username.
use constant GMAIL_USERNAME => "username";
Change this to your correct password.
use constant GMAIL_PASSWORD => "password";
#### Don't change anything below this.
use LWP::UserAgent; use XML::Atom::Feed;
my $fetcher = LWP::UserAgent->new(); $fetcher->agent("check_gmail.pl/0.01");
my $request = HTTP::Request->new( 'GET' => "https://mail.google.com/gmail/feed/atom", ); $request->authorization_basic(GMAIL_USERNAME, GMAIL_PASSWORD);
my $response = $fetcher->request($request);
if (! $response->is_success()) { die("Unsuccessful in trying to talk to GMail"); }
my $content = $response->content; my $feed = XML::Atom::Feed->new(\$content); my @new_messages = $feed->entries();
my $i = 1; foreach my $message(@new_messages) { print join("\t", $i, $message->author->name, $message->title), "\n"; $i++; }
The End
Update : Baishampayan Ghose quickly jotted down a Python version of this script.










