# newscliprc -- will be required from newsclip; not independently # executable $DEBUG = 0; $NNTPSERVER = "csnews.cs.colorado.edu"; $SPOOLDIR = "/usr/spool/news"; $NEWSLIB = "/usr/local/lib/news"; $HOMETMP = "$HOME/tmp"; $HOMEBIN = "$HOME/scripts"; $MAXLOAD = 18; $PMOUT = 300; $NICE = 4; # $0 = "(see ~tchrist/README.clip)"; &NGSKIP(<<'END'); study; # these i already read &skip if /comp\.lang\.perl/; &skip if /comp\.org\.usenix/; &skip if /comp\.unix\.user-friendly/; &skip if /comp\.sys\.(convex|super)/; # these i never care to read, although # this is probably overly aggressive # &skip if /alt\.sources\.index/; &skip if /misc\.books\.technical/; &skip if /soc\.culture\.jewish/; # scj bogus hits &skip if /rec\.arts\.tv\.soaps/; # scj bogus hits &skip if /control/; &skip if /\.binaries\./; &skip if /^convex/; &skip if /fj\./; &skip if /junk/; &skip if /comp\.unix\.sysv386/; &skip if /comp\.mail\.maps/; &skip if /news\.lists\.ps-maps/; &skip if /\bstats\b/; END &SCANNER(<<'END'); if (/\btchrist\b/i || /tom[^\0]christ(ia|e)ns[eo]n/i) {{ # grr... next if /\n\s*Tom Christiansen\s+tchrist\@\S*colorado\.edu/; &hit; }} ################# # larry in his various guises if (/larry[^\0]wall/i) {{ #next if $' =~ /\nlwall\@/; next if $` =~ /LEWALL\@AMOCO\.COM/; # imposter next if /The kernel IS a continuously/; next if /The road to hell is paved with melting snowballs/; next if /agree on the necessity of compromise/; next if /I only care whether Doug/; next if /A Perl script is correct/i; next if /next unless \/\$clue/i; next if /have a nice day kibo/i; next if /three great virtues/; next if /usenet was not designed/i; &hit; }} elsif (/\blwall\b/i) { &hit; } elsif (/\b\warry[^0]\wall\b/i) { &hit; } &hit if /-lw\b/i; if (/\bl\.\s+wall\b/) {{ next if /a perl script is correct if it's/i; &hit; }} ################# # other famous people &hit if /\bgloria[^\0]wall/i; &hit if /\bsharon[^\0]hopkins/i; &hit if /\bjeff[^\0]polk\b/i; &hit if /\btony[^\0]sanders\b/i; &hit if /\beri[ck][^\0]all?m[ae]n\b/i; &hit if /\brandal[^\0]schwartz\b/i; &hit if /\beri[ck][^\0]allm[ae]n\b/i; &hit if /\brick[^\0]add?ams\b/i; &hit if /\bscj\b/i; &hit if /\bste(v|ph)en?\s+(c\.?\s+)?johnson\b/i; &hit if /\b(marshall[^\0])?kirk[^\0]mckusick\b/i; &hit if /\bden+is[^\0](m\.?[^\0]?)?rit?chie?\b/i; # junk for kevin &hit if /\bkevin[^\0](s\.[^0])?kelm\b/i; &hit if /\bks?kelm\b/i; # &hit if /\bbosco\b/i; &hit if /\bu4ia\b/i; if (/\bmegawatts\b/i) {{ next if $' =~ /^\s*of\s+/; next if $` =~ /\d+\s*$/; &hit; }} &hit if /\bman\s+(command|utility|program)/i; if (/\bdmr\b/) {{ next if /Renfrow/; next if /msuinfo.cl.msu.edu/; next if /Life's never so good/; next if /Daniel M\. Rosenberg/; next if /andromeda/; next if /medicated\.corp\.sun\.com/i; next if /apmaths\.uwo\.ca/; next if $` =~ /tom\@$/; &hit; }} ################# if (/usenix/i) { &hit unless /Usenix member # \d+/; } if (/\bSAGE\b/) {{ next if /CARL\s+L\s+SAGE/; next if /BABBLING\s+SAGE/; next if /SAGE\.CC\.PURDUE\.EDU/; &hit; }} ################# if (/\bmh\b/i) {{ next unless /\bplum\b/i; # make sure plum is last match &hit; }} &hit if /\bbsd4\.4\b/i; &hit if /berkeley[^\-]unix/i; if (/\bperl\b/i) {{ next if /Perl programming method number 3/; next if /recent perl convert/i; next if $' =~ /^\@/; next if /Perl doesn't mind a little pluralism/; next if /When the only tool you have is Perl, the whole/; next if $' =~ /^ "Configure script/; next if $` =~ /Ireland $/; next if $' =~ /adjusted for inflation/; next if $' =~ /^ "Configure script/i; next if $` =~ /Ireland $/; next if /a perl script is correct if it's/i; next if $` =~ /!$/; next if /Perlman/; next if /Will Hack Perl for Fine Food and Fun/i; next if /Roy M\. Silvernail/; next if /Lyngbyvej/; next if /Perlberg/; next if /Dan(iel)? Perl/; next if /Kibo Turkey Greece Perl Watcom - defeat Usenet spool grepping!/; next if /Daniel Smith/; next if /\.signature/; # damned viruses &hit; }} if (/\bconvex\b/i) {{ # next if $` =~ /Xref/; next if /Danny Faught, Convex rookie/; next if /root\@chpc/; next if $` =~ /\@$/; # mail addrs next if $` =~ /uunet,$/; # mail addrs next if /(\w+\.)?convex\.com/i; # more mail addrs next if $' =~ /^}?!/; # still more mail addrs next if $' =~ /\bset\b/; next if $' =~ /\blens\b/; next if $' =~ /^ rookie,/; # sig next if /\blens(es)?\b/; next if /Convex Computer Corp/i; next if /Danny Faught -- Convex -- MPP OS Test/; next if /,\s*convex\s*,/; next if /concave/; next if $' =~ /poly(hedr(a|on)|gon)/; next if $' =~ /^\s+sets?/; next if $' =~ /Equal Opportunity Employer/; next if $' =~ /solids?/; next if $' =~ /^\s+mirror/i; next if $' =~ /^\s+polyhedra/i; next if $' =~ /^\s+hull/i; next if $' =~ /^\s+triad/i; next if /CONVEX Computer Canada Ltd/; next if /Convex Co\., PO Box 833851, Richardson TX 75083-3851/; &hit; }} &hit if /\bvhll\b/i; &hit if /high[^\0]level[\0]language/i; ################# <<'IGNORE'; if (/\bcluster\b/) {{ next if $nglist =~ /bionet/; next if $nglist !~ /\bcomp\b/; next if $nglist =~ /comp\.os\.vms/; next if $' =~ /^ control/; next if $` =~ /local-$/; next if /galax/; &hit; }} &hit if /\bDQS\b/i; &hit if /\bPVM\b/i; &hit if /\bHeNCE\b/; &hit if /Open[^\0]?View/; IGNORE if (/tivoli/i) {{ next if /\@tivoli\./i; # mail addr next if $' =~ /^\.com/i; # mail addr next if /copenhagen/i; next if /coaster/; next if $' =~ /gardens/i; &hit; }} if (/netlabs/i) { &hit unless $` =~ /^\.com/; } ################# &hit if /\bvegas\b/i && (/virtual[^\0]realit/i || /\bv\.?\s*r\.?/i); ################# # for kevin... or me??? if ($nglist =~ /misc\.jobs\.(misc|offered)\b/) {{ &hit if /colorado/i; if (/boulder/i) { &hit unless /National Career Search/; } &hit if /longmont/i; &hit if /lyons/i; &hit if /lewisville?/i; }} END 1;