1WWW::Google::Contacts::UPsheortoC(o3n)tributed Perl DocuWmWeWn:t:aGtoioognle::Contacts::Photo(3)
2
3
4

SYNOPSIS

6           use WWW::Google::Contacts;
7
8           my $google = WWW::Google::Contacts->new( username => "your.username", password => "your.password" );
9
10           my $contacts = $google->contacts;
11
12           while ( my $contact = $contacts->next ) {
13              print "You got a friend called " . $contact->full_name . "\n";
14
15              if ( $contact->photo->exists ) {
16                 print "And you got a photo of this friend\n";
17                 # Save the picture to disk!
18                 $contact->photo->to_file( "/opt/images/" . $contact->full_name . ".jpg" );
19              } else {
20                 # Upload a picture for this contact
21                 $contact->photo->from_file( "/opt/images/" . $contact->full_name . ".jpg" );
22                 # Remember to update Google
23                 $contact->photo->update();
24              }
25           }
26

AUTHOR

28         Magnus Erixzon <magnus@erixzon.com>
29

31       This software is copyright (c) 2010-2013 by Magnus Erixzon.
32
33       This is free software; you can redistribute it and/or modify it under
34       the same terms as perl itself.
35
36
37
38perl v5.34.0                      2021-07-23   WWW::Google::Contacts::Photo(3)
Impressum