home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / eg / scan / scan_messages < prev    next >
Encoding:
Text File  |  1994-12-26  |  5.0 KB  |  100 lines  |  [TEXT/MPS ]
  2.     }
  3.     elsif (/^n/) {
  4.     next if /^not found /;
  5.     }
  6.     elsif (/^p/) {
  7.     next if /^page map /;
  8.     next if /^pi[0-9] at /;
  9.     $pfx = '*' if /^panic/;
  10.     }
  11.     elsif (/^q/) {
  12.     next if /^qqq /;
  13.     }
  14.     elsif (/^r/) {
  15.     next if /^read  /;
  16.     next if /^revarp: Requesting/;
  17.     next if /^root [od]/;
  18.     }
  19.     elsif (/^s/) {
  20.     next if /^sc[0-9] at /;
  21.     next if /^sd[0-9] at /;
  22.     next if /^sd[0-9]: </;
  23.     next if /^si[0-9] at /;
  24.     next if /^si_getstatus/;
  25.     next if /^sk[0-9] at /;
  26.     next if /^skioctl/;
  27.     next if /^skopen/;
  28.     next if /^skprobe/;
  29.     next if /^skread/;
  30.     next if /^skwrite/;
  31.     next if /^sky[0-9] at /;
  32.     next if /^st[0-9] at /;
  33.     next if /^st0:.*load/;
  34.     next if /^stat1 = /;
  35.     next if /^syncing disks/;
  36.     next if /^syslogd: going down on signal 15/;
  37.     }
  38.     elsif (/^t/) {
  39.     next if /^timeout [0-9]/;
  40.     next if /^tm[0-9] at /;
  41.     next if /^tod[0-9] at /;
  42.     next if /^tv [0-9]/;
  43.     $pfx = '*' if /^trap address/;
  44.     }
  45.     elsif (/^u/) {
  46.     next if /^unit nsk/;
  47.     next if /^use one of/;
  48.     $pfx = '' if /^using/;
  49.     next if /^using [0-9]+ buffers/;
  50.     }
  51.     elsif (/^x/) {
  52.     next if /^xy[0-9] at /;
  53.     next if /^write [0-9]/;
  54.     next if /^xy[0-9]: </;
  55.     next if /^xyc[0-9] at /;
  56.     }
  57.     elsif (/^y/) {
  58.     next if /^yyy [0-9]/;
  59.     }
  60.     elsif (/^z/) {
  61.     next if /^zs[0-9] at /;
  62.     }
  63.     $pfx = '*' if /^[a-z]+:$/;
  64.     s/pid [0-9]+: //;
  65.     if (/last message repeated ([0-9]+) time/) {
  66.     $seen{$last} += $1;
  67.     next;
  68.     }
  69.     s/^/$pfx/ if $pfx;
  70.     unless ($seen{$_}++) {
  71.     push(@seen,$_);
  72.     }
  73.     $last = $_;
  74. }
  75. $max = tell(Msgs);
  76.  
  77. open(tmp,'|sort >oldmsgs.tmp') || die "Can't create tmp file: $!\n";
  78. while ($_ = pop(@seen)) {
  79.     print tmp $_;
  80. }
  81. close(tmp);
  82. open(tmp,'oldmsgs.tmp') || die "Can't reopen tmp file: $!\n";
  83. while (<tmp>) {
  84.     if (/^nd:/) {
  85.     next if $seen{$_} < 20;
  86.     }
  87.     if (/NFS/) {
  88.     next if $seen{$_} < 20;
  89.     }
  90.     if (/no carrier/) {
  91.     next if $seen{$_} < 20;
  92.     }
  93.     if (/silo overflow/) {
  94.     next if $seen{$_} < 20;
  95.     }
  96.     print $seen{$_},":\t",$_;
  97. }
  98.  
  99. print `rm -f oldmsgs.tmp 2>&1; echo $max > oldmsgs 2>&1`;
  100.