X-Git-Url: http://git.ieval.ro/?p=filters.git;a=blobdiff_plain;f=jibberish;h=af0ea16a34a7019558967a8eb0237232c02599bf;hp=d5197b82562549e6bbe849a4dd4f94470b633240;hb=3627d06a62ddb3b5e1adbf67a6e3b480b5fd0c01;hpb=9edc0e612e98d4c563155a8fc2d96f27f4815831

diff --git a/jibberish b/jibberish
old mode 100644
new mode 100755
index d5197b8..af0ea16
--- a/jibberish
+++ b/jibberish
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# jibberish -- run all filters in random order
+# jibberish -- run filters in random order
 
 $ENV{PATH}.=":/usr/games";
 
@@ -12,12 +12,15 @@ upside-down
 kraut
 cockney
 jive
+pirate
 nyc
 ken
 ky00te
 rasterman
 newspeak
 studly
+censor
+spammer
 );
 
 # shuffle order
@@ -30,9 +33,9 @@ for (0..$#all) {
 }
 
 # start the pipe...
-my $pipe= join '|', @all;
+my $pipe= join '|', @all[0..3 + rand(5)];
 open FILTER, "$pipe|"
-	or die ""Never mind...\n";;
+	or die "Never mind...\n";
 
 # display the results
 while (<FILTER>) {