diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2015-07-25 16:23:45 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2015-07-25 18:51:11 +0200 |
commit | ea6122775d01460c3bf9f73bb7b15b5084623dfa (patch) | |
tree | 13beba133c0a0968a6c813e345ddeaf109b5d541 /imapsync | |
parent | cee3792a151b9dab79a24323c1e81e9ad0a7e8f6 (diff) |
Add a manpage and improve documentation.
Diffstat (limited to 'imapsync')
-rwxr-xr-x | imapsync | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,7 +1,7 @@ #!/usr/bin/perl -T #---------------------------------------------------------------------- -# A minimal IMAP4 client for QRESYNC-capable servers +# IMAP-to-IMAP synchronization program for QRESYNC-capable servers # Copyright © 2015 Guilhem Moulin <guilhem@fripost.org> # # This program is free software: you can redistribute it and/or modify @@ -1059,10 +1059,6 @@ while (defined (my $row = $STH_GET_CACHE->fetchrow_hashref())) { while (@REPAIR) { $MAILBOX = shift @REPAIR; - unless (defined $MAILBOX) { - cleanup(); - exit 0; - } $STH_GET_INDEX->execute($MAILBOX); ($IDX) = $STH_GET_INDEX->fetchrow_array(); @@ -1072,6 +1068,10 @@ while (@REPAIR) { $rIMAP->select($MAILBOX); repair($IDX, $MAILBOX); } +if ($CONFIG{repair}) { + cleanup(); + exit 0; +} while(1) { |