aklog if we don't have tokens

diff --git a/incremental/afs.c b/incremental/afs.c
index 16dc0c0b4bb649f8ed7191a88ddafa7cac47287e..78e7475619e31b7de41f1ea2fe47f5950d5c1a6b 100644 (file)
--- a/incremental/afs.c
+++ b/incremental/afs.c
@@ -668,6 +668,8 @@ long pr_try(long (*fn)(), char *a1, char *a2, char *a3, char *a4, char *a5,
 
       if (code == UNOQUORUM)
        sleep(90);
+      else if (code == PRPERM)
+       system("/bin/athena/aklog");
       else
        sleep(15);
 

diff --git a/incremental/afs_utils.pl b/incremental/afs_utils.pl
index 8a8ed96c55a34d29a500441dae89f45fc87ea9b6..d08f43a30737cf055920149bf165e65b981cb045 100644 (file)
--- a/incremental/afs_utils.pl
+++ b/incremental/afs_utils.pl
@@ -2,6 +2,8 @@
 
 use Fcntl;
 
+system("/bin/athena/aklog");
+
 $afsbin="/moira/bin";
 $vos="$afsbin/vos";
 $pts="$afsbin/pts";