Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 222 deletions

diff --git a/contrib/perl5/eg/scan/scan_messages b/contrib/perl5/eg/scan/scan_messages
deleted file mode 100644
index 6cf0997..0000000
--- a/contrib/perl5/eg/scan/scan_messages
+++ /dev/null
@@ -1,222 +0,0 @@
-#!/usr/bin/perl -P
-
-# $RCSfile: scan_messages,v $$Revision: 4.1 $$Date: 92/08/07 17:20:37 $
-
-# This prints out extraordinary console messages.  You'll need to customize.
-
-chdir('/usr/adm/private/memories') || die "Can't cd to memories: $!\n";
-
-$maxpos = `cat oldmsgs 2>&1`;
-
-#if defined(mc300) || defined(mc500) || defined(mc700)
-open(Msgs, '/dev/null') || die "scan_messages: can't open messages";
-#else
-open(Msgs, '/usr/adm/messages') || die "scan_messages: can't open messages";
-#endif
-
-($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
-   $blksize,$blocks) = stat(Msgs);
-
-if ($size < $maxpos) {		# Did somebody truncate messages file?
-    $maxpos = 0;
-}
-
-seek(Msgs,$maxpos,0);		# Start where we left off last time.
-
-while (<Msgs>) {
-    s/\[(\d+)\]/#/ && s/$1/#/g;
-#ifdef vax
-    $_ =~ s/[A-Z][a-z][a-z] +\w+ +[0-9:]+ +\w+ +//;
-    next if /root@.*:/;
-    next if /^vmunix: 4.3 BSD UNIX/;
-    next if /^vmunix: Copyright/;
-    next if /^vmunix: avail mem =/;
-    next if /^vmunix: SBIA0 at /;
-    next if /^vmunix: disk ra81 is/;
-    next if /^vmunix: dmf. at uba/;
-    next if /^vmunix: dmf.:.*asynch/;
-    next if /^vmunix: ex. at uba/;
-    next if /^vmunix: ex.: HW/;
-    next if /^vmunix: il. at uba/;
-    next if /^vmunix: il.: hardware/;
-    next if /^vmunix: ra. at uba/;
-    next if /^vmunix: ra.: media/;
-    next if /^vmunix: real mem/;
-    next if /^vmunix: syncing disks/;
-    next if /^vmunix: tms/;
-    next if /^vmunix: tmscp. at uba/;
-    next if /^vmunix: uba. at /;
-    next if /^vmunix: uda. at /;
-    next if /^vmunix: uda.: unit . ONLIN/;
-    next if /^vmunix: .*buffers containing/;
-    next if /^syslogd: .*newslog/;
-#endif
-    next if /unknown service/;
-    next if /^\.\.\.$/;
-    if (/^[A-Z][a-z][a-z] [ 0-9][0-9] [ 0-9][0-9]:[0-9][0-9]/) {
-	$pfx = '';
-	next;
-    }
-    next if /^[ \t]*$/;
-    next if /^[ 0-9]*done$/;
-    if (/^A/) {
-	next if /^Accounting [sr]/;
-    }
-    elsif (/^C/) {
-	next if /^Called from/;
-	next if /^Copyright/;
-    }
-    elsif (/^E/) {
-	next if /^End traceback/;
-	next if /^Ethernet address =/;
-    }
-    elsif (/^K/) {
-	next if /^KERNEL MODE/;
-    }
-    elsif (/^R/) {
-	next if /^Rebooting Unix/;
-    }
-    elsif (/^S/) {
-	next if /^Sun UNIX 4\.2 Release/;
-    }
-    elsif (/^W/) {
-	next if /^WARNING: clock gained/;
-    }
-    elsif (/^a/) {
-	next if /^arg /;
-	next if /^avail mem =/;
-    }
-    elsif (/^b/) {
-	next if /^bwtwo[0-9] at /;
-    }
-    elsif (/^c/) {
-	next if /^cgone[0-9] at /;
-	next if /^cdp[0-9] at /;
-	next if /^csr /;
-    }
-    elsif (/^d/) {
-	next if /^dcpa: init/;
-	next if /^done$/;
-	next if /^dts/;
-	next if /^dump i\/o error/;
-	next if /^dumping to dev/;
-	next if /^dump succeeded/;
-	$pfx = '*' if /^dev = /;
-    }
-    elsif (/^e/) {
-	next if /^end \*\*/;
-	next if /^error in copy/;
-    }
-    elsif (/^f/) {
-	next if /^found /;
-    }
-    elsif (/^i/) {
-	next if /^ib[0-9] at /;
-	next if /^ie[0-9] at /;
-    }
-    elsif (/^l/) {
-	next if /^le[0-9] at /;
-    }
-    elsif (/^m/) {
-	next if /^mem = /;
-	next if /^mt[0-9] at /;
-	next if /^mti[0-9] at /;
-	$pfx = '*' if /^mode = /;
-    }
-    elsif (/^n/) {
-	next if /^not found /;
-    }
-    elsif (/^p/) {
-	next if /^page map /;
-	next if /^pi[0-9] at /;
-	$pfx = '*' if /^panic/;
-    }
-    elsif (/^q/) {
-	next if /^qqq /;
-    }
-    elsif (/^r/) {
-	next if /^read  /;
-	next if /^revarp: Requesting/;
-	next if /^root [od]/;
-    }
-    elsif (/^s/) {
-	next if /^sc[0-9] at /;
-	next if /^sd[0-9] at /;
-	next if /^sd[0-9]: </;
-	next if /^si[0-9] at /;
-	next if /^si_getstatus/;
-	next if /^sk[0-9] at /;
-	next if /^skioctl/;
-	next if /^skopen/;
-	next if /^skprobe/;
-	next if /^skread/;
-	next if /^skwrite/;
-	next if /^sky[0-9] at /;
-	next if /^st[0-9] at /;
-	next if /^st0:.*load/;
-	next if /^stat1 = /;
-	next if /^syncing disks/;
-	next if /^syslogd: going down on signal 15/;
-    }
-    elsif (/^t/) {
-	next if /^timeout [0-9]/;
-	next if /^tm[0-9] at /;
-	next if /^tod[0-9] at /;
-	next if /^tv [0-9]/;
-	$pfx = '*' if /^trap address/;
-    }
-    elsif (/^u/) {
-	next if /^unit nsk/;
-	next if /^use one of/;
-	$pfx = '' if /^using/;
-	next if /^using [0-9]+ buffers/;
-    }
-    elsif (/^x/) {
-	next if /^xy[0-9] at /;
-	next if /^write [0-9]/;
-	next if /^xy[0-9]: </;
-	next if /^xyc[0-9] at /;
-    }
-    elsif (/^y/) {
-	next if /^yyy [0-9]/;
-    }
-    elsif (/^z/) {
-	next if /^zs[0-9] at /;
-    }
-    $pfx = '*' if /^[a-z]+:$/;
-    s/pid [0-9]+: //;
-    if (/last message repeated ([0-9]+) time/) {
-	$seen{$last} += $1;
-	next;
-    }
-    s/^/$pfx/ if $pfx;
-    unless ($seen{$_}++) {
-	push(@seen,$_);
-    }
-    $last = $_;
-}
-$max = tell(Msgs);
-
-open(tmp,'|sort >oldmsgs.tmp') || die "Can't create tmp file: $!\n";
-while ($_ = pop(@seen)) {
-    print tmp $_;
-}
-close(tmp);
-open(tmp,'oldmsgs.tmp') || die "Can't reopen tmp file: $!\n";
-while (<tmp>) {
-    if (/^nd:/) {
-	next if $seen{$_} < 20;
-    }
-    if (/NFS/) {
-	next if $seen{$_} < 20;
-    }
-    if (/no carrier/) {
-	next if $seen{$_} < 20;
-    }
-    if (/silo overflow/) {
-	next if $seen{$_} < 20;
-    }
-    print $seen{$_},":\t",$_;
-}
-
-print `rm -f oldmsgs.tmp 2>&1; echo $max > oldmsgs 2>&1`;