Minor bugfixes

* bin/mailsync: Improve debugging.  Don't hardcode PATH components.
* install.pl (install): Ignore backup copies.

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) {