Code style cleanup. (No functional changes)

[moira.git] / incremental / afs_nightly.pl

diff --git a/incremental/afs_nightly.pl b/incremental/afs_nightly.pl
index 68a00211d377082bb362f2e69c9edadfe98001a9..8dabc11f010f7fc737f13ba4ff2c50005c01970c 100644 (file)
--- a/incremental/afs_nightly.pl
+++ b/incremental/afs_nightly.pl
@@ -15,6 +15,15 @@ if (open(TMP,"/afs/athena.mit.edu/service/afs_data")) {
 }
 
 chop(@new_data);
+
+for (@new_data) {
+    ($c,$as,$ap) = split(/\s+/,$_);
+    ($as) = gethostbyname($as) unless ($c =~ /^\#/);
+    $c =~ tr/a-z/A-Z/;
+    $as =~ tr/a-z/A-Z/;
+    $ap =~ s:^([^/]):/vicep\1:;
+    $ok{"$c $as $ap"} = 1;
+}
 for (@new_data) {
     $as = $ap = 0;
     if ($_ !~ /^\#/) {
@@ -25,24 +34,30 @@ for (@new_data) {
        $ap =~ s:^([^/]):/vicep\1:;
     }
     next unless ($as && $ap);
-    
+
     &afs_lock;
     truncate(SRV, 0);
     for (@afs_data) {
        ($c2,$as2,$ap2) = split(/\s+/,$_);
+       next unless ($c2 =~ /^\#/ || $ok{"$c2 $as2 $ap2"});
        print SRV $_ unless ($c eq $c2 && $as eq $as2 && $ap eq $ap2);
     }
     &afs_unlock;
 
-    ($total, $used) = &afs_partinfo($as, $ap, $c);
+    open(VOS,"$vos partinfo $as $ap -cell $c -noauth|");
+    chop(@vos = <VOS>);
+    close(VOS);
     next if ($?);
+    @vos = split(/\s+/,$vos[0]);
+    $total = pop(@vos);
+    $used = $total-$vos[5];
     $alloc = 0;
-    
+
     open(VOS,"$vos listvol $as $ap -cell $c -long -noauth|");
     @vos = <VOS>;
     close(VOS);
     next if ($?);
-    
+
     while ($_ = shift(@vos)) {
        next unless /On-line/;
        local($vn,$id) = split(/\s+/, $_);