diff options
-rw-r--r-- | archiveIMAP.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/archiveIMAP.pl b/archiveIMAP.pl index a33cf23..f8116ce 100644 --- a/archiveIMAP.pl +++ b/archiveIMAP.pl @@ -10,11 +10,11 @@ use DateTime::Format::Strptime; use Config::IniFiles; # possible values are currently -- zimbra, localhost, pobox -my $account = "zimbra"; +my $account = "localhost"; # How many months before today the cut date should be? my $howManyMonths = 3; -my $debug = 1; +my $debug = 0; # get configuration for the account my $conf = Config::IniFiles->new( -file => "/home/matej/.bugzillarc"); @@ -54,7 +54,9 @@ sub getMessageYear { # return empty string. } my $year = $msgDt->year; - print "\$msgStr = $msgStr, \$msgDt = $msgDt, year = $year\n"; + if ($debug) { + print "\$msgStr = $msgStr, \$msgDt = $msgDt, year = $year\n"; + } return $year; } @@ -87,13 +89,11 @@ my $cutDate = DateTime->now(); $cutDate->add( months => -$howManyMonths ); my @sourceFolders = grep(!/^INBOX\/Archiv/,$imap->folders()); -my $msgDateInStr; -my $msgYear; -my $msgDateStr; -my $targetFolder; +my ($msgDateInStr,$msgYear,$msgDateStr,$targetFolder); foreach my $folder (@sourceFolders) { $imap->select($folder); + die "Cannot select folder $folder\n" if $@; my @msgsProc = $imap->search(" UNDELETED BEFORE " . $cutDate->strftime("%d-%b-%Y")); if ($#msgsProc > 0) { print "Move $#msgsProc in $folder.\n"; |