#!/afs/athena/contrib/perl/perl

$zwrite = "/usr/athena/bin/zwrite";

require "getopts.pl";
&parse_args;

$/ = "";
@sARGV = @ARGV;

$i=0;



print join(' ',$zwrite,@zargs),"\n";

### helper subroutines

sub usage {
    die join("\n",(@_,"Usage:    $prog [options] filename",<<"DIE_NOW"));

Options:
  -d             send unauthenticated
  -v             verbose
  -n             no ping
  -s zsig        uses specified Zephyr signature
  -c class       send to specified class
  -i instance    send to specified instance
  -r recipient   send to specified recipient
  -q num         number of paragraphs (default: 1)
DIE_NOW
}

sub parse_args {
    $prog = ($0 =~ /\/([^\/]+)$/ ? $1 : $0);

    do Getopts('dvns:c:i:r:') || &usage;
    $#ARGV == 0 || &usage;

    @zargs = ('-l');

    if (defined($opt_v)) {
	push(@zargs,'-v');
	$verbose = 1;
    }
    push(@zargs,'-n') if defined($opt_n);
    push(@zargs,'-d') if defined($opt_d);
    push(@zargs,'-s', $opt_s) if defined($opt_s);
    push(@zargs,'-c', $opt_c) if defined($opt_c);
    push(@zargs,'-i', $opt_i) if defined($opt_i);
    push(@zargs,'-i', 'zquote') if (defined($opt_c) && !defined($opt_i));
    push(@zargs,$opt_r) if defined($opt_r);
    push(@zargs,'bert') unless (defined($opt_c) || defined($opt_i) ||
				defined($opt_r));
}
