[filters.git] / censor

#!/usr/bin/perl
# Censor filter.
# Copyright 2002 by Joey Hess under the terms of the GNU GPL.

# Yes, this program is self-modifying code, if you want it to be.
if (exists $ENV{ADD_WORD}) {
	open(IN, $0) || die "cannot read myself";
	@lines=<IN>;
	close IN;
	open OUT, ">$0" || die "cannot write myself";
	for (@lines) {
		print OUT $_;
		if (/^__DATA__\n$/) {
			open(DATAOUT, "|sort|uniq|column >> $0");
			$ENV{ADD_WORD} =~ y/n-za-m/a-z/;
			print DATAOUT "$ENV{ADD_WORD}\n";
			print DATAOUT join("\n", 
					map { chomp; split ' ', $_ } <DATA>);
			close DATAOUT;
			exit;
		}
	}
}

$censored = join("|", reverse sort { $a cmp $b } 
		grep { length $_ }
		map { chomp; y/a-z/n-za-m/; split ' ', $_ } <DATA>);

while (<>) {
	s/\b($censored)ed/CENSORED/ig; # don't say "CENSOREDed"
	s/\b($censored)/CENSORED/ig;
	print $_;
}

__DATA__
ahqr		enaql		grng		pbzrvat		t\f+fcbg
anxrq		encr		guebng		pbzvat		tebva
avccyr		erne		gvg		pebgpu		ubbgre
bcravat		fangpu		gvggl		penc		ubeal
beny		fchax		gvggvr		penpx		ubyr
betl		fcrez		hgrehf		pernz		uhzc
betnfz		fcuvapgre	ihyin		phag		unaqwbo
certanag	fghq		intvan		phz		urnq
cevpx		fgnss		ivetva		phzzvat		wvfz
chff		fhpx		ivoengbe	pnzr		xabo
chffl		fjnyybj		jbzo		preivk		xvff
chffvrf		fperj		jrg		pureel		ybir
chovp		frk		juber		pyvg		ybire
chqraqhz	frkhny		kkk		pyvgbehf	ybirq
chzc		frrq		nany		pyvggl		ybnq
cnagvrf		frzra		nerbyn		pyvznk		ynovn
crargengr	funsg		nff		qevyyrq		ynvq
crargengrq	funt		nffubyr		qrsybjre	yrfovna
cravf		funttvat	obbo		qvpx		yvcf
crgre		fuvg		oernfg		qvyqb		znfgheong
crpxre		fyhg		ohgg		rebgvp		znfgheongr
cunyyhf		fyhggvfu	ohggbpx		rerpgvba	znfgheongvat
cvff		fyvg		onyy		rkcbfrq		znzznel
ebfrohq		gbathr		ovgpu		shpx		znzznevrf
ebq		gbby		oybj		snpvny
ehg		gjng		pbpx		t-fcbg
Commit	Line	Data
e99ec255	1	#!/usr/bin/perl
	2	# Censor filter.
	3	# Copyright 2002 by Joey Hess under the terms of the GNU GPL.
	4
	5	# Yes, this program is self-modifying code, if you want it to be.
	6	if (exists $ENV{ADD_WORD}) {
	7	open(IN, $0) \|\| die "cannot read myself";
	8	@lines=<IN>;
	9	close IN;
	10	open OUT, ">$0" \|\| die "cannot write myself";
	11	for (@lines) {
	12	print OUT $_;
	13	if (/^__DATA__\n$/) {
	14	open(DATAOUT, "\|sort\|uniq\|column >> $0");
	15	$ENV{ADD_WORD} =~ y/n-za-m/a-z/;
	16	print DATAOUT "$ENV{ADD_WORD}\n";
	17	print DATAOUT join("\n",
	18	map { chomp; split ' ', $_ } <DATA>);
	19	close DATAOUT;
	20	exit;
	21	}
	22	}
	23	}
	24
	25	$censored = join("\|", reverse sort { $a cmp $b }
	26	grep { length $_ }
	27	map { chomp; y/a-z/n-za-m/; split ' ', $_ } <DATA>);
	28
	29	while (<>) {
	30	s/\b($censored)ed/CENSORED/ig; # don't say "CENSOREDed"
	31	s/\b($censored)/CENSORED/ig;
	32	print $_;
	33	}
	34
	35	__DATA__
	36	ahqr enaql grng pbzrvat t\f+fcbg
	37	anxrq encr guebng pbzvat tebva
	38	avccyr erne gvg pebgpu ubbgre
	39	bcravat fangpu gvggl penc ubeal
	40	beny fchax gvggvr penpx ubyr
	41	betl fcrez hgrehf pernz uhzc
	42	betnfz fcuvapgre ihyin phag unaqwbo
	43	certanag fghq intvan phz urnq
	44	cevpx fgnss ivetva phzzvat wvfz
	45	chff fhpx ivoengbe pnzr xabo
	46	chffl fjnyybj jbzo preivk xvff
	47	chffvrf fperj jrg pureel ybir
	48	chovp frk juber pyvg ybire
	49	chqraqhz frkhny kkk pyvgbehf ybirq
	50	chzc frrq nany pyvggl ybnq
	51	cnagvrf frzra nerbyn pyvznk ynovn
	52	crargengr funsg nff qevyyrq ynvq
	53	crargengrq funt nffubyr qrsybjre yrfovna
	54	cravf funttvat obbo qvpx yvcf
	55	crgre fuvg oernfg qvyqb znfgheong
	56	crpxre fyhg ohgg rebgvp znfgheongr
	57	cunyyhf fyhggvfu ohggbpx rerpgvba znfgheongvat
	58	cvff fyvg onyy rkcbfrq znzznel
	59	ebfrohq gbathr ovgpu shpx znzznevrf
	60	ebq gbby oybj snpvny
	61	ehg gjng pbpx t-fcbg