| Subject: | Not working sample |
| Date: | Thu, 12 Mar 2009 21:27:37 +0300 |
| To: | bug-Mail-Webmail-Gmail [...] rt.cpan.org |
| From: | Alex Kurt <l4ngl3y [...] gmail.com> |
Hello !
I'm using version Mail-Webmail-Gmail-1.09 module. When using the script from
the example, I received several errors:
Use of uninitialized value in concatenation (.) or string at
/usr/lib64/perl5/vendor_perl/5.8.8/LWP/Protocol/http.pm line 21.
Use of uninitialized value in pattern match (m//) at
/usr/lib64/perl5/site_perl/5.8.8/Mail/Webmail/Gmail.pm line 1425.
Use of uninitialized value in pattern match (m//) at
/usr/lib64/perl5/site_perl/5.8.8/Mail/Webmail/Gmail.pm line 1425.
Example script:
#!/usr/bin/perl -w
use Mail::Webmail::Gmail;
my $gmail = Mail::Webmail::Gmail->new( username => 'test', password => '
test@gmail.com',);
my @labels = $gmail->get_labels();
my $messages = $gmail->get_messages( label => $labels[0] );
foreach ( @{ $messages } ) {
if ( $_->{ 'new' } ) {
print "Subject: " . $_->{ 'subject' } . " / Blurb: " . $_->{
'blurb' } . "\n";
}
}
My Perl version:
This is perl, v5.8.8 built for x86_64-linux
My system:
Linux kr0n0s.piy 2.6.28.4-smp #1 SMP Thu Jan 29 22:59:17 MSK 2009 x86_64
Intel(R) Core(TM)2 CPU T5600 @ 1.83GHz GenuineIntel GNU/Linux
Thanks !