#!/usr/local/bin/perl ############################################################################### # Aktuelle Wartungs- und Stoerungsmeldungen aus msg -a -> HTMLified #------------------------------------------------------------------------------ # 21.11.1997 uli ############################################################################### use CGI; $startflag = 1; $headline = 0; $lastlinebr = 0; open MSG, "/usr/local/etc/httpd/bin/msg -a|" || die "Fehler beim Messages lesen"; @msglines = ; close (MSG); print < RZ Uni KA: Wartungs- und Stoerungsmeldungen

Wartungs- und Störungsmeldungen

EOF


foreach $line (@msglines){

  $line =~ s/\&/\&\;/g;
  $line =~ s//\>\;/g;

  if ($line =~ /^Z+$/ ) {
     print "\n" if (!$startflag);
     $headline = 1;
  } elsif ($line =~ /^$/ ) {
     print "
\n" if (!lastlinebr);
  } elsif ($line =~ /^=+$/ ) {
     print " "; 
     $lastlinebr = 1;
  } elsif ($line =~ /^---$/ ) {
     print "\n"; 
     $startflag = 0;
  } else {
     print "\n" if ($headline); 
     if ($line =~ /(.*)\((.+)\@(.+)\)(.*)/ ) {
       print "$1 ($2\@$3.rz.uni-karlsruhe.de)$4\n";
     } else {
       print $line;
     }
     if ($headline) {
       print "\n"; 
       $headline = 0;
     }
     $lastlinebr = 1;
  }
}

 $mday = (localtime)[3];
 $mon = (Januar, Februar, Maerz, April, Mai, Juni, Juli, August, September, Oktober, November, Dezember)[(localtime)[4]];
 $year = (localtime)[5]+1900;
 $curdate = "$mday. $mon $year";
 print "

RZ-Webmaster / $curdate\n"; print <

EOF

Wartungs- und Störungsmeldungen

\n" if ($headline); if ($line =~ /(.*)\((.+)\@(.+)\)(.*)/ ) { print "$1 ($2\@$3.rz.uni-karlsruhe.de)$4\n"; } else { print $line; } if ($headline) { print "

\n" if ($headline); if ($line =~ /(.)\((.+)\@(.+)\)(.)/ ) { print "$1 ($2\@$3.rz.uni-karlsruhe.de)$4\n"; } else { print $line; } if ($headline) { print "