fix two nasty bugs

pb4sd/pb4sd

@@ -95,11 +95,14 @@ die "logfile '$infile' not found" if (not -f $infile);
 
 #   create tail object
 my $lf = File::Tail->new(
-    name        => $infile,
-    maxinterval => 2,
-    interval    => 1,
-    adjustafter => 3,
-    resetafter  => 30
+    name               => $infile,
+    interval           => 1,
+    adjustafter        => 3,
+    maxinterval        => 2,
+    resetafter         => 30,
+    ignore_nonexistant => 1,
+    tail               => 0,
+    reset_tail         => -1
 ) || die "unable to create tail object for '$infile'";
 
 #   create network block
@@ -226,7 +229,7 @@ while (1) {
                 delete $t->{$q->[0][0]};
                 delete $db{$q->[0][0]};
             }
-            shift @q;
+            shift @{$q};
         }
 
         #   synchronize database

pb4sd/pb4sd.spec

@@ -32,8 +32,8 @@ Packager:     The OpenPKG Project
 Distribution: OpenPKG [EXP]
 Group:        Mail
 License:      PD
-Version:      1.0
-Release:      20011228
+Version:      1.1
+Release:      20020102
 
 #   list of sources
 Source0:      pb4sd

pb4sd/rc.pb4sd

@@ -32,8 +32,8 @@
 
 %stop -p 200 -u root
     opServiceEnabled pb4sd || exit 0
-    if [ -f $pb4sd_logfile ]; then
-        kill -TERM `cat ${pb4sd_logfile}`
+    if [ -f ${pb4sd_pidfile} ]; then
+        kill -TERM `cat ${pb4sd_pidfile}`
     fi
 
 %daily -u root