#!/usr/athena/bin/perl
sleep(2000);
for($i=0;$i<=26;$i++) {
open(ZEPHYR, "|zwrite -n -d -q -s AutoElection -i election");
print ZEPHYR "A very large zephyr containing the latest election info\n";
print ZEPHYR "will appear on instance election-news in one minute.\n";
print ZEPHYR "Type: zctl sub message election-news \*     to subscribe\n";
close(ZEPHYR);
sleep(65);
open(ZEPHYR, "|zwrite -n -d -q -s 'finger election@election.eff.org' -i election-news");
$foo = `f election@election.eff.org`;
print ZEPHYR $foo;
close(ZEPHYR);
sleep(2000);
}