#!/usr/bin/perl
-# jibberish -- run all filters in random order
+# jibberish -- run filters in random order
$ENV{PATH}.=":/usr/games";
kraut
cockney
jive
+pirate
nyc
ken
ky00te
rasterman
-);
-
-@nonfree= qw(
newspeak
+studly
+censor
+spammer
);
-# Test to see if non-free filters are here, if so, add them to @all.
-foreach (@nonfree) {
- if (-x "/usr/games/$_") {
- push @all, $_;
- }
-}
-
# shuffle order
srand;
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>) {