#!/afs/athena/contrib/perl/p
#
# A perl script to run zwrite (or some variant thereof) with a random
# zsignature
#

srand;
open(ZSIGS, "$ENV{'HOME'}/zsigs") || die "Missing ~/zsigs file";
$ops = join(' ', @ARGV);

@sigs = <ZSIGS>;

$len = $#sigs;
$x = int(rand($len + 1));
$num = $x + 1;
$sig = $sigs[$x];
$_ = $sig;
s/@color\([^)]*\)//g;
s/@font\([^)]*\)//g;
s/@[^(]*\(([^)]*)\)/$1/g;
print "Using signature $num:\n$_";
close(ZSIGS);
system("zwrite -n -s \"$sig\" $ops");