From 989312339ea2e16579803a48700628c5469e327a Mon Sep 17 00:00:00 2001
From: Tar Committer <tar@ocjtech.us>
Date: Mon, 12 Jan 2004 03:17:26 +0000
Subject: Imported from rancid-2.3.rc1.tar.gz.

---
 share/rtrfilter.in | 164 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 164 insertions(+)
 create mode 100644 share/rtrfilter.in

(limited to 'share/rtrfilter.in')

diff --git a/share/rtrfilter.in b/share/rtrfilter.in
new file mode 100644
index 0000000..9807e1f
--- /dev/null
+++ b/share/rtrfilter.in
@@ -0,0 +1,164 @@
+#! @PERLV_PATH@
+##
+## $Id: rtrfilter.in,v 1.13 2004/01/11 03:43:50 heas Exp $
+##
+## Copyright (C) 1997-2004 by Terrapin Communications, Inc.
+## All rights reserved.
+##
+## This software may be freely copied, modified and redistributed
+## without fee for non-commerical purposes provided that this license
+## remains intact and unmodified with any RANCID distribution.
+##
+## There is no warranty or other guarantee of fitness of this software.
+## It is provided solely "as is".  The author(s) disclaim(s) all
+## responsibility and liability with respect to this software's usage
+## or its effect upon hardware, computer systems, other software, or
+## anything else.
+##
+## Except where noted otherwise, rancid was written by and is maintained by
+## Henry Kilmer, John Heasley, Andrew Partan, Pete Whiting, and Austin Schutz.
+##
+#
+# rtrtfilter - "| rtrfilter -x <perl regex> -i <perl regex> -f <regex file> \
+#	-u <From address> -s <subject> <rcpts>"
+#	expects to read an email message on stdin containing a diff from
+# rancid and emails a filtered copy to <rcpts> with the subject of the
+# original msg or the contents of -s <subject>.  the perl regex(es) specified
+# via -x or -i (exclusive and inclusive, respectively) are applied to the
+# router names (i.e.: files) from the "Index:" of the diff o/p.  alternatively,
+# the regex's may be specified in -f <regex file> in the form:
+#	# comment
+#	x <regex>
+#	# comment
+#	i <regex>
+# do not include /'s in the regex's.
+# e.g.:
+#	#i	inc1
+#	i	a0[12]\.
+#	i	a0[34]\.
+#	# comment
+#	x router\.db
+#	x ^r0[0-9]
+#	#i foo
+#
+# exclusion takes precedence and defaults to nothing.  inclusion defaults to
+# everything.
+#	
+# this program requires the Mail::Mailer module which can be found on CPAN.
+##
+BEGIN {
+$me = $0;
+$me =~ s/.*\/(\S+)$/$1/;
+}
+
+require 'newgetopt.pl';
+use Mail::Mailer;
+
+# process command line options
+$newgetopt'ignorecase=0;
+$newgetopt'autoabbrev=1;
+$result = &NGetOpt('h','x=s@','i=s@','f=s','s=s');
+&usage($result) if (defined($opt_h) || $result == 0);
+
+if ($#ARGV < 0) {
+    usage;
+}
+my($rcpts) = join(',', @ARGV);
+
+# if specified, read the regex file and append to @opt_i / @opt_x
+if (defined($opt_f)) {
+    open(FILE, "< $opt_f") || die "Cant open the regex file $opt_f: $!";
+
+    while (<FILE>) {
+	next if (! /^(i|x)\s+(.*$)/);
+	#/(i|x)\s+(.*)$/;
+	if ($1 eq "i" ) {
+	    push(@opt_i, $2);
+	} else {
+	    push(@opt_x, $2);
+	}
+    }
+    close(FILE);
+}
+
+# read the header, grok the subject line
+my($subject, $from);
+while (<STDIN>) {
+    last if (/^$/);
+    if (s/^from: //i) {
+	chomp;
+	$from = $_;
+    }
+    if (s/^subject: //i) {
+	chomp;
+	$subject = $_;
+    }
+}
+if (defined($opt_s)) { $subject = $opt_s;}
+if (defined($opt_u)) { $from = $opt_u;}
+
+# filter the remainder of the mail.  save mail in memory to avoid empty msgs
+my(@mail);
+my($skip) = 1;
+while (<STDIN>) {
+    # look for /^Index: ", the filtering key
+    if (/^Index: (.*)$/) {
+	# strip the directory before passing to filter()
+	my($line) = ($1 =~ /.*\/([^\/\s]*)$/);
+	$skip = filter($line);
+    }
+
+    next if ($skip);
+
+    push(@mail, $_);
+}
+
+# send mail, if any
+if ($#mail < 0) { exit; }
+$mailer = new Mail::Mailer 'sendmail', ('-t');
+$headers{From} = $from;
+$headers{"Reply-To"} = $from;
+$headers{"Errors-To"} = $from;
+$headers{Subject} = $subject;
+$headers{To} = $rcpts;
+$headers{Precedence} = "bulk";
+
+$mailer->open(\%headers);
+print $mailer @mail;
+$mailer->close;
+
+exit;
+
+# filter $line inclusive/exclusive (0 / 1)
+sub filter {
+    my($line) = shift;
+
+    # exclusion
+    if (defined(@opt_x)) {
+	foreach $regex (@opt_x) {
+	    if ($line =~ /$regex/) { return(1); }
+	}
+    }
+
+    # inclusion / default inclusion
+    if (! @opt_i) { return(0); }
+    foreach $regex (@opt_i) {
+	if ($line =~ /$regex/) { return(0); }
+    }
+
+    # inclusion regex specified, but fall through
+    return(1);
+}
+
+sub usage {
+    print STDERR <<USAGE;
+usage: $me [-h] [-i <perl regex>] [-x <perl regex>] [-f <regex file>] [-u <From: address>] [-s <subject>] <mail rcpt> [<rcpt> ...]
+	-h prints this message
+	-f file containing perl regex matching router names (mind the cwd())
+	-i perl regex matching router names (inclusive)
+	-u From: address
+	-s mail subject
+	-x perl regex matching router names (exclusive)
+USAGE
+ exit $_;
+}
-- 
cgit