[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

CVS Update: gleipnir



Log Message:
-----------
Pass along IMAP ID.

Modified Files:
--------------
    gleipnir/perllib/Gleipnir:
        AddressBook.pm

Revision Data
-------------
Index: AddressBook.pm
===================================================================
RCS file: /cvs/gleipnir/perllib/Gleipnir/AddressBook.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -Lperllib/Gleipnir/AddressBook.pm -Lperllib/Gleipnir/AddressBook.pm -u -r1.3 -r1.4
--- perllib/Gleipnir/AddressBook.pm
+++ perllib/Gleipnir/AddressBook.pm
@@ -80,6 +80,7 @@
 
 						push @list, { 
 							uid => $xml->{uid}, 
+							imapid => $id,
 							ctime => $xml->{"creation-date"}, 
 							mtime => $xml->{"last-modification-date"}, 
 							first => $xml->{name}{"given-name"},


Main Menu:

Site Tools:


Here, spammer, have some addresses.