#!/usr/bin/perl
# Filename:	mail_editor
# Author:	David Ljung Madison <DaveSource.com>
# See License:	http://MarginalHacks.com/License
# Description:	Creates a random signature
#
# Just make this your mail editor and then make sure your mail
# program has no signature, just line dashes so the end of the
# file is just '--'
use strict;

##################################################
# Setup the variables
##################################################
my ($PROGNAME,$BASENAME) = ($0,$0);
($MAIN::PROGNAME = $0) =~ s|^.*/||;
$MAIN::BASENAME = $0 =~ m|/| ? $0 : "./$0";
$MAIN::BASENAME =~ s|/[^\/]+$||;
$MAIN::BASENAME=$MAIN::BASENAME ? $MAIN::BASENAME : "/";

# Get the language module
require "$MAIN::BASENAME/sig.pm";

##################################################
# MAIN
##################################################
sub main {
  print get_sig($ARGV[0]);
}
main();