[354] in Zephyr Mailing List
No subject found in mail header
daemon@ATHENA.MIT.EDU (Mary Kathryn Thompson)
Tue Sep 19 21:22:51 2000
Message-Id: <200009200122.VAA07215@vehicular-genocide.mit.edu>
To: zephyr@MIT.EDU
Date: Tue, 19 Sep 2000 21:22:08 EDT
From: Mary Kathryn Thompson <mkt@MIT.EDU>
#!/usr/athena/bin/perl
# Zephyr Randomizer
# From Jay Muchnij with modifications by Joe Foley
srand;
open(ZSIGS, "$ENV{'HOME'}/.z.sigs")|| die("No ~/.z.sigs file");
$ops = join(' ', @ARGV);
$/ = "\n---\n"; #Zsig separator
while(<ZSIGS>){
$_ = substr($_,0,length($_)-5);
$sig[$i++]=$_;
}
$x = rand($i-1);
print("$sig[$x]\n");
$sig[$x] =~ s/\'/\'\\\'\'/g;
system("zwrite -s '$sig[$x]' $ops");
