#!/usr/bin/env perl
# randsig - print a randomized signature

###############################################################################
### Configuration #############################################################
###############################################################################

our $ROTATE = "$ENV{HOME}/.config/signature/rotate";

###############################################################################
### Declarations ##############################################################
###############################################################################

use strict;

###############################################################################
### main () ###################################################################
###############################################################################

my @sigs;

open (RANDOM, $ROTATE) or die "Couldn't open $ROTATE: $!\n";
while (<RANDOM>) { chomp; push @sigs, $_ }
close RANDOM;

while (<DATA>) { print }
if (my $match = shift @ARGV) { 
    foreach (@sigs) { 
        print "$_\n" if $_ =~ /$match/ 
    }
} else { 
    print $sigs[int(rand scalar @sigs)], "\n"
}

###############################################################################
### Documentation #############################################################
###############################################################################

=head1 NAME

randsig - print a random signature 

=head1 SYNOPSIS

B<randsig>

B<randsig> I<PATTERN>

=head1 DESCRIPTION

randsig generates a random signature file from the local <DATA> field in this
script, and from a list of URL lines kept in a local configuration file.  Used
by hand.

=head1 FILES

=over 4

=item $HOME/.config/signature/rotate

List of signature lines that can be taken randomly.

=back

=head1 AUTHOR

Tim Skirvin <tskirvin@killfile.org>

=cut

__DATA__
                           - Tim Skirvin (tskirvin@killfile.org)
-- 
http://wiki.killfile.org/           Skirv's Homepage <FISH>< <*>