home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / convex / errlogd < prev    next >
Encoding:
Text File  |  1990-03-02  |  4.4 KB  |  136 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # beware the nasty modeline --> vi:set ts=6|set sw=3:
  4. #
  5. #
  6. # errlogd: forward spu:/mnt/errlog to do syslogd
  7. # until we merge do syslog and errlog, this'll have to do.
  8. #
  9. # periodically examine spu's errlog file for growth since last time
  10. # looked.  retrieve only new part, discarding date stamps, and do syslog'ing
  11. # with facility class LOCAL0 anything else, priority set to be INFO for
  12. # routine stuff and NOTICE for other stuff.  reserve higher pris for
  13. # internal problems.  note that you only see things that occur while JP
  14. # running, ie, no panic messages, diags, etc.
  15. #
  16. # written by tom christiansen
  17.  
  18. ($program = $0) =~ s%.*/%%;
  19.  
  20. $\ = "\n"; $! = 0;
  21.  
  22. # magic to check for run time switches
  23. eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
  24.  
  25. $priority = "warn" unless $priority; # should really 
  26. $facility = "local0" unless $facility;
  27. $sleep = 3 unless $sleep;
  28. $sleep *= 60;
  29.  
  30. die "$program: not superuser\n" if $>;
  31. die "$program: usage error; see man page\n" if $#ARGV > $[;
  32.  
  33. # wanna get this:
  34. #    + ls -l /mnt/errlog -rw-rw-rw- 1 root       5613 Feb  4 15:51 /mnt/errlog
  35. #    0 1  2  3            4        5 6          7    8    9 10    11
  36. #
  37. again:
  38. $log = `/usr/convex/spucmd ls -l /mnt/errlog 2>&1 `;
  39. @log = split(/\s+/,$log);
  40. #die "$program: initial /usr/convex/spucmd exited ".($?>>8)."\n" if $?;
  41.  
  42. if ($#log != 11) {
  43.    #do syslog("err","initial /usr/convex/spucmd seems misformatted: ".join(@log,' ')."\n");
  44.    sleep 60;
  45.    goto again;
  46. }
  47.  
  48. $size = $log[7];
  49.  
  50. do syslog("debug","startup, spu:/mnt/errlog @ $size bytes");
  51.  
  52. if (open(pidlog, ">/usr/adm/tmp/errlogd.pid")) {
  53.     print pidlog $$;
  54.     close pidlog;
  55. } else {
  56.    do syslog("err","couldn't log pid $$");
  57. } 
  58.  
  59.  
  60. foreach $signal ((
  61.    'QUIT', 'ILL', 'TRAP', 'IOT', 'EMT', 'FPE', 'BUS', 'SEGV', 'SYS', 
  62.    'PIPE', 'ALRM', 'TERM', 'URG', 'IO', 'POLL', 'XCPU', 'XFSZ', 'VTALRM', 
  63.    'PROF', 'LOST', 'USR1', 'USR2' ))
  64. {
  65.     $SIG{$signal} = 'godown';
  66. } 
  67.  
  68. $SIG{'ALRM'} = "IGNORE"; # spurious SIGALRMs by impatient sysadmins
  69. $SIG{'HUP'}  = "reboot"; # why do this?  new script i guess
  70.  
  71. for (;;) {
  72.    sleep $sleep;
  73.    @log = split(/\s+/,`/usr/convex/spucmd ls -l /mnt/errlog 2>&1`);
  74.  
  75.    if ($?) {
  76.     #do syslog("notice", "/usr/convex/spucmd exited ".($?>>8));
  77.     next;                 # maybe should exit
  78.    }
  79.  
  80.    if ($#log != 11) {
  81.     #do syslog("notice", "\`/usr/convex/spucmd ls -l /mnt/errlog\` seems misformatted: \"".join(' ',@log)."\"" );
  82.     next;                 # maybe should exit
  83.    } 
  84.    next if $log[7] == $size;         # no growth
  85.    if ($log[7] < $size) {
  86.     do syslog("debug", "spu:/mnt/errlog just shrank from " .
  87.         $size . " to " . $log[7] . " bytes long");
  88.     $size = 0;     # negative growth; assume new file
  89.    }
  90.    $tail = sprintf("/usr/convex/spucmd tail +%dc /mnt/errlog | ",$size+1);
  91.    $size = $log[7];
  92.    open tail || (do syslog("err","can't open \"$tail\": $!"), next);
  93.    $oldwho = "";                # no previous logger 
  94.    while(<tail>) {
  95.       next if /<(Mon|Tue|Wed|Thu|Fri|Sat|Sun) (Jan|Feb|Mar|Apr|May|Ju[nl]|Aug|Sep|Oct|Nov|Dec) [ 123]\d \d+>$/ || /CPU date\/time changed/ ;    # skip ugly datestamps
  96.       ($who,$which,$when,$msg) =     # parse message
  97.           /^\[(SPU|C[CP]U)(\d*)[_ ]*@(\d\d.\d\d.\d\d\])\s*(.*)/;
  98.       $who =~ tr/A-Z/a-z/;        # tolower
  99.       $which += 0 if length($which); # force string to numeric to trim leading 0
  100.       next unless $who;        # race condition?
  101.       $who .= $which if length($which); # catenate unit number of cpu or ccu
  102.       if ( $who ne $oldwho ) {
  103.           close logger if $oldwho;    # logger id (spu,ccuX,..) changed
  104.           $pri = $priority;        # assume defualt level unless boring
  105.           $pri = "notice" if /sniff/ || /\bta\d+:/ || /NFS/; # too boring to biff us for
  106.           $logger = sprintf("| logger -t %s -p %s.%s", $who, $facility, $pri);
  107.           open logger ||(do syslog("err","\"$logger\" wouldn't open: $!"),last);
  108.         select(logger); $| = 1;    # unbuffer PIPE, just in case
  109.           select(stdout);        # just in case
  110.           $oldwho = $who;        # remember who just spoke
  111.       } 
  112.       print logger $msg;        # off to syslog we go
  113.    }
  114.    close logger if $oldwho;        # send EOF to logger PIPE if one started
  115.    close tail;                # until next time
  116. }  # forever loop
  117.  
  118.  
  119. # usage: do syslog("alert","some message string"); 
  120. sub syslog {
  121.    local ($level,$message) = @_;
  122.    system "logger","-t",$program,"-p",$facility.".".$level,$message;
  123. }
  124.  
  125. # generic interrupt handler
  126. sub godown {
  127.    local($signal) = @_;
  128.    do syslog("notice","going down on SIG$signal");
  129.    exit(1);
  130. } 
  131.  
  132. sub reboot {
  133.    do syslog("notice","restarting $mypath");
  134.    exec($mypath);
  135. } 
  136.