Signature rotation.

[hagus]

A really short little ditty to take a file delimited by '%' characters (on lines by themselves) then randomly select an entry, then print it to the .signature file.

Literally taken straight from my ~/scripts directory, all still hardcoded. Pick it to pieces, but remember it's just a hack :)

First few lines of my .signature.rot file. Note the first line is blank, and there needn't be a trailing newline at the end:

Leo: (July 23 - Aug. 22) When driving through the desert, you should
never stop and eat mysterious piles of birdseed, even if "FREE
BIRDSEED" signs are stuck in them.
%
"Reality is that which, when you stop believing in it,
doesn't go away".
    -- Philip K. Dick
%
So, Lone Starr, now you see that evil will
always triumph, because good is dumb.
    -- Dark Helmet
%
Thank you for pressing the self-destruct button. This ship will
self-destruct in three minutes.
%
Do you make up these questions, Mr. Holden, or do
they write them down for you?
%
Yes, questions. Morphology, longevity, incept dates.
%
"Begun, this clone war has."
Donate to the House With No Sentence Structure. Dedicated to
assisting grammatically disadvantaged Jedi for over 900 years.

#!/usr/bin/perl

use IO::File;

$/ = "%";

open(FILE, "/home/hagus/.signature.rot");
while (<FILE>)
{
    $tmp = $_;
    $tmp =~ s/%//g;
    push @a, $tmp;
}
close(FILE);

my $fh = new IO::File("/dev/urandom", "r");

my $foo = $fh->read($value, 100);

$fh->close();

my $num = unpack("S*", $value);

my $index = $num % (@a + 0);

open(FILE, ">/home/hagus/.signature");
print FILE $a[$index] . "\n";
close(FILE);