173
Chapter 11 — Dealing with Labels
This is exactly the same technique as you used in Listing 11-2, added to Chapter
10’s method for sending a reply. You should now be able to see how you can build
simple applications and workflows with the Gmail and the Mail::Webmail::Gmail
module.
Setting New Labels
It’s all very well being able to list the existing labels, but what about setting messages with them? To do that with Mail::Webmail::Gmail, use the edit_labels
function. Listing 11-4 displays the unlabeled messages and the existing labels, and
allows you to apply one to the other.
First, the listing and then how it works.
Listing 11-4: Labeling Unlabeled Messages
use Utils;
$gmail = login();
$messages = $gmail->get_messages();
# simply get all
messages
$id
= 1;
$num
= 0;
@nums;
foreach ( @{$messages} ) {
# and iterate through
them
if ( $_->{“new”} ) {
print $id . “\t”
. $_->{“sender_email”} . “\t”
. strip_bold( $_->{“subject”} )
. “\n”;
# output message data
push( @nums, $num );
$id++;
}
$num++;
}
print “\n”;
print “enter message number to label\n”;
$num = <>;
print “\n”;
Continued