Patch: Pruning `changed link' messages

[Anders Christensen]

Version 1.73; patch 004: Pruning `changed link' output

This patch, written by Arne Juul, introduces pruning of the output
from the nightly job. It reduces the double messages of the type:
`Changing link <- oldlink' and then the `newlink' on the next line.
The objective of the patch is to reduce the noice in the nightly
output.

The message is only suppressed if:

 1) The old and the new links both points to applications carrying the
    same name. 

 2) The old and the new links both points to the same store. 

If neither of these apply, then one line of message is printed per 
application having links that have changed. In addition, the number 
of changed links are listed too. 

diff -ur ver-1.73/lib/client.pl current/lib/client.pl
--- ver-1.73/lib/client.pl	Tue Aug 22 19:03:53 1995
+++ current/lib/client.pl	Wed Aug 23 19:12:32 1995
@@ -263,6 +263,7 @@
        &'output('Info', "Missing links:\n") ;
        &'fancylist(@misslink) if ( $'debug & $'INFO ) ;
    }
+   undef %chv ;
    for ( sort @chlinks ) {
        ( $fr, $to ) = ( m|(.*)\n->\n(.*)| ) ;
        undef $tors;
@@ -301,13 +302,18 @@
 	      $ch .= "store, was \@ $frst -> $toap v$tovr \@ $tost" ;
 	  } else {
 	      $ch .= "version $frvr -> $tovr" ;
-              $outputlevel = 'Info' ;
+		 ++$chv{"version $frvr -> $tovr \@$tost"} ;
+		 next ;
 	  }
           $ch .= " for $tors\n" ;
           &'output($outputlevel, $ch);
       } else {
 	  &'output('Warning', "Changed link <- $fr\n             -> $to\n");
       }
+   }
+   while ( ($mess, $num) = each %chv ) {
+       &'output('Info', "$num links changed $mess\n",
+		  '', $linktree, $frapp, '');
    }
    return ;
 }