#!/usr/bin/perl -w # $Id: taboo.perl,v 1.4 2007-04-01 00:24:31 junio Exp $ my $tmpl = ' if (%%PATTERN%%) { print "$lineno ${_}matches %%QPATTERN%%\n"; return; } '; my $stmt = ""; my $in_header = 1; while () { if (/^\$global_taboo_body =/) { $in_header = 0; } next if (/^\043/ || /^\$/ || /^END$/ || /^\s*$/); chomp; my $p = $_; if ($in_header) { $p = '/^[-\w_]*:/ && ' . $p; } my $q = quotemeta($p); my $stmt1 = $tmpl; $stmt1 =~ s|%%PATTERN%%|$p|g; $stmt1 =~ s|%%QPATTERN%%|$q|g; $stmt .= $stmt1; } close DATA; $stmt = 'sub check { my ($line, $lineno) = @_; ' . $stmt . ' } '; eval $stmt; while (<>) { check($_, $.); } my $how_to_update_this_script = <<'EOF' ; ( sed -e '/^__DATA__$/q' taboo.perl && \ wget -q -O - http://vger.kernel.org/majordomo-taboos.txt ) \ >taboo.perl+ if diff -u taboo.perl taboo.perl+; \ then \ rm -f taboo.perl+; \ echo >&2 No changes.; \ else \ mv taboo.perl+ taboo.perl; \ chmod +x taboo.perl; \ fi EOF __DATA__ #TABOO-START # # These are Majordomo's global majordomo.cf as used at # vger.kernel.org. This is automated extract from running # system configuration. THESE MIGHT NOT BE USEFULL IN ANY # OTHER ENVIRONMENT, AND THIS EXTRACT IS SHOWN ONLY FOR # YOU TO SEE, WHAT TRIGGERS BLOCKING AT VGER'S LISTS. # # taboo headers to catch # $global_taboo_headers = <<'END'; m/From:.*MAILER-DAEMON/i m/^Mailing-List:/i m/^list-/i /Friend\@public\.com/i /\@sexyfun\.net/i /\@safestory\.com/ /^subject: ndn: /i /^subject:\s*RCPT:/i /^subject:\s*Delivery Confirmation\b/i /^subject:\s*NON-DELIVERY of:/i /^subject:.*Undeliverable Message\b/i /^subject:.*Receipt Confirmation\b/i /^subject:.*Failed mail\b/i /^subject:.*Returned mail\b/i /^subject:.*Linus Bus Factor\b/i /^subject:\s*unable to deliver mail\b/i /^subject:\s.*\baway from my mail\b/i /^subject:\s*Autoreply/i /#field0#/ /\@5Business.cc/i /subject:.*ADV:/i /subject:.*=?ISO-2022-JP?/i /subject:.*Snowhite and the Seven Dwarfs/i m%content-type:.*text/html%i /x-mailing-list:.*\@vger\.kernel\.org/i # DATE: 25 Jun 01 3:08:39 AM m/DATE:\s*..\s...\s..\s.*:..:..\s..\s*$/i m/date:.*=\?.*\?=/i #/charset=.*windows-/i #/charset=.*utf-/i /Bill s\.1618 TITLE III/i /Advanced Mass Sender/i /Jamail / m/subject:.*China-diesel/i m!diesel fuel injection! m/Diffondi/i m/Mail Bomber/ m/X-Mailman-Version:/ m/business letter from Beijing/i m/camelot.co.jp/ m/X-EM-Registration:/ m/x-esmtp:/ m/Local time zone must be set/ m/tangfeng/i m/X-Mailer:.*eMerge/i m/X-Mailer:.Trade-Navigator/i m/=?ISO-8859-1?Q?INFORMA=C7=C3O?=/i m/From:.*MAILER-DAEMON/i m/Subject:.*Antigen / m/From:.*grumph.pakistanmail.com/ m/CLASSIFIED/i m/OTCBB:/ m/Content-Type:.*charset=.*gb2312/ m/Subject:.*=\?big5\?/ m/Subject:.*=\?gb2312\?/ m/X-Mailer:\s+eGroups/ m/netatlantic.com/ m/instrument.com.cn/ m/X-Mailer:.*Group Mail/ m/^Status:/ m/^X-Status:/ m/X-Set:/ m/<>/ m/^Subject:.*=?GB2312?/ m/^X-Mailer:.*JiXing/ m/^X-Mailer:.*MailXSender/ m!Message-Id:.*<.*\@vger.kernel.org>! m!Message-Id:.*<.*\@zeus.kernel.org>! m/Subject:.*detected a virus / #m/Anti-Virus/i m/Subject:.*[Vv]irus [Ff]ound/ m/Subject:.*[Vv]irus [Aa]lert/ m/^Subject:\s*Report to Sender/ m/^Subject:.*AntiVir ALARM/ m/^Subject:.*BEST FILESYSTEM/ m/^Subject:.*REISER4 FOR INCLUSION/ m/^Content-Transfer-Encoding:\s*base64/i m/CONFIDENTIAL/ m/CONFIDENCE/ m/PAYCHECK/ m!^X-Library:\s*Indy! m!Content-Type:\s*application/x-msdownload! m!Conetnt-Type:\s*application/msword! m!MiME-! m!netdev-bounce\@oss\.sgi\.com! m!polyglot.com.cn!i m!Undeliverable:! m!Bullet Proof! m!qzsoft_directmail! m!list of ingredients! m!Power Diet! m!big\@boss\.com! m!from mail pickup service by smtp32.wxs.nl! m!argentina.com!i m!argentina.net!i m!Employment Opportunity!i m!Fudah Sanko!i m!erotik!i m!erotic!i m!kamasutra!i m!URGENT! m!Panda Antivirus ha realizado!i m!movieglobe!i m!Syntax error in! m!^Illegal-Object:! m!Subject:.*paycheck!i m!Subject:.*Urgent\s*Business\s*Request!i m!Subject:.*Urgent\s*Business!i m!Subject:.*Business\s*Request!i m!Subject:.*Mail delivery failure! m!Subject.*\[SPAM\]! m!desease! m!Subject:.*Norton AntiVirus detected! m!X-Spam-Flag:.*YES! m!Subject:.*\sSARS\s!i m!Subject:.*MMS Notification! m!Subject:.*Bitkeeper! m!Subject:.*Switching to the OSL License.*! m!Subject:.*RMS and reactions to him! m!Subject:.*GNU server.*Gimme a break.*! m!Subject:.*MIMEDefang Notification! m!Subject:.*Thank you.*! m!Subject:.*That movie.*! m!Subject:.*Your details.*! m!Subject:.*My details.*! m!Subject:.*\svirus\s!i m!Subject:.* viruses ! m!Subject:.*\sContent.violation! m!Subject:.*Symantec! m!Subject:.*Rejected Mail! m!Subject:.*Report to Recipient! m!Subject:.*You sent potentially! m!Subject:.*Content filtering! m!Subject:.*penis.*!i m!WAVA Postmaster! m!^SUBJECT:! m!Delivered-To:! m!Subject:.*Footprints! m!^From:.*matthewdenton\.com>!i m!Klein Becker! m!kleinbecker! m!MOTSCO! m!paypal! m!\@tcob1.net! m!^From:\s*Majordomo! m!Cheap V.AGRA! m!Subject:\s+fake\s*$! m!lyris.net! m!Subject:\s+Out of Office AutoReply! m!Content-Type: multipart/alternative! m!barrow_dj\@yahoo.com! m!biowiks.com! m!From:.*amavisd-new! m!Subject:.*found.*virus!i m!Subject:.*As Seen on CNN!i m!Subject:.*Winningest!i m!Subject:.*Mail Delivery! m!qiaoxiaol\@126.com!i m!Subject:.*Essential.*Software.*On.*CD!i m!computeradmin.org!i m!dfjndfv.com/! m!LIPITOR! m!VIOXX! m!XANAX! m!CELEBREX! m!PROZAC! m!VALIUM! m!seen it on TV! m!olympic\@! m!test\@216\.! m!Valium! m!Prozac! m!40free.net.ph! m!ScanMail for Lotus Notes! m!InternetBank Agreement! m!X-WEBC-Mail-From-Script:! m!X-Mailer: RLSP Mailer! m!Subject: Rediff\'s Auto Response! m!Subject:.*Linux Kernel Subversion Howto! m!Email account utilization warning! m!From:.*Lyris.List! m!Listar command results! m!EHLO vger.kernel.org! m!HELO vger.kernel.org! m!Subject:\s*BOUNCE ! m!Uncle Den /o m//o m/Cashfiesta.com/o m/BUSINESS RELATIONSHIP/o m/unsubscribe from any mail lists/o m/STOCK SET TO EXPLODE/io m/OTCBB/o m!^Current Price!o m!^Stock:!o m/have received this message in error/o m/SESE-SEKO/o m/ANAND BHATT/io m/modalities/io m/free adult site/io m/mobutu/io m/livechat/io m/softcore/io m/nigeria[. ]/io m/liberia/io m/ghana[. ]/o m/special mailing/io m/STRICTLY CONFIDENTIAL/io m/HIGHLY CONFIDENTIAL/io m/CONFIDENTIAL/o m/URGENT BUSINESS/io m/utmost secrecy/io m/lovecity.ru/io m/cool-date.net/io m/5863 Leslie St/o m!cgi-bin/varpro!o m!EXCITING OFFER!io m!clubdepot!io m!ragazze!io m!indebted for your address!o m!business proposal!io m!probate!io m!beesold.com!io m!which contained the viruses!o m!sales\@!o m!mailcomesandgoes!io #m![\200-\237\241-\377]{8}!o m!^Content-Type: application/ms-tnef!o m!fastbizonline!o m/INTERESSADO ACREDITE/io m/TOTALMENTE GRATIS/io m/TECAVUZ/o m/KIZLAR/o m/KIZLARI/o m/SAPIK/o m/HATUN/o m/GIZLI KAMERA/o m!PAYCHECK!o m!MONEY MAKING OPPORTUNITY!io m!NeuroTherapy!o m!Below is the result of your form!o m!Below is the result of your feedback form!o m!Pheromone!io m!Barrister!io m/risk free transaction/io m/smokesdirect/io m/China Enterprise Management/io m/unido.chinatop.net/io m/Rus-SexServer/o m!lol.to/bbs!o m!Sales-O-Matic!io m!INVESTMENT!o m!INTRODUTION!o m!To grab your FREE!io m!DHS Club !o m!Secure your position in!io m!^X-Library:\s*Indy!o m!singles-contacts!o m!sincerely apologise if this e-mail!o m!^Content-Type:\s*application/x-msdownload!o m!^Content-Type:\s*application/msword!o m!Trial Version of WorldMerge!o m!artofservice!o m!However strange or surprising this contact!o m!business relationship with you!o m!templatestyles\.com!o m!THIS IS A ONE TIME SUBMISSION!io m!YOUR NAME WAS SELECTED!o m!This email is sent in compliance with strict anti-abuse!io m!REVISTAS ERÓTICAS!o m!Erotic magazines!o m!Infosource Group!o m!S. 1618 TITLE III!io m!host4mail!io m!Assine UOL!o m!name of Allah!o m!singles.com!o m!liquid2d!io m!To be removed from any future mailings!o m!qzsoft_directmail!o m!discountshaven!o m!Mensaje automático del sistema!o m!\tname=".*\.pif"!o m!\tname=".*\.PIF"!o m!Sign up for your own PayPal account!o m!Si usted quiere ser removido de nuetra lista envie!io m!CSmtpMsgPart123!o m!Lipotropic!o m!power diet plus!io m!kabila!io m!MARYAM!io m!ABACHA!io m!Employment Opportunity!io m!self motivated people!io m!real world opportunity!io m!EARN EXTRA INCOME!io m!Secret to Multilevel marketing!io m!overseas account!io m!reliable and honest!io m!Auditor General!io m!binding agreement!io m!/take-me-out/!o m!This extraordinary offer!io m!offer ends!io m!to be removed from our email list!io m!EMAIL EXTRACTION!io m!Do not respond by email!io m!prospect!io m!\sopt-in\s!io m!KATHMANDU!io m!/remove-all/!io m!Marijuana Alter!io m!xxxcorner!io m!Jesus Christ!io m!buyer.s club!io m!MINISTRY OF!io m!OTB Computers!io m!No sponsoring required!io m!A ton of helpful Information products!io m!No selling!io m!Couple of weeks old!io m!Pays daily!io m!One time payment of!io m!can pay you up to!io m!Subscription Confirmation!io m!movieglobe!io m!savimbi!io m!political asylum seekers!io m!political asylum!io m!asylum seeker!io m!SEXO SAGRAD!io m!sexosagrado!io m!Decreto S\.1618!io m!/optout/!io m!dragonmail!io m!disikus!io m!^Enough\.!o m! make money with !io m!Opt-Out!io m!Email Marketing!io m!targetted emails!io m!MoreInfoOffShore!io m!If you are a smoker!io m!lenders compete!io m!reainance!io m!Finance Company!io m!hoop-buy!o m!hoop-bid!o m!helpu-web!o m!annuities!o m!Vjagrra!io m!vjaagra!io m!viagra!io m!cialis[^a-z]!io m!twobuswinesdays.com!io m!braceletnewatch.com!io m!garment!io m!UNIVERSITY DIPLOMA!io m!impeached!io m!god fearing!io m!promo code!io m!lead list!io m!referral network!io m!lead list!io m!UK lotto!io m!excuria.com!io m!Visit us on the web!io m!cyberread!io m!ebookstand!io m!\sSARS\s!io m!Customer Relations Department!o m!get your essential copy!io m!protect your privacy now!io m!camfriend!io m!webcam commun!io m!category . winner!io m!mortgage!io m!International Promotion!io m!Cable Descrambler!io m!internet-offer!io m!Mini-Breathalyzer!io m!If you no longer wish to receive our offers and updates!o m!address attached to ticket number!o m! Lottery!io m!captain69!o m!re-analysing Heisenberg!io m!Start der SpamAssassin Auswertung!o m!Please see the attached zip file for details!o m!\.remova-me\.!o m!Our virus scanner detected a virus!o m!Empresa procura!o m!Empreendedor!o m!=TELPHONE JOKES=!o m!To be excluded from future promotions!o m!SmileAtYou!o m!Word-of-Mouth!o m!mortage!io m!the banks know about!io m!lower mortgage repayments!io m!softwaresavings!o m!/cgi/redir!o m!http://btrack.iwon.com/r\.pl\?redir=!o m!best deal on your!o m!VIRUS DETECTED!o m!VIRUS ALERT!o m!TROJAN DETECTED!o m!DID YOU KNOW|A HACKER COULD BE!o m!\e\[B!o m!onlinesaleew!o m!profitableproduct!o m!slashmonthlypayments!o m!dont want any more!o m!dont want me to write any more!o m!Combine your debt into !o m!mail15.com!o m!See the attached file for details!o m!Please see the attached file for details!o m!V I R U S A L E R T!o m! VIRUS NOTIFICATION !o m!%RANDOM_CHAR!o m!Sobiga.F!o m!Sobig\.f!o m!interest on your debt!o m!use this Internet Explorer patch now!o m!UnbelievableSecretsCd!o m! to you as a surprise!o m!Your cash advance !o m!Get your advance today!o m!gallery-a.ru!o m!1automationwiz!o m!A Gift Of Poetry!o m!\sSecurity\s+Company!io m!THE CHILDREN OF GOD!io m!born again Christian!io m!v[i1]c[o0]d[i1]n!io m!v[i1]cidon!io m!Levitra!io m!Blind Date!io m!Due to mix up of some numbers and names!io m! found a new typ of worm!o m!I.ve send you a recover tool, to fix this problem!o m! Strivectin!o m!Klein Becker!o m!lookingforablinddate!o m!looking-for-you.org!io m!smartphonessmart.com!io m!bubbleenveloppe.com!io m! Branded Watches !io m!contact4you\.cc!io m!HalfPriceLotion.com!io m!Compliments of the day!io m!mutual benefit!io m!fiduciary!io m!Academic Qualifications!io m!prestigious NON.ACCREDIT+ED universit!io m!Teledeteccion!io m! ADMINISTRATION TRAINING !o m!lolslideshow.com!o m!Microsale!o m! 123FreeTravel !o m!HGH !o m! Pharmacy !io m!Xanax!o m!Valium!o m!Mlcrosoft !o m!AmericanGreetings!o m!If you are a smoker !o m!parastatal!io m!beneficiary!io m!Bank Account!io m!If you wish to be removed from this mailing list,!io m!sent this to you by mistake!o m!dumpsmarket!o m!with cvv2 information!o m!message contains Unicode characters and has been sent as!o m!The message cannot be represented in 7-bit ASCII encoding!o m!Mail transaction failed. Partial message is available.!o m!www.rxeasymeds!o m!CANADA BOOKS!oi m!visiongain!o m!This is a machine-generated message, please do not reply via email!o m!BATES ALAN!o m!eSafe detected a hostile!o m!drlaurent.com!o m!cartmed.com!o m!medsfactory!o m!Content-Type: application/x-zip-compressed; name=!o m!Avtech Direct!o m!YesPayment!o m!O e-mail abaixo foi descartado !o m!7d8NCOsEajX/1yIxiUXuGlAnm3v7Pvj/C/B1FxQrVCVbcG1rKlwAARgnAgHt2yFbKVgQJmr9!o m!drop the hammer on the next girl!o m!prescribedmeds.com!o m!mdrecommends.com!o m!medspro.com!o m!medspro.net!o m!healthpolicy.com!o m!healthdo.com!o m!improvedpills!o m!newmedformula.com!o m!/sv/index.php!o m!C1AL1S!o m!THE UNCERTAINTY PRIN!o m!MatrixOne Tech Support!o m!NeVeR!o m!Content-Type: application/octet-stream; name=".*\.zip"!o m!new drug that puts!io m!drugsbusiness!o m!V i a g r a!o m!/sv/applepie!o m!/s95/index.php!o m!American Medical Directory!o m!bizdeliver!o m!chick you screw!io m!mardox.com/!o m!Eliminate All Bills!io m!/gp/default.asp!o m!lowerrates4you!io m!ZhongHengLong!o m!upfeeling\.cn!o m!upfeeling\.com!o m!amercenterpub!o m!/knowspam.net/!o m!choicerxsource!o m!virtualcasinoes!o m!casino-4-free.com!o m!\@mailhec\.com!o m!After the age of twenty-one!o m!/hgh/index!o m!affiliate_id=!o m!/affiliate!o m!/lv/index.php!o m!/nomoremail!o m!/gen_ads/!o m!/pr/index.php!o m!/gv/index.php!o m!MEI LUNG HANDICRAFTS!io m!einnews.com!o m!deutsches-panel.com!o m!cablefilterz!o m! Barrow Linux kernel developer!o m!TO BECOME A MEMBER OF THE GROUP!o m!/rd.yahoo.com/!o m!Canadian Subsidies !io m!Canadian Business !io m!C a n a d i a n!io m!Associate Degree!io m!Nutritionist!io m!l0se weight!io m!H[o0][o0]d[i1l]a!io m!advicefound!io m!bestsevendiamonds!io m!/B2B/!io m!fastherb.biz!io m!.tealis.com!io m!message contained restricted attachment!o m!casinoes-4-you!io m!urban-casino!io m!this is an automated reply!io m!this is an automatic reply!io m!this is automatic reply!io m!/av/val/!o m!buycheapdrugs.biz!o m! DEALS on SOFTWARE !io m!teddychoice.biz/!o m!peopleloveit.biz!o m!shyx.biz/!o m!shyxp.biz/!o m!shyx.us/!o m!shyxp.us/!o m!sharyx.us/!o m!loveforlust.biz!o m!>Zitat:Zitat