$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
$B$3$NEtI8%7%9%F%`$O$3$&$$$&$3$H$b$G$-$k$H$$$&8+K\$G$9!#(B
$B8=:_$G$O(B FRED$B%i%$%V%i%j(B $B$r;H$C$F<BAu$G$-$k$N$G!"(BOBSOLETE $B$G$9!#(B
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B


$BEjI<%5!<%P(B $B#1!%#2!'3+H/%3!<%I(B	$B%(%l%J(B
$B!t3+H/%3!<%I$NNr;K!J>P!K!'(B
$B!t#0!%(Bx		$B$*$5$+$J(B
$B!t#1!%#0(B	$B$f$a$3(B

$B%(%l%J(B $B$O(B vote.pl $B$X$N%a!<%k%7%9%F%`%$%s%?!<%U%'%$%9$N$3$H$G$9!#(B
$BD>@\$$$8$kEjI<%a!<%k$r$$$8$k%7%9%F%`$O(B vote.pl $B$G$9!#(B

		last modified: Fri Sep  9 13:52:43 JST 1994

$B$3$l$O<B:]$K;H$o$l$?Nc$G$9!#$I$&$$$&EjI<%U%)!<%^%C%H$+Ey$O%U%!%$%k(Bhelp
$B$r8+$F$/$@$5$$$^$;(B


INSTALL:
----------------------------------------------------------------

$B#1!%(BElena.pl Elena.ph vote.pl vote.ph $B$rEjI<%5!<%P$N>l=j$X$b$C$F$/$k!#(B

$B#2!%(Bfml.pl $B$N(BMain $BItJ,$r<!$N$h$&$K=q$-49$($k!#(B


if($GUIDE_REQUEST) {
    &GuideRequest;		# Guide Request from everybady
} elsif(($ML_MEMBER_CHECK ? &MLMemberCheck: &MLMemberNoCheckAndAdd)) { 
    &AdditionalCommandModeCheck;# e.g. for ctl-only address;

    require 'Elena.pl'; 
    if ($CommandMode) {		# If "# (.*)" form is given, Command mode
	&ElenaCommand;		# require 'libfml.pl'; 
    } else {			# distribution mode(Mailing List)
	&ElenaVoting;		# &Distribute;
    }
}


DESCRIPTION:
----------------------------------------------------------------


$B$$$A$$$A(B $BJ#?tEjI<(B $B$N2DG=@-$r%A%'%C%/$7$F$O$$$^$;$s$,%a!<%k$N%*%j%8%J%k(B
$B$rA4ItJ]B8$7$F$$$k$N$G:G=*%A%'%C%/$OMF0W$G$7$g$&!#(B
$B!t7PO)>pJs$H$+$bJ]B8$7$F$J$$$N$G(B $B$^$!(B $B13$O$D$1$^$9$1$I$M(B

$B$"$H!"(BFrom $B$7$+8+$J$$$h$&$K$7$F$"$j$^$9!#$3$l$b13$D$1$^$9$M!#(B
$B$^$!$=$J$d$D$%$"$$$J$$$C$F$3$H$G(B

$B4pK\%3%^%s%I%7%s%?%C%/%9$O(B
-------------------- guide file -----------------------------
$B!&(Becho "# summary"   | mail -v Contest@phys.titech.ac.jp

$B$=$N;~E@$^$G$KEjI<$5$l$?$b$N$9$Y$F$N%5%^%j$r:n$j$^$9(B
$B!t<B$O$=$N>l$G:n$C$F$^$9$1$I(B:-)


$B!&(Becho "# cancel ID" | mail -v Contest@phys.titech.ac.jp

$B%a!<%k$N%5%V%8%'%/%H$K$"$k(B $BHV9f$,$"$J$?$N(B $BEjI<HV9f!)$G$9!#(B
$B%-%c%s%;%k$7$?$/$J$C$?$i!"$=$NHV9f$r;H$C$F$3$N$h$&$K(B $B%-%c%s%;%k$G$-$^(B
$B$9!#(B

$B$O$K$c(B
				fukachan@phys.titech.ac.jp
--------------------------------------------------------------
==============================================================
--------------------------------------------------------------
$BEjI<$N$7J}!'(B

--------------------- $B@_Dj(B ---------------------
in vote.ph

$B!t$N8e$O#R#E#A#D#M#EMQ$N%3%a%s%H$G$9(B

###### User Custumize Parameters #####

@keyword            = ('best', 'chinachina');
%Jname              = ('best', '$B9%$-$J@<M%(B', 'chinachina', '$B>-Mh@-!{$H$*$b$&0l2!$7$N@<M%(B');
%maxkeyword         = ('best', '3', 'chinachina', '1');

$Hook = q#
    y/$B#2#3!J!'!K(B/23\(:\)/;	$B!tJX59>e(BASCII Code$B$KJQ49(B

    $B!t(B(3)$B!A(BBeth-Katri-Pollyanna$B$H$$$&$^$:%^%C%A$7$J$5$=$&$J9T$D$^$j(B
    $B!t(B  $B:G8e$N9T$^$G$r(B $s2 $B$KF~$l$k(B 
    if(/^\(3\)\s*(.*)/io .. /^Beth-Katri-Pollyanna$/o) {
        $ls2 = $1 ? "$1\n" : "$_\n";

        $s2 .= "\n>>>From: $Original_From_address\n\n" if /^\(3\)/io;
	next if(/^\(3\)\s*$/);

        $s2 .= $ls2;
	next;
    }

    $B!t(B(2)$B!A(B(3)	$B$r(B $s1 $B$KF~$l$k(B 
    if(/^\(2\)\s*(.*)/io .. /^\(3\)/o) {
	$ls1 = $1 ? "$1\n" : "$_\n";

	$s1 .= "\n>>>From: $Original_From_address\n\n" if /^\(2\)/io;
	next if(/^\(2\)\s*$/);

	$s1 .= $ls1;
	next;
    }
#;

$B!t:G8e$K(B print out$B$9$k;~$N%U%)!<%^%C%H$r7h$a$k!#(B

$HookOut =q#
    print "\n(2)$s1\n";
    print "\n(3)$s2\n";
#;

-------------------- $BEjI<%U%)!<%^%C%H(B --------------------
$B9%$-$J@<M%(B:$BAq??M3H~(B
$B9%$-$J@<M%(B:$B@>865WH~;R(B
$B9%$-$J@<M%(B:$B$3$*$m$.$5$H$_(B

$B>-Mh@-!{$H$*$b$&0l2!$7$N@<M%(B:	$B@>B<$A$J$_(B

(2)

$B$&!A$s!"9C25$D$1$,$?$$$,!"@>865WH~;R$+$J$!!A%(%l%J$5$s$O:G9b$G$9$%!#(B

(3)

$B$@!A$C!#HQG:$J4k2h$G$9$M$'!#$O$O$O(B
		 		$B$&$8$c(B

$B!tHw9M!'$3$NJU$K(B Signature$B$J$s$F$D$1$J$/$F$$$$$+$i$M!#8e$GJT=8$9$k;~LL(B
$BE]$d$+$i(B (_o_)

------------------------------------------------------------
Output:

vote.pl [ vote 2.0.2.0 ]  Status Report
---
$B9%$-$J@<M%(B

	1 $BAq??M3H~(B
	1 $B@>865WH~;R(B
	1 $B$3$*$m$.$5$H$_(B

$B>-Mh@-!{$H$*$b$&0l2!$7$N@<M%(B

	1 $B@>B<$A$J$_(B

(2)
>>>From: Fukachan

$B$&!A$s!"9C25$D$1$,$?$$$,!"(B
$B@>865WH~;R$+$J$!!A(B
$B%(%l%J$5$s$O:G9b$G$9$%!#(B

(3)
>>>From: Fukachan

$B$@!A$C!#HQG:$J4k2h$G$9$M$'!#$O$O$O(B
		 		$B$&$8$c(B

$B!tHw9M(B:$B$3$NJU$K(B Signature$B$J$s$F$D$1$J$/$F$$$$$+$i$M!#8e$GJT=8$9$k;~LL(B
$BE]$d$+$i(B (_o_)

------------------------------------------------------------
$B@<M%%G!<%?%Y!<%9$N0z$-J}!'(B

WWW$B$,;H$($l$P!"(B

http://www.phys.titech.ac.jp/cgi-bin/uja/VA $B$K%"%/%;%9$7$F$_$F$/$@$5$$!#(B
$B@<M%%G!<%?$N(B INPUT$B7A<0$N8!:w!"C1$J$k0lMw7A<0Ey$,$=$3$K$"$j$^$9!#(B

IP Reachable$B$G$J$/$F!"%a!<%k$7$+;H$($J$$>l9g$O!"(B

% echo "# $B@>865WH~;R(B"   | /usr/ucb/mail -v va-info@phys.titech.ac.jp 

$B$H$9$l$P!"%5!<%P$G0z$$$?Ez$,%a!<%k$GJV$5$l$^$9!#(B
