WWW::GMail 0.07

WWW::GMail is a Perl extension for accessing Google Mail (gmail).

SYNOPSIS

use WWW::GMail;

my $obj = WWW::GMail->new(
username => "USERNAME",
password => "PASSWORD",
cookies => {
autosave => 1,
file => "./gmail.cookie",
},
);

my $ret = $obj->login();
if ($ret == -1) {
print "password incorrectn";
} elsif ($ret == 0) {
print "unable to login $obj->{error}n";
exit;
}

my @list = $obj->get_message_list(inbox);

# count the new messages in the inbox
my $new_msgs = 0;
for my $i ( 0 .. $#list ) {
$new_msgs += $list[$i]->[1]; # count the unread flags
}

print "you have $new_msgs new messages in your inboxn";

my @contacts = $obj->get_contact_list();
print "you have ".(@contacts)." contactsn";

my $gmail = 0;
for my $i ( 0 .. $#contacts ) {
$gmail += ($contacts[$i]->[3] =~ m/gmail.com$/i);
}

print "$gmail of them are gmail addressesn";

$obj->logout();