NAME
Text::Echelon - get random Echelon related words.
SYNOPSIS
use Text::Echelon;
my $te = Text::Echelon->new();
print $te->get();
print $te->getmany($num); #or $te->getmany($num, $delimiter);
print $te->makeheader();
print $te->makecustom($pre, $num, $post, $delim);Using with mutt
If you want to generate an X-Echelon header on your outgoing mail, put the following in your .muttrc: my_hdr `/path/to/echelon.pl`
echelon.pl is supplied in this distribution.
DESCRIPTION
Text::Echelon is a small program that will return Echelon 'spook words', as per
http://www.attrition.org/attrition/keywords.html
If you don't know why you might want this, look at:
http://www.echelon.wiretapped.net/
http://www.echelonwatch.org/
METHODS
new
Creates a new instance of Text::Echelon
get
Returns one random spook word or phrase as a scalar
getmany
Takes a number of spook words or phrases to be returned and the delimiter between words as parameters. Returns a scalar string of spookwords.
makecustom
Takes four parameters - the prefix to use, the number of words or phrases to include, the postfix to use and the delimiter between words. Returns a scalar string.
makeheader
Creates a header suitable for putting in your outgoing email. The scalar returned is in the format:
X-Echelon: smuggle, CIA, indigo
AVAILABILITY
It should be available for download from http://russell.matbouli.org/code/text-echelon/ or from CPAN
AUTHOR
Russell Matbouli <text-echelon-spam@russell.matbouli.org>
http://russell.matbouli.org/
TODO
Create something more plausable - generate natural language. Ideally, a sentence generated randomly that contains spook words.
LICENSE
Distributed under GPL v2. See COPYING included with this distibution.
SEE ALSO
perl(1).