X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=jibberish;h=af0ea16a34a7019558967a8eb0237232c02599bf;hb=refs%2Fheads%2Fupstream;hp=5e9590cf9efc1529d79b7db818d3c75e399a7906;hpb=dc17484ae227d51938596b51191e2f1991b7ca51;p=filters.git diff --git a/jibberish b/jibberish old mode 100644 new mode 100755 index 5e9590c..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,21 +12,17 @@ upside-down kraut cockney jive +pirate nyc -); - -@nonfree= qw( -kyoote +ken +ky00te +rasterman 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) { @@ -37,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 () {