aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/mailsync11
-rw-r--r--install.pl1
2 files changed, 8 insertions, 4 deletions
diff --git a/bin/mailsync b/bin/mailsync
index 04b0f3b..2667c60 100755
--- a/bin/mailsync
+++ b/bin/mailsync
@@ -64,7 +64,7 @@ kwtab = {
conf = { }
-os.environ["PATH"] = "/srv/mailman/bin:/usr/local/bin:" + os.environ["PATH"]
+os.environ["PATH"] = os.path.dirname(sys.argv[0]) + ':' + os.environ["PATH"]
status = EX_OK
@@ -158,11 +158,14 @@ def mboxtohtml(listid):
print("\"%s\": %s" % (str(cmd), err), file=sys.stderr)
status = EX_FAILURE
- save_state(listid, len(inbox))
if t > 0:
+ n = len(inbox)
+ debug(1, "%s: %d messages, timestamp %d" % (name,n,t))
+ save_state(listid, n)
save_timestamp(listid, t)
-
- return True
+ return True
+ debug(1, "%s: not modified" % (name))
+ return False
def savane_lists(file = None):
if 'listfile' in conf['core']:
diff --git a/install.pl b/install.pl
index d91b17f..0bcc464 100644
--- a/install.pl
+++ b/install.pl
@@ -114,6 +114,7 @@ sub install {
my ($src, $dst) = @_;
print "$progname: Installing $src to $dst\n";
find(sub {
+ return if /~$/;
my $dir = $File::Find::dir;
my $target;
if ($dir eq $src) {

Return to:

Send suggestions and report system problems to the System administrator.