linux/store/nightly-fix-suid.pl

   1 #!/store/bin/perl5
   2 #
   3 # Author: Petter Reinholdtsen <pere@td.org.uit.no>
   4 # Date:   1999-04-15
   5 #
   6 # Parse Store nigthly output, and generate list of ssh/rsh commands to
   7 # fix suid/sgid changes.
   8
   9 $lasthost = "";
  10 while (<>) {
  11   chomp;
  12   if (/^\(Info\)  =+ OUTPUT FROM cslave @ (\S+) =+/) {
  13     $host = $1;
  14   }
  15   if (/^ ch(own|grp|mod)/) {
  16     if ($lasthost ne $host) {
  17       $lasthost = $host;
  18       print "\n";
  19       print "ssh $host $_";
  20     } else {
  21       print "\\;$_";
  22     }
  23   }
  24 }