From: Guilhem Moulin Date: Thu, 9 May 2019 15:47:19 +0000 (+0200) Subject: wibble X-Git-Url: https://git.g-eek.se/?a=commitdiff_plain;h=87e1211a4bd101bf6909f42eda826711af7066ae;p=interimap.git wibble --- diff --git a/interimap b/interimap index 454d311..5b1bc63 100755 --- a/interimap +++ b/interimap @@ -68,7 +68,7 @@ usage(1) if defined $COMMAND and (defined $CONFIG{watch} or defined $CONFIG{noti usage(1) if $CONFIG{target} and !(defined $COMMAND and ($COMMAND eq 'delete' or $COMMAND eq 'rename')); $CONFIG{watch} = $CONFIG{notify} ? 900 : 60 if (defined $CONFIG{watch} or $CONFIG{notify}) and !$CONFIG{watch}; @ARGV = map {uc $_ eq 'INBOX' ? 'INBOX' : $_ } @ARGV; # INBOX is case-insensitive -die "Invalid mailbox name $_" foreach grep !/\A([\x01-\x7F]+)\z/, @ARGV; +die "Invalid mailbox name $_" foreach grep !/\A[\x01-\x7F]+\z/, @ARGV; my $CONF = do { @@ -564,7 +564,7 @@ my $STH_LASTUIDs_LOCAL = $DBH->prepare(q{SELECT lUID FROM mapping WHERE idx = ? my $STH_LASTUIDs_REMOTE = $DBH->prepare(q{SELECT rUID FROM mapping WHERE idx = ? ORDER BY rUID DESC LIMIT 1024}); -# Download some missing UIDs from $source; returns the thew allocated UIDs +# Download some missing UIDs from $source; returns the new allocated UIDs sub download_missing($$$@) { my $idx = shift; my $mailbox = shift; diff --git a/interimap.service b/interimap.service index 8e9915f..6d7fa45 100644 --- a/interimap.service +++ b/interimap.service @@ -1,5 +1,6 @@ [Unit] Description=Fast bidirectional synchronization for QRESYNC-capable IMAP servers +Documentation=man:interimap(1) Wants=network-online.target After=network-online.target diff --git a/pullimap@.service b/pullimap@.service index d066886..53694da 100644 --- a/pullimap@.service +++ b/pullimap@.service @@ -1,5 +1,6 @@ [Unit] -Description=Pull mails from an IMAP mailbox and deliver them to a SMTP session +Description=Pull mails from an IMAP mailbox and deliver them to a SMTP session (instance %i) +Documentation=man:pullimap(1) Wants=network-online.target After=network-online.target