#!/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 -n -s '$sig[$x]' $ops");