CVS Update: gleipnir

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
can delete

Modified Files:
--------------
    gleipnir/public_html/webmail:
        addressbook.pl

Revision Data
-------------
Index: addressbook.pl
===================================================================
RCS file: /cvs/gleipnir/public_html/webmail/addressbook.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -Lpublic_html/webmail/addressbook.pl -Lpublic_html/webmail/addressbook.pl -u -r1.3 -r1.4
--- public_html/webmail/addressbook.pl
+++ public_html/webmail/addressbook.pl
@@ -94,7 +94,19 @@
 				$ctime = strftime('%FT%TZ', localtime);
 				$uid = 'pas-id-'. join '', map { (split //, '1234567890ABCDEF')[int(rand(16))] } split //, ' 'x16;
 			};
-		if ($cgi->param('action') eq 'Save')
+		if ($cgi->param('action') eq 'Delete')
+			{
+				my $imap = new Gleipnir::IMAP($gleipnir->cfetch(webmail => 'imapserver'));
+				my $chal = $imap->md5_getchal;
+				my $hmac = hmac_md5_hex($chal, $gleipnir->fetch('password'));
+				$imap->md5_login($gleipnir->fetch('username'), $hmac);
+				my $msgcount = $imap->select('INBOX.kolab.AddressBook');
+
+				$imap->delete($imapid) if defined($imapid);
+				$imap->expunge();
+				return $gleipnir->url('/webmail/addressbook.pl');
+			}
+		elsif ($cgi->param('action') eq 'Save')
 			{
 				my $imap = new Gleipnir::IMAP($gleipnir->cfetch(webmail => 'imapserver'));
 				my $chal = $imap->md5_getchal;