$B7cFM6%GO%j!<%0#32~B$(J



$B$3$A$i$O!"(J$B%4!<%I%s;a8x3+(J$B$N!V7cFM6%GO%j!<%0(J3$B!W$N2~B$$K4X$9$k%Z!<%8$G$9!#(J

$B7cFM6%GO#3!J2~!K(J$B3+:ECf(J

BBS$B$r@_CV$7$^$7$?!#Ld$$9g$o$;Ey$O(J$B%3%A%i(J$B$X!#(J

$B%G%P%C%0MQ7cFM6%GO#3$r8x3+$7$^$7$?!#$46(NO$$$?$@$1$^$9J}$O%3%A%i$^$G!#(J $B"(=*N;$7$^$7$?!#$46(NO$"$j$,$H$&$4$6$$$^$7$?!#(J


$B"($3$A$i$K5-:\$N$J$$2~B$$K$D$$$F$b!"Ld$$9g$o$;$$$?$@$-$^$7$?$i$4AjCL$K1~$8$^$9$N$G$*5$7Z$K%I%>(J



(1)$B53 $BAa$/%l!<%9$KEPO?$7M-NO$J53h$;$k!J@hCe=g!K;v$,!"AjEv$J%"%I%P%s%F!<%8$H$J$C$F$*$j(J
$BEPO?6%Ah$,7c2=$9$k;v$KBP1~!#(J
  • 1.$B53$7!J8:>/!K(J
  • 2.$B:n@o$K4X$o$kJQ99(J
    • 2-1.$B%l!<%9EPO?;~$N:n@o;X<($r8x3+!J8eEPO?$KJL2-2.$B%Z!<%9H=DjJ}K!$NJQ990F(J
    • 2-3.$BF1:n@oGO$N?tEy$G%l!<%9;~$N5$@-%Q%i%a!<%?$r8:>/$5$;$k!JGO9~$_$N
    • 3.$BM-NO53
    • 3-1.$B53>h0MMj$rCjA*@)$K!#(J
    • 3-2.$BDL;;>!0H$N>/$J$$533-3.$B6a(J5$BAv$K53>h$N$"$k53h?t$KHf$7$FG=NO$r%W%i%9!J$*

    (2)$B

    (3)$B%l!<%9HVAHJT=8(J

    • 1.$B%l!<%9$N5wN%$N2.$B%l!<%9?t$NA}2C!J(J6$B!A(J12R$B!K(J
    • 3.$B%l!<%9HVAHJT=8MQ(JCGI

    (4)$BHK?#LFGO$NK}@-E*ITB-$X$NBP1~(J

    • 1.$BHK?#LFGO%;%j$G$N9XF~@)8B(J
    • 2.$B?75,EPO?GO

      (5)$B$=$NB>(J

      • 1.$B=5BX$j;~$N%l!<%9EPO?%_%9$NKI;_!J$H$$$&L>L\$NIT@5EPO?J}K!BP:v!K(J
      • 2.$BGOL>EPO?$NA43Q%+%J5,@)(J
      • 3.$B%l!<%9$X$N=PAv>r7oJQ99(J
      • 4.$BGONp!&@-JL$K4X$9$k@MNL$ND4@0$K4X$9$k0F(J
      • 5.$B%*!<%W%s@o$G$N%O%s%G$N8+D>$7(J
      • 6.$BGO!Mx8EGO$N:o=|(J
      • 7.$BHK?#LFGO$NBeI=;:6p$,:o=|$5$l$kIT6q9g$N=$@5(J
      • 8.$BGO9.$B%m!<%+%k#B#C(J
      • 10.$BGO7t%7%9%F%`(J
      • 11.$B%a%C%;!<%8%7%9%F%`(J


      (1)$B53

      1.$B53$7!J8:>/!K(J
      $B!&(Jhorse3.cgi$B$N(Jsub kankyou$BFb$KDI5-(J

      $B!&(Jhorse3_race.cgi$B$N(Jsub race$BFb!"(J340$B9TL\IU6a$K(J$BB@;zItJ,(J$B$rDI5-(J
      $coef_kisyu_race = '0.5'; # $B%l!<%9$X$N53
      if($sakusen[$i]<=3){$sokudo[$i]+=rand($nig[$i]*(5-$sakusen[$i])+$sen[$i]*(2+$sakusen[$i]))*$coef_kisyu_race;}
      elsif($sakusen[$i]<=5){$sokudo[$i]+=rand($sen[$i]*(8-$sakusen[$i])+$sas[$i]*($sakusen[$i]-1))*$coef_kisyu_race;}
      else{$sokudo[$i]+=rand($sas[$i]*(11-$sakusen[$i])+$oik[$i]*($sakusen[$i]-4))*$coef_kisyu_race;}
      $sokudo[$i]+=(1-$coef_kisyu_race)*18; # $B53

      $B"(53


      2-1.$B%l!<%9EPO?;~$N:n@o;X<($r8x3+!J8eEPO?$KJL
      $B!&(Jhorse3_rank.cgi$B$N(Jsub raceno$B$r2~B$(J
      $BJ}K!$O3d0&!#(J



      3-1.$B53>h0MMj$rCjA*@)$K!#!J%F%9%H:Q!K(J
      $B2~B$$N>\:Y$O(J$B%3%A%i$X!#(J

      $B!&%l!<%9EPO?;~$KBh#1!ABh#34uK>$N53 $B!&CjA*$N%W%m%;%9$O!"$^$:3FGO$NBh0l4uK>53$K4uK>h3NDj!#J#?t5o$k$J$i$PCjA*$K$F3NDj!#(J
      $B53h$,7h$^$C$F$*$i$:!"3nB>$K4uK>l9g$O3NDj!#J#?t$J$i$PCjA*(J
      $B0J9_7+$jJV$7!#(J
      $B8N$K!"B>GO$5$l$?53$7$F$$$F$b53>h$7$F$b$i$($k2DG=@-$O$"$j$^$;$s!#(J
      $BF1MM$K<+$iF1$853$9$k$N$OL50UL#$J;EMM$H$J$C$F$^$9!#(J
      $B!&:G8e$^$GA4$F30$l$?$iBeBG$/$s(J($B3F<+@_Dj!#=i4|$O%*!<%k(JD$BAjEv!K$,53>h(J
      $B!&CjA*$K$*$$$F!"G=NO!">^6b3[Ey$K$h$j!"53>h3NN($rJQ992DG=!#53
      $B!&4IM} $B!&CjA*$N%?%$%_%s%0$O!"$=$N%l!<%9$K=PAvEPO?$,$J$5$l$kETEY!#(J
      $B!&=>Mh$N53!&:n@o!&53 $B$J$N$G!"EPO?GO0lMw$N53$N2U=j$O1#$7$F$7$^$&$J$j!"$J$s$i$+$N2~B$$,I,MW$G$9!#(J
      $B!&2~B$E,MQ$N%?%$%_%s%0$O?o;~2DG=!#(J
      $BE,MQD>A0$K%l!<%9EPO?$5$l$?GO$,5o$k>l9g!J53 $B=>Mh$I$*$j$NAa$$!$A$N%k!<%k$,E,MQ$5$l$^$9!#(J

      $B!&CjA*$N7W;;J}K!$G$9$,!"$^$:3FGO$K$O0MMjH=DjMQ$N%]%$%s%H$,@_Dj$5$l$^$9!J4pK\$O(J"10"$B%]%$%s%H!K(J
      $B53l9g!"#00J>e!"0MMj3FGO$N%]%$%s%H7W0J2 $B!J$=$N:]$K53>h$7$F$b$i$($kN($O!"$=$NGO$NH=Dj%]%$%s%H(J $B!?(J $B0MMj3FGO$N%]%$%s%H7W!"$H$J$C$F$^$9!K(J
      $B!&3Fl9g$O!"2<5-$NI=$r;2>H2<$5$$!#(J
      $B!!(J$BG=NO!">^6b!"Kt$OEPO?=g$K$h$kJd@5(J$B!!(J$BA0#5Av53>h$B!!(J$B<+19



      3-2.$BDL;;>!0H$N>/$J$$53
      $B"($3$A$i$N2~B$$O!"(JUmapaka Stallion 2$B4IM}?M$N%7%e%s;a$h$jDs6!D:$$$?%3!<%I$r85$K:n@.$7$^$7$?!#46 $B"(2<$NNc$O!"G/Np$H>!?t$K$h$j8:NL$r7hDj$7$F$^$9!#(J

      $B!&(Jhorse3_else.cgi$B$N(Jsub touroku$BFb!"(J139$B9TL\0J2<$NIU6a$KDI5-JQ99(J
      if($iruki==0){&error("$B$=$s$J53<j$O$$$^$;$s!#(J");} # $B2~B$!J8:NL53<j!K(J if($ktoshi == 19 && $kt1 < 10){$genryou = '$B"%(J';} # 19$B:P$G(J10$B>!L$K~(J elsif($ktoshi == 20 && $kt1 < 10){$genryou = '$B"$(J';} # 20$B:P$G(J10$B>!L$K~(J elsif($ktoshi == 21 && $kt1 < 10){$genryou = '$B!y(J';} # 21$B:P$G(J10$B>!L$K~(J else{$genryou = '';} $tourokuuma = "1<>$uname<>$syoyuusya<>$upass<>$uhost<>$ukeicon<>$usei<>$utoshi<>$utyoushi<>$useikata<>$u1i<>$u2i<>$u3i<>$u4i<>$ug1<>$ug2<>$ug3<>$ukatig1<>$ukatig2<>$ukatig3<>$utotal<>$ukyonen<>$ukotoshi<>$usp<>$usyu<>$uzizoku<>$ukon<>$ust<>$uki<>$ukenkou<>$utt<>$uhh<>$kinsou5<>$utt2<>$uth2<>$uht2<>$uhh2<>$seisanka<>$uketou1<>$uketou2<>$uketou3<>$formsyus<>$formsakusens<>$kisyutoku<>$umatoku<>$genryou<>\n"; # $B2~B$!J8:NL53<j!K(Jend $saikin = $ukyonen+$ukotoshi; #2$B!D#2:P8BDj!"(J3$B!D#3:P8BDj!"(J4$B!D8EGO8BDj!"(J34$B!D#3:P0J>e(J
      $B!&(Jhorse3_race.cgi$B$N(Jsub race$BFb(J230$B9TL\0J2 if($nen eq "34" && $ttoshi==3){$omori[$i] -= 2;} # $B2~B$!J8:NL53<j!K(J chomp ${$w[$i]}[45]; if(${$w[$i]}[45] eq '$B"%(J' && ${$w[$i]}[41]){$omori[$i]-=1.5;} # $B"%$G(J-1.5kg elsif(${$w[$i]}[45] eq '$B"$(J' && ${$w[$i]}[41]){$omori[$i]-=1.0;} # $B"$$G(J-1.0kg elsif(${$w[$i]}[45] eq '$B!y(J' && ${$w[$i]}[41]){$omori[$i]-=0.5;} # $B!y$G(J-0.5kg else{${$w[$i]}[45] = '';} # $B2~B$!J8:NL53<j!K(Jend if(${$w[$i]}[41] eq ""){${$w[$i]}[41]="${$w[$i]}[40]";}# COM$B53<j(J
      $B!&(Jhorse3_rank.cgi$B$N(Jsub raceno$BFb(J368$B9TL\IU6a$r>/$7JQ99!J(J$genryou$B$NDI2C!K(J
      for ($g=1; $g<$rkazu; $g++){ ($dmy, $uname, $syoyuusya, $upass, $uhost, $ukeicon, $usei, $utoshi, $utyoushi, $useikata, $u1i, $u2i, $u3i, $u4i, $ug1, $ug2, $ug3, $ukatig1, $ukatig2, $ukatig3, $utotal, $ukyonen, $ukotoshi, $usp, $usyu, $uzizoku, $ukon, $ust, $uki, $ukenkou, $utt, $uhh, $kinsou5, $utt2, $uth2, $uht2, $uhh2, $seisanka, $uketou1, $uketou2, $uketou3, $norite, $dmy, $dmy, $umatoku, $genryou) = split(/<>/,$ee[$g]); # $B2~B$!J8:NL53<j!K(J
      $B!&(Jhorse3_rank.cgi$B$N(Jsub raceno$BFb(J381$B9TL\0J2 if($log[2] eq "34" && $utoshi==3){$omori -= 2;} # $B2~B$!J8:NL53<j!K(J chomp $genryou; if($genryou eq '$B"%(J'){$omori-=1.5;} # $B"%$G(J-1.5kg elsif($genryou eq '$B"$(J'){$omori-=1.0;} # $B"$$G(J-1.0kg elsif($genryou eq '$B!y(J'){$omori-=0.5;} # $B!y$G(J-0.5kg else{$genryou = '';} # $B2~B$!J8:NL53<j!K(Jend @kinsou = split(/<rr>/,$kinsou5);@mae5="";# $B6a#5Av(J
      $B!&F1(J406$B9TL\IU6a$N(Jprint$BJ8Fb$N!"(J$norite$B$ND>A0$K(J$genryou $B$rDI2C!#(J
      $BJN,!#(J

      2-2.$B%Z!<%9H=CGJ}K!$NJQ990F(J

      2-3.$BF1:n@oGO$N?tEy$G%l!<%9;~$N5$@-%Q%i%a!<%?$r8:>/$5$;$k!JGO9~$_$N

      3-3.$B6a(J5$BAv$K53>h$N$"$k53h?t$KHf$7$FG=NO$r%W%i%9!J$*
      $B$^$H$a$F@0M}Cf(J

      (2)$B $B!& $B!&EvA*$7$?>l9g$O;FGO$,CB@8!"30$l$?>l9g$O;FGO@8$^$l$:!"HK?#LFGO$OuBV$KLa$k!#(J
      $B!nKvCB@8$N;FGO$K$O#37n=i$a$N@.D9$,E,MQ$5$l$k!#(J
      $B!&fIW!J=jM-$N#2:PGO$,#3F,$r1[$($J$$!K?t$^$G$7$+(J
      $B9T$($J$$!#(J
      $BNc$($P!"=jM-#2:PGO$O#0F,!"l9g!"(J
      $B%;%j$G$N#2:PGO$N9XF~$O#1F,$^$G!#99$J$k
      $B!&2~B$$N>\:Y$O(J$B%3%A%i(J$B$X!#(J
      $B"((J2006/02/20$B!"6X;_%$%s%V%j!<%I;~$K$b?t$r%+%&%s%H=hM}$7$F$$$?$N$r=$@5(J
      $B!!3:Ev2U=j$O!"!&(Jhorse3_umu.cgi$B$N(J460$B9TL\IU6a!"(J# $BA0$KDI5-$NItJ,(J
      $B"((J2006/03/25$B!";q6bITB-;~$K$b?t$r%+%&%s%H=hM}$7$F$$$?$N$r=$@5(J
      $B!!3:Ev2U=j$O!"!&(Jhorse3_umu.cgi$B$N(J475$B9TL\IU6a$NFb!"5Z$S!&(Jhorse3_umu.cgi$B$N(J460$B9TL\IU6a$NFb(J
      $B"((J2006/04/24$B!"6X;_%$%s%V%j!<%I$N#1!_#2$N%A%'%C%/$,$*$+$7$+$C$?$N$r=$@5(J
      $B!!3:Ev2U=j$O!"!&(Jhorse3_umu.cgi$B$N(J460$B9TL\IU6a$N6X;_%$%s%V%j!<%I$NFb#19T(J


      (3)$B%l!<%9HVAHJT=8(J

      $B!&(J1.$B%l!<%9$N5wN%$N $B%*%j%8%J%k$N%3!<%I$G$O!"%l!<%9$N5wN%$N $B%l!<%9%W%m%0%i%`2~JT$G?7$7$$=$M}$N5wN%$rA}$d$9$N$_$G$O!"AvGK;~7W$d%l%3!<%I$NI=<($,$*$+$7$/$J$C$F$7$^$&!#(J
      $B!&(Jrecord.cgi$B%U%!%$%k$N;EMM$rJQ99!#(J $B3F9T$N@hF,$K5wN%%G!<%?(J<>$B$rF~$l!"2<5-$N$h$&$K$9$k!#(J 1000<>0<>55<>0<>$B%@%$%o%<%&%9(J<>$BK\;38^O:(J<>$B;%KZ(J<>2004<> 1200<>1<>7<>7<>$B%9%.%N%O%d%+%<(J<>$BK\;38^O:(J<>$BH!4[(J<>2004<> 1400<>1<>19<>0<>$B%^%0%J!<%F%s(J<>$B2,It9,M:(J<>$B?73c(J<>2002<> 1600<>1<>32<>4<>$B%9%.%N%O%d%+%<(J<>$BK\;38^O:(J<>$B?73c(J<>2004<> 1800<>1<>44<>1<>$B%@%$%?%/%P!<%H%i%`(J<>$B>.KRB@(J<>$B>.AR(J<>2004<> 2000<>1<>57<>3<>$B%"%k%9%V%i%s%+(J<>$B9kED?-2p(J<>$B?73c(J<>2004<> 2200<>2<>10<>1<>$B%3%9%b%P%k%/(J<>$B8^==MrE_<y(J<>$BCf;3(J<>2004<> 2400<>2<>21<>4<>$B%7%s%0%9%T!<%k(J<>$B%G%C%D!<%j(J<>$B3$30(J<>2004<> 2500<>2<>30<>4<>$B%+%_%N%^%8%C%/(J<>$B5FBtN4?N(J<>$B:e?@(J<>1996<> 3000<>3<>2<>5<>$B%J%j%?%H%C%W%m!<%I(J<>$BEOJU70I'(J<>$B:e?@(J<>2001<> 3200<>3<>14<>4<>$B%^%d%N%H%C%W%,%s(J<>$BED86@.5.(J<>$B5~ET(J<>1997<> 3600<>3<>41<>6<>$B%(%"%@%V%j%s(J<>$B2,It9,M:(J<>$BCf;3(J<>1994<> $B!&(Jhorse3_kiroku.cgi$B$N(Jsub rekiview$BFb!"(J482$B9TL\IU6a0J2<$r=q$-49$((J }elsif($rekino==7){# $B%l%3!<%I(J open(RR,"$recordfile"); seek(RR,0,0); @rr = <RR>; close(RR); print "<table border=1 bgcolor=FFFFFF bordercolor=$button1 width=60%><tr bgcolor=$button1><td><center><B>$B5wN%(J</td><td><center><B>$B%?%$%`(J</td><td><center><B>$BGOL>(J</td><td><center><B>$B53<j(J</td><td><center><B>$B>l=j(J</td><td><center><B>$BG/EY(J</td></tr>"; for($i=0; $i<@rr; $i++){ ($kyo, $rhun, $rbyo, $rcon, $ruma, $rkisyu, $rba, $rnen) = split(/<>/,$rr[$i]); print "<tr><td><center>$kyo$B#m(J</td><td><center>$rhun$B!l(J$rbyo$B!m(J$rcon</td><td><center>$ruma</td><td><center>$rkisyu</td><td><center>$rba</td><td><center>$rnen$BG/(J</td></tr>"; } print "</table><br>"; } &hutter;# $B%U%C%?!<I=<((J &chosaku; }#end rekiview $B!&(Jhorse3_race.cgi$B$N(J763$B!A(J806$B9TL\IU6a$r0J2<$KCV49$((J

      ##### $B%l%3!<%I$N99?7(J($def$B!D8:$i$9!'%?%$%`$,CY$/!"A}$d$9!'%?%$%`$,Aa$/$J$k!#(J) if($kyori==600){$byo= 25;$def=150;}#!!!! elsif($kyori==1000){$byo= 50;$def=140;}#!!!! elsif($kyori==1100){$byo= 55;$def=135;}#!!!! elsif($kyori==1200){$byo= 60;$def=130;}#!!!! elsif($kyori==1400){$byo= 70;$def=150;}#!!!! elsif($kyori==1500){$byo= 80;$def=200;}#!!!! elsif($kyori==1600){$byo= 90;$def=250;}#!!!! elsif($kyori==1700){$byo= 95;$def=255;}#!!!! elsif($kyori==1800){$byo=100;$def=260;}#!!!! elsif($kyori==2000){$byo=110;$def=270;}#!!!! elsif($kyori==2200){$byo=130;$def=370;}#!!!! elsif($kyori==2300){$byo=135;$def=370;}#!!!! elsif($kyori==2400){$byo=140;$def=370;}#!!!! elsif($kyori==2500){$byo=150;$def=410;}#!!!! elsif($kyori==2600){$byo=160;$def=420;}#!!!! elsif($kyori==3000){$byo=180;$def=470;}#!!!! elsif($kyori==3200){$byo=190;$def=470;}#!!!! elsif($kyori==3400){$byo=210;$def=510;}#!!!! elsif($kyori==4800){$byo=290;$def=650;}#!!!!$B"(5wN%$N<oN`$,A}$($kKh$KDI2CD4@0(J else{$byo=220;$def=580;}#!!!! $pur=int(($timer-$def)/10);$con=$timer-$def-(10*$pur);if($con<0){$con=0;} $hun=int(($byo+$pur)/60); $byo=$byo+$pur-($hun*60); open(RE,"$recordfile"); seek(RE,0,0); @record = <RE>; close(RE); $recflag="";$kyori_maecheck = 0;$flag_recordcheck = 0; for($i=0;$i<@record;$i++){ ($rkyori,$rhun, $rbyo, $rcon, $ruma, $rkisyu, $rba, $rnen) = split(/<>/,$record[$i]); if($kyori == $rkyori){$flag_recordcheck = 1;} if($kyori == $rkyori && ($rhun*1000000+$rbyo*100+$rcon)>($hun*1000000+$byo*100+$con)){ #$B%l%3!<%I99?7(J $recflag="<font color=red>$B%l%3!<%I(J</font>"; $record[$i] = "$kyori<>$hun<>$byo<>$con<>$winneruma<>$winnerkisyu<>$kaitis<>$nendo<>\n"; open(RE,">$recordfile") ; eval 'flock(RE,2);'; seek(RE,0,0); print RE @record; eval 'flock(RE,8);'; close(RE);last; }elsif($flag_recordcheck == 0 && $kyori_maecheck < $kyori && $kyori < $rkyori){ # $B?75wN%A^F~(J splice @record,$i,0,("$kyori<>$hun<>$byo<>$con<>$winneruma<>$winnerkisyu<>$kaitis<>$nendo<>\n"); $recflag="<font color=red>$B%l%3!<%I(J</font>"; $flag_recordcheck = 1; open(RE,">$recordfile") ; eval 'flock(RE,2);'; seek(RE,0,0); print RE @record; eval 'flock(RE,8);'; close(RE);last; } $kyori_maecheck = $rkyori; }#for if($flag_recordcheck == 0){ # $B?75wN%DI2C(J $recflag="<font color=red>$B%l%3!<%I(J</font>"; push @record ,("$kyori<>$hun<>$byo<>$con<>$winneruma<>$winnerkisyu<>$kaitis<>$nendo<>\n"); open(RE,">$recordfile") ; eval 'flock(RE,2);'; seek(RE,0,0); print RE @record; eval 'flock(RE,8);'; close(RE); } @jyuni="";# $B=g0L3NDj(J

      2.$B%l!<%9?t$NA}2C2~B$!J(J6$B!A(J12R$B!K(J
      $B!&(J6$B!A(J12R$B$^$GG$0U$N%l!<%9?t$r@_Dj2DG=!#A4$F$N=5$,F1$8%l!<%9?t$G$"$kI,MW$O$"$j$^$;$s!#(J
      $B#1%l!<%9$r#1;~4VKh$K9T$&%P!<%8%g%s$O(J$B%3%A%i(J$B$X!#(J
      $B#1=5$rLs(J6$B;~4V$G9T$&%P!<%8%g%s$O(J$B%3%A%i(J$B$X!#(J

      $B"(%m!<%+%k$G0lDL$j$N%F%9%H$O9T$C$F$$$^$9$,!"=5BX$j;~$NIi2Y$bA}Bg$7$^$9$7(J
      $B%F%9%H$N8+F($7!&JQ99E@$N=q$-K:$lEy$b==J,$K9M$($i$l$^$9!#(J
      $BE,MQ$9$k>l9g$O?5=E$K!"%P%C%/%"%C%W$bK:$l$:$K

      3.$B%l!<%9HVAHJT=8MQ(JCGI
      $B!&(J$B$3$A$i(J

      $B"((J2006/02/19$B!"!V;2>H!W$G%W%k%@%&%s%a%K%e!<$NFbMF$b;2>H$9$k$h$&$K!#(J


      (4)$BHK?#(JB$BLFGO$NK}@-E*ITB-$X$NBP1~(J

      • 1.$BHK?#LFGO%;%j$G$N9XF~@)8B(J
      • 2.$B?75,EPO?GO

        (5)$B$=$NB>(J

        1.$B=5BX$j;~$N%l!<%9EPO?%_%9$NKI;_!J$H$$$&L>L\$NIT@5EPO?J}K!BP:v!K(J
        $B"((J$str_saltweek$B!"(J$str_randweek$B!"$NCM$OE,Ev$KCV$-49$($F$/$@$5$$!#(J
        $B!!$^$?!"Dj4|E*$KJQ99$9$k;v$r$*4+$a$7$^$9!#(J

        $B!&(Jhorse3.cgi$BFb$N(Jsub kankyou$B$KDI2C(J

        $str_saltweek = 'pa'; # $BMp?t$N $str_randweek = 'pipu'; # $BMp?t$Ne!"(J8$B%P%$%H0J>e$r?d>)!K(J

        $B!&F1>e%U%!%$%k$N(Jsub login$BFb$N:G=i$NJ}!V(J# $BGOpJs!W$N>e$NJU$j$KDI2C(J
        open(TI,"$timefile"); seek(TI,0,0); @now = <TI>; close(TI); ($tuki, $syuu, $raceno, $hi, $zikan, $nendo, $race_suu_zz, $race_suu_z, $race_suu_1 ,$race_suu_2) = split(/<>/, $now[0]); $week_pass = crypt "$tuki$syuu$str_randweek" ,$str_saltweek; substr $week_pass ,0 ,2 ,""; $week_pass =~ s/[^\w]//g;
        $B!&F1>e%U%!%$%k$N(Jsub login$BFb!"(J1236$B!A(J1238$B9TL\IU6a$K#19TDI2C(J
        <input type=hidden name=lname value=$loginname> <input type=hidden name=lpass value=$loginpass> <input type=hidden name=week_pass value=$week_pass>
        $B!&(Jhorse3_else.cgi$B$N(Jsub touroku$BFb$N:G=i$NJ}$KDI2C(J
        ($tuki, $syuu, $raceno, $hi, $zikan, $nendo) = split(/<>/, $stp[0]); $week_pass = crypt "$tuki$syuu$str_randweek" ,$str_saltweek; substr $week_pass ,0 ,2 ,""; $week_pass =~ s/[^\w]//g; if($form{'week_pass'} ne $week_pass){&error("$B=5$,JQ$o$j$^$7$?!#%m%0%$%s$7$J$*$7$F$+$i%l!<%9$KEPO?$7$F2<$5$$!#(J");} $u = $form{'umaname'}; # $BGO(J

      • 2.$BGOL>EPO?$NA43Q%+%J5,@)(J

        $B!&@8;:;~$NL>A07h$aItJ,$NJQ99!#(J horse3.cgi$B$N(Jsub namekime$BFb!"(J if((length($formumaname) < 4)||(length($formumaname) > 16)){&error("$BL>A0$ND9$5$,ITE,@Z$G$9!#(J");} $B$N2<$K0J2<$rDI2C(J # $BA43Q%+%JJ8;z$N$_$+!)$N%A%'%C%/(J for($i=0;$i<length($formumaname);$i+=2){ unless(substr($formumaname, $i, 2) =~ /(?:\x83[\x40-\x96]|\x81[\x45\x5B\x52\x53])/){ &error("$BA43Q%+%J0J30$NJ8;z$O;H$o$J$$$G2<$5$$!#(J"); } } $B!&%;%j9XF~;~$NL>A07h$aItJ,$NJQ99(J $B"(JQ?tL>$,0c$&$@$1$GFbMF$OF1$8$b$N!#(J horse3_umu.cgi$B$N(Jsub seribuy$BFb!"(J if((length($newname) < 4)||(length($newname) > 16)){&error("$BL>A0$ND9$5$,ITE,@Z$G$9!#(J");} $B$N2<$K!"0J2<$rDI2C(J # $BA43Q%+%JJ8;z$N$_$+!)$N%A%'%C%/(J for($i=0;$i<length($newname);$i+=2){ unless(substr($newname, $i, 2) =~ /(?:\x83[\x40-\x96]|\x81[\x45\x5B\x52\x53])/){ &error("$BA43Q%+%J0J30$NJ8;z$O;H$o$J$$$G2<$5$$!#(J"); } }
        $B!&(J3.$B%l!<%9=PAv>r7o$NJQ99(J

        horse3_else.cgi$B$N(Jsub touroku $B$rJQ99$9$k!#(J

        $B=PAv>r7o$N$&$A>^6b3[$K$h$k5,@)$O!"(J170$B!A(J173$B9TL\IU6a$N(J if($checks[2] eq "3" && $checks[4] eq "$B#G-5(J" && ($saikin < 1600)){&error("$B=PAv$9$k$K$O3MF@>^6b$,B-$j$^$;$s!#(J");}<BR> elsif(($checks[2] eq "4" || $checks[2] eq "34") && $checks[4] eq "$B#G-5(J" && ($saikin < 4000)){&error("$B=PAv$9$k$K$O3MF@>^6b$,B-$j$^$;$s!#(J");}<BR> elsif(($checks[2] eq "4" || $checks[2] eq "34") && $checks[4] eq "$B#G-6(J" && ($saikin < 3000)){&error("$B=PAv$9$k$K$O3MF@>^6b$,B-$j$^$;$s!#(J");}<BR> elsif(($checks[2] eq "4" || $checks[2] eq "34") && $checks[4] eq "$B#G-7(J" && ($saikin < 2000)){&error("$B=PAv$9$k$K$O3MF@>^6b$,B-$j$^$;$s!#(J");} $B$NItJ,$H$J$C$F$$$k!#(J $BA4GQ$9$k>l9g$O$3$3$r:o=|(Jor$B%3%a%s%H9T!JL58z!K2=!#(J $B#G#I$HF1$8=PAv>r7o$KJQ99$9$k>l9g!"Nc$($P#G-6$rF1$8=hM}$KJQ99$9$k!J#1?M#1F,$NEPO?$N$_!K>l9g$O(J 177$B9TL\IU6a!J0l?MJ#?tEPO?$r5v2D!K(J if($formname eq $check[2] && $checks[4] ne "$B#G-5(J"){&error("$B#1%l!<%9$KEPO?$G$-$k$N$O#1?M#1F,$^$G$G$9!#(J");} $B$O$=$N$^$^!#(J 185$B9TL\IU6a!JEPO?;~$NA0=hM}!K(J if($checks[4] eq "$B#G-5(J"){ $B"-(J if($checks[4] eq "$B#G-5(J" || $checks[4] eq "$B#G-6(J" ){ 209$B9TL\IU6a!J#G#I=|30=hM}!K(J if(($checkg[4] eq "$B#G-5(J" && $#files >= 11) || ($#files >= 6 && $checkg[1] eq "$B3$30(J")){ # 10$BF,L\0J>e$NEPO?$G$b!"#G#I=|30$N=hM}$K$^$o$5$J$$(J $B"-(J if((($checkg[4] eq "$B#G-5(J" or $checkg[4] eq "$B#G-6(J") && $#files >= 11) || ($#files >= 6 && $checkg[1] eq "$B3$30(J")){ # 10$BF,L\0J>e$NEPO?$G$b!"#G#I=|30$N=hM}$K$^$o$5$J$$(J $B"(CjA*$K$h$k=PAv!J(J10$BF,EPO?$G$b%l!<%9$rDy$a@Z$i$J$$!K$rE,MQ:Q$N>l9g$O!"(J if($#files >= 10 && $checks[4] ne "$B#G-5(J"){# $BDy$a@Z$j(J $files[0] = "$checks[0]<r>$checks[1]<r>$checks[2]<r>$checks[3]<r>$checks[4]<r>0<r>$checks[6]<r>$checks[7]<r>$checks[8]<r>$checks[9]<r>$checks[10]<r>$checks[11]<r>\n"; } $B$NItJ,$r:o=|(Jor$B%3%a%s%H9T!JL58z!K2=!#(J $B!J85$+$iITMW$JItJ,$@$C$?$N$r!"$o$6$o$6JQ99$9$k$N$b%d%d%3%7%$$N$G:o=|!K(J $B0J>e$N$h$&$KJQ99$9$k!#(J $B!&(J4.$BGONp!&@-JL$K4X$9$k@MNL$ND4@0$K4X$9$k0F(J
        $B8=>u$G$N@-JL$K$h$k6TNL:9$O(J
        $B!:P@oA4$F$H%*!<%W%s$G!"LFGO(J-1kg$B!#(J
        $B!&$=$NB>$N#3:P0J>e$N%*!<%W%s@o0J30$G!"LFGO(J-2kg

        $BGONp$K$h$k6TNL:9$O(J
        $B!:PGO(J-2kg

        $B$3$l$i$N6TNL:9$O $B%2!<%`Fb$G$NNO4X78$O$^$?0[$J$C$?BN7O$H$J$C$F$$$k$?$a$KIT@09g$,@8$8!"(J
        $BLFGO!d24GO!J1F6A=$@5A0!K!"#3:PGO!d8EGO!"$H$7$?(J
        $BNO4X78$K$J$C$F$7$^$C$F$$$k!#(J

        $B$^$:!"24GO$HLFGO$NNO4X78$K$D$$$F$O%4!<%I%s$5$s$N=$@5(J
        horse3_race.cgi$B$N(J397$B9TL\IU6a$rJQ99(J

        # $BD4;R(J
        $sokudo[$i]+=rand($tyoushi[$i]+3);
        $sokudo[$i]-=($omori[$i]-53);

        $B"-(J

        # $BD4;R(J
        $sokudo[$i]+=$tyoushi[$i];
        $sokudo[$i]-=rand($omori[$i]-48); # $BCm!K%4!<%I%s$5$s$N=$@5$h$j99$KJQ99!#%*%7%c%l6%GO$G%l%3!<%I$,B?$/$J$C$?$N$r
        $B$K$h$C$F6TNL$N1F6A$,2<$2$i$l$k;v$K$h$j!"6TNL:9$h$jLFGO$NCB@8;~G=NOJd@5$K$h$kITMx$,(J
        $B$=$l$J$j$K>e2s$k$h$&$KD4@0$5$l!"%P%i%s%9$, $B!J $B$?$@#3:PGO$H8EGO$NNO4X78$K$D$$$F$O!"G=NO$,40@.$7$?GOF1;N$N@o$$$, $B $B8N$K%2!<%`$N%P%i%s%9$r9M$($l$P!"6TNL:9$OITI,MW$G$"$k$7!"(J
        $BGQ;_$r$*4+$a$9$k!#(J

        $B$b$75U$KN> $B:9$r3N $B8EGO$H$7$F3hLv$9$kIaDLCY!&HU@.7?$NG=NO40@.;~$K(J+5$BDxEY$NJd@5$r9T$&$+!#(J
        $BA0l9g$O%2!<%`$KI}$,$J$/$J$C$F$7$^$&$7!"8el9g$O!"#3:P=);~$K8_3Q$K@_Dj$5$l$?(J
        $BIaDLAa7?$,6TNL:9$N$J$/$J$C$?#4:P;~$KA4$/>!$F$J$/$J$kEy!"D4@0$,:$Fq!#(J


        $B$A$J$_$K!"6TNL4X78$N2~B$2U=j$O(J
        horse3_race.cgi$B$N(J206$B!A(J218$B9TL\IU6a!J%l!<%9$G$N6TNL!K(J

        # $BGOL>!!53 if($kurasus eq "$B?7GO(J" || $kurasus eq "$BL$>!Mx(J"){$omori[$i]=54;}
        elsif($nen eq "2" && $kurasus eq "$B%*!<%W%s(J"){$omori[$i]=55;}
        elsif($kurasus eq "$B%*!<%W%s(J"){$omori[$i]=56;}
        elsif($nen eq "2"){$omori[$i]=55;}
        elsif($nen eq "3" && $kurasus eq "$B#G-5(J"){$omori[$i]=57;}
        elsif($nen eq "3"){$omori[$i]=56;}
        elsif($kurasus eq "$B#G-5(J"){$omori[$i]=58;}
        else{$omori[$i]=57;}
        if(($kurasus eq "$B%*!<%W%s(J" || $kurasus eq "$B#G-7(J") && ($nen eq "34" || $nen eq "4")){$omori[$i] += int((${$w[$i]}[14]*1.5) + ${$w[$i]}[15] + (${$w[$i]}[16]*0.5));}
        if(${$w[$i]}[6] eq "$BLF(J" && ($kurasus eq "$B%*!<%W%s(J" || $nen eq "2")){$omori[$i] -= 1;}
        elsif(${$w[$i]}[6] eq "$BLF(J"){$omori[$i] -= 2;}
        #2$B!D#2:P8BDj!"(J3$B!D#3:P8BDj!"(J4$B!D8EGO8BDj!"(J34$B!D#3:P0J>e(J

        $BF1(J231$B9TL\IU6a(J
        if($nen eq "34" && $ttoshi==3){$omori[$i] -= 2;}

        $BF1(J235$B9TL\IU6a(J
        $log[$m] = "${$w[$i]}[1]<r>${$w[$i]}[45]${$w[$i]}[41]<r>${$w[$i]}[5]<r>$ttoshi${$w[$i]}[6]<r>$omori[$i]<>";


        horse3_rank.cgi$B$N(Jsub raceno$BFb!"(J368$B!A(J379$B9TL\IU6a$N!JEPO?GOI=$NI=<(!K(J

        if($log[4] eq "$B?7GO(J" || $log[4] eq "$BL$>!Mx(J"){$omori=54;}
        elsif($log[2] eq "2" && $log[4] eq "$B%*!<%W%s(J"){$omori=55;}
        elsif($log[4] eq "$B%*!<%W%s(J"){$omori=56;}
        elsif($log[2] eq "2"){$omori=55;}
        elsif($log[2] eq "3" && $log[4] eq "$B#G-5(J"){$omori=57;}
        elsif($log[2] eq "3"){$omori=56;}
        elsif($log[4] eq "$B#G-5(J"){$omori=58;}
        else{$omori=57;}
        if(($log[4] eq "$B%*!<%W%s(J" || $log[4] eq "$B#G-7(J") && ($log[2] eq "34" || $log[2] eq "4")){$omori += int(($ug1*1.5) + $ug2 + ($ug3*0.5));}
        if($usei eq "$BLF(J" && ($log[4] eq "$B%*!<%W%s(J" || $log[2] eq "2")){$omori -= 1;}
        elsif($usei eq "$BLF(J"){$omori -= 2;}
        if($log[2] eq "34" && $utoshi==3){$omori -= 2;}



        $B$r2~B$$9$k!#Nc$($PGONp$K$h$k6TNL:9$r$J$/$9!J$?$@$7I=<($O=>MhDL$j(J-2kg$B!K>l9g$O2

        horse3_race.cgi$B$N(J206$B!A(J218$B9TL\IU6a!J%l!<%9$G$N6TNL!K(J

        # $BGOL>!!53 if($kurasus eq "$B?7GO(J" || $kurasus eq "$BL$>!Mx(J"){$omori[$i]=54;}
        elsif($nen eq "2" && $kurasus eq "$B%*!<%W%s(J"){$omori[$i]=55;}
        elsif($kurasus eq "$B%*!<%W%s(J"){$omori[$i]=56;}
        elsif($nen eq "2"){$omori[$i]=55;}
        elsif($nen eq "3" && $kurasus eq "$B#G-5(J"){$omori[$i]=57;}
        elsif($nen eq "3"){$omori[$i]=56;}
        elsif($kurasus eq "$B#G-5(J"){$omori[$i]=58;}
        else{$omori[$i]=57;}
        if(($kurasus eq "$B%*!<%W%s(J" || $kurasus eq "$B#G-7(J") && ($nen eq "34" || $nen eq "4")){$omori[$i] += int((${$w[$i]}[14]*1.5) + ${$w[$i]}[15] + (${$w[$i]}[16]*0.5));}
        if(${$w[$i]}[6] eq "$BLF(J" && ($kurasus eq "$B%*!<%W%s(J" || $nen eq "2")){$omori[$i] -= 1;}
        elsif(${$w[$i]}[6] eq "$BLF(J"){$omori[$i] -= 2;}
        #2$B!D#2:P8BDj!"(J3$B!D#3:P8BDj!"(J4$B!D8EGO8BDj!"(J34$B!D#3:P0J>e(J

        $BF1(J231$B9TL\IU6a(J
        $omori_hyouji = $omori[$i]; $B"+DI2C(J
        if($nen eq "34" && $ttoshi==3){$omori_hyouji -= 2;} $B"+JQ99(J

        $BF1(J235$B9TL\IU6a(J
        $log[$m] = "${$w[$i]}[1]<r>${$w[$i]}[45]${$w[$i]}[41]<r>${$w[$i]}[5]<r>$ttoshi${$w[$i]}[6]<r>$omori_hyouji<>"; $B"+JQ99(J

        horse3_rank.cgi$B$N(Jsub raceno$BFb!"(J368$B!A(J379$B9TL\IU6a!JEPO?GOI=$NI=<(!K(J

        if($log[4] eq "$B?7GO(J" || $log[4] eq "$BL$>!Mx(J"){$omori=54;}
        elsif($log[2] eq "2" && $log[4] eq "$B%*!<%W%s(J"){$omori=55;}
        elsif($log[4] eq "$B%*!<%W%s(J"){$omori=56;}
        elsif($log[2] eq "2"){$omori=55;}
        elsif($log[2] eq "3" && $log[4] eq "$B#G-5(J"){$omori=57;}
        elsif($log[2] eq "3"){$omori=56;}
        elsif($log[4] eq "$B#G-5(J"){$omori=58;}
        else{$omori=57;}
        if(($log[4] eq "$B%*!<%W%s(J" || $log[4] eq "$B#G-7(J") && ($log[2] eq "34" || $log[2] eq "4")){$omori += int(($ug1*1.5) + $ug2 + ($ug3*0.5));}
        if($usei eq "$BLF(J" && ($log[4] eq "$B%*!<%W%s(J" || $log[2] eq "2")){$omori -= 1;}
        elsif($usei eq "$BLF(J"){$omori -= 2;}
        if($log[2] eq "34" && $utoshi==3){$omori -= 2;}




        5.$B%*!<%W%s@o$G$N%O%s%G$N8+D>$7(J
        $B=E>^$H0c$C$F%*!<%W%s@o$O2?>!$7$h$&$,!"%l!<%9$G6TNL$NITMx$rHo$i$J$$;EMM$K$J$C$F$$$k!#(J
        $B$=$N$?$a!"NO$"$kGO$G$b=E>^$K>!$C$F6TNL$NITMx$rHo$k$h$j!"%*!<%W%s@o$G2?>!$b>e$2$h$&$H$9$kJ}K!$,2DG=$H$J$C$F$$$k!#(J
        $B$=$l$rKI$0$?$a!"=E>^$HF1MM$K%*!<%W%s@o$N>!?t$K1~$8$F$b6TNL$K$h$k%O%s%G$rIU$1$kJ}K!$,9M$($i$l$k!#(J
        $B2<5-$NNc$G$O!"%*!<%W%s@o$G$N%O%s%G$r!"%*!<%W%s#1>!$K$D$-(J+0.5kg$B!"#G-7#1>!$K$D$-(J+1.0kg$B!"#G-6#1>!$K$D$-(J+1.5kg$B!"#G-5#1>!$K$D$-(J+2.0kg$B!"$HJQ99$7$F$$$k!#(J


        $B!&(Jhorse3_race.cgi$B$N(J220$B9TL\IU6a$KDI2C(J else{$omori[$i]=57;} if($kurasus eq "$B#G-7(J" && ($nen eq "34" || $nen eq "4")){$omori[$i] += ${$w[$i]}[14]*1.5 + ${$w[$i]}[15] + ${$w[$i]}[16]*0.5;} # $B2~B$!J%*!<%W%s$G$N%O%s%G8+D>$7!K(J if($kurasus eq "$B%*!<%W%s(J" && ($nen eq "34" || $nen eq "4")){$omori[$i] += ${$w[$i]}[14]*2 + ${$w[$i]}[15]*1.5 + ${$w[$i]}[16] + (${$w[$i]}[10] - ${$w[$i]}[14] - ${$w[$i]}[15] - ${$w[$i]}[16] - 1)*0.5;} # $B2~B$!J%*!<%W%s$G$N%O%s%G8+D>$7!K(Jend if(${$w[$i]}[6] eq "$BLF(J" && ($kurasus eq "$B%*!<%W%s(J" || $nen eq "2")){$omori[$i] -= 1;} elsif(${$w[$i]}[6] eq "$BLF(J"){$omori[$i] -= 2;} $B!&(Jhorse3_rank.cgi$B$N(J686$B9TL\IU6a$KDI2CJQ99(J else{$omori=57;} # $B2~B$!J%*!<%W%s$G$N%O%s%G8+D>$7!K(J if($log[4] eq "$B#G-7(J" && ($log[2] eq "34" || $log[2] eq "4")){$omori += $ug1*1.5 + $ug2 + $ug3*0.5;} if($log[4] eq "$B%*!<%W%s(J" && ($nen eq "34" || $nen eq "4")){$omori[$i] += $ug1*2 + $ug2*1.5 + $ug3 + ($u1i - $ug1 - $ug2 - $ug3 - 1)*0.5;} if($usei eq "$BLF(J" && ($log[4] eq "$B%*!<%W%s(J" || $log[2] eq "2")){$omori -= 1;} elsif($usei eq "$BLF(J"){$omori -= 2;} # $B2~B$!J%*!<%W%s$G$N%O%s%G8+D>$7!K(Jend if($log[2] eq "34" && $utoshi==3){$omori -= 2;} 6.$BGO!Mx8EGO$N:o=|!J%F%9%H:Q$_!K(J
        $B"(%m!<%+%k4D6-$G$N%F%9%H$O9T$o$l$F$$$k$,!"IT6q9g$,$"$C$?>l9g$OCWL?E*$J>I>u$b9M$($i$l$k$?$a!"(J
        $BE,MQ$KEv$?$C$F$OFC$KCm0U$9$k$3$H!#(J


        $B"(%3!<%I8F$S=P$7;~4|$N5-=R!#2<5-$NNc$O#17nKv!J#27n=i!K$K9T$&>l9g!#(J horse3.cgi$B$N(J354$B9TL\IU6a$KDI2C(J if(($tuki eq "2") || ($tuki eq "4") || ($tuki eq "6") || ($tuki eq "8") || ($tuki eq "10")){require './horse3_koushin.cgi';&useityou;} # $B7n99?7(J($BGO@.D9(J) elsif($tuki eq "1"){require './horse3_koushin.cgi';&del_umahansyoku;} # $B7n99?7(J($BHK?#LFGO$N<+F03+J|!"6%AvGO$N:o=|!#L$>!Mx8EGO$N:o=|!#(J) elsif($tuki eq "3"){require './horse3_koushin.cgi';&kiintai;} # $B7n99?7(J($B53<j0zB`(J) horse3_koushin.cgi$B$N:G8e$KDI2C(J sub del_umahansyoku{ open(BA,"$banushifile"); seek(BA,0,0); @banushi = <BA>; close(BA); open(TM,"$tamefile"); seek(TM,0,0); @hansyo = <TM>; close(TM); # $BHK?#LFGO$N3+J|(J for($i=0;$i<@hansyo;$i++){ ($tame, $syoyuusya, $hpass, $hyouka, $htoshi, $hsp, $hsyu, $hzizoku, $hkon, $hst, $hki, $hkenkou, $hkeiro, $hbaku, $ht, $hh, $htt, $hth, $hht, $hhh, $hketou1, $hketou2, $hketou3, $hflag, $hsanku, $hsankuf ,$dmy) = split(/<>/,$hansyo[$i]); $flag_irubanushi=0; for($j=0;$j<@banushi;$j++){ ($bname, $bpass) = split(/<>/,$banushi[$j]); if($bname eq $syoyuusya){$flag_irubanushi=1;last;} } if($flag_irubanushi == 0){ $hansyo[$i] = "$tame<><><>$hyouka<>$htoshi<>$hsp<>$hsyu<>$hzizoku<>$hkon<>$hst<>$hki<>$hkenkou<>$hkeiro<>$hbaku<>$ht<>$hh<>$htt<>$hth<>$hht<>$hhh<>$hketou1<>$hketou2<>$hketou3<>$hflag<>$hsanku<>$hsankuf<>$dmy<>\n"; } } open(TM,">$tamefile") ; eval 'flock(TM,2);'; seek(TM,0,0); print TM @hansyo; eval 'flock(TM,8);'; close(TM); # $B0zB`GO<g$N6%AvGO:o=|(J # $B#3:PGO(J open(UL,"$uma2file"); seek(UL,0,0); @uma2 = <UL>; close(UL); for($i=0;$i<@uma2;$i++){ ($no, $uname, $syoyuusya, $upass, $uhost, $ukeicon, $usei, $utoshi, $utyoushi, $useikata, $u1i, $u2i, $u3i, $u4i, $ug1, $ug2, $ug3, $ukatig1, $ukatig2, $ukatig3, $utotal, $ukyonen, $ukotoshi, $usp, $usyu, $uzizoku, $ukon, $ust, $uki, $ukenkou, $utt, $uhh, $kinsou5, $utt2, $uth2, $uht2, $uhh2, $seisanka, $uketou1, $uketou2, $uketou3, $ta1, $ta2, $ta3, $umatoku) = split(/<>/,$uma2[$i]); $flag_irubanushi=0; for($j=0;$j<@banushi;$j++){ ($bname, $bpass) = split(/<>/,$banushi[$j]); if($bname eq $syoyuusya && $bpass eq $upass){$flag_irubanushi=1;last;} } if($flag_irubanushi == 0){$uma2[$i] = "";} } open(UL,">$uma2file") ; eval 'flock(UL,2);'; seek(UL,0,0); print UL @uma2; eval 'flock(UL,8);'; close(UL); # $B8EGO(J open(UL,"$uma3file"); seek(UL,0,0); @uma3 = <UL>; close(UL); for($i=0;$i<@uma3;$i++){ ($no, $uname, $syoyuusya, $upass, $uhost, $ukeicon, $usei, $utoshi, $utyoushi, $useikata, $u1i, $u2i, $u3i, $u4i, $ug1, $ug2, $ug3, $ukatig1, $ukatig2, $ukatig3, $utotal, $ukyonen, $ukotoshi, $usp, $usyu, $uzizoku, $ukon, $ust, $uki, $ukenkou, $utt, $uhh, $kinsou5, $utt2, $uth2, $uht2, $uhh2, $seisanka, $uketou1, $uketou2, $uketou3, $ta1, $ta2, $ta3, $umatoku) = split(/<>/,$uma3[$i]); $flag_irubanushi=0; for($j=0;$j<@banushi;$j++){ ($bname, $bpass) = split(/<>/,$banushi[$j]); if($bname eq $syoyuusya && $bpass eq $upass){$flag_irubanushi=1;last;} } if($flag_irubanushi == 0){$uma3[$i] = "";} if($u1i == 0){$uma3[$i] = "";} } open(UL,">$uma3file") ; eval 'flock(UL,2);'; seek(UL,0,0); print UL @uma3; eval 'flock(UL,8);'; close(UL); }# sub del_umahansyoku end 7.$BHK?#LFGO$NBeI=;:6p$,:o=|$5$l$kIT6q9g$N=$@5(J

        $B!&(Jhorse3_umu.cgi$B$N#7#3#29TL\$r=$@5(J if($tame eq $hinba){# $B<oIU$1$O#1G/$K#12s(J $hkanryou="$tame<mm>$htok0<>$syoyuusya<>$hpass<>$hyouka<>$htoshi<>$hsp<>$hsyu<>$hzizoku<>$hkon<>$hst<>$hki<>$hkenkou<>$hkeiro<>$hbaku<>$ht<>$hh<>$htt<>$hth<>$hht<>$hhh<>$hketou1<>$hketou2<>$hketou3<>0<>$hsanku<><><>\n";$list=""; 8.$BGO $B"-$rE,MQ$9$k$N$,Aa$/$F3N http://www2s.biglobe.ne.jp/~cru/library/lq/index.html




        9.$B%m!<%+%k#B#C(J
        $B@.D9$d@8;:ItJ,$N%3!<%I$rBg$-$/2~B$$7$F$7$^$C$?$N$G#B#C$K;22C$7?I$$!"(J
        $B<+A0$N7cGO$GFH<+$N#B#C$r3+:E$7$?$$!"Ey$N>l9g$KJXMx$+$H;W$C$F:n@.$7$^$7$?!#(J

        $B#1!%;H$$J}(J
        $B!!2<$N!V%m!<%+%k#B#C!W$r%/%j%C%/!!"*!!%m!<%+%k#B#CMQ#T#O#P%Z!<%8$X(J

        $BDL>o$N%m%0%$%s2hLL$K$F(J
        $B!!!V6%AvGO!W$rA*$s$G!V%m!<%+%k#B#CEPO?!W%/%j%C%/!!"*!!%m!<%+%k#B#COH$XEPO?(J
        $B!!!V%m!<%+%k#B#C%m%0%$%s!W$r%/%j%C%/!!"*!!%m!<%+%k#B#CMQ%m%0%$%s2hLL$X(J

        $B%m!<%+%k#B#CMQ%m%0%$%s2hLL$K$F(J
        $B!!!V6%AvGO!W!V:n@o!W!V%l!<%9L>!W$rA*$s$G!VEPO?!W$r%/%j%C%/!!"*!!%l!<%9$KEPO?(J
        $B!!!V6%AvGO!W!V:o=|!W$rA*$s$G!V:o=|!W$r%/%j%C%/!!"*!!%m!<%+%k#B#CMQ%m%0%$%s2hLL$h$j:o=|!!!!"(Cm!!%l!<%9$KEPO?:Q$N>l9g$O:o=|=PMh$^$;$s!#(J
        $B!!(J
        $BCm!K%l!<%9$O40A4$K $B!!!!!JJL$K(JHTML$B%U%!%$%k$r:n$C$F8x3+$9$k1?MQ$,%Y%?!<$+!)!K(J


        $B#2!%2~B$J}K!(J

        $B!&%m!<%+%k#B#CMQ%l!<%9%U%!%$%k!J(Jlbc1.cgi$B!"(Jlbc2.cgi$B!"(Jlbc3.cgi$B!"(Jlbc4.cgi$B!"(Jlbc5.cgi$B!"(Jlbc6.cgi$B!K$r:n@.$7!"(J
        $B!!#19TL\$K%l!<%9%G!<%?$r5-F~!JDL>o$N%l!<%9%U%!%$%k$HF1$8=q<0!K(J

        $B!&(Jlbc_uma.cgi$B!JCf?H$O6u!K$r:n@.$9$k!#(J

        $B!&(Jhorse3_lbc.cgi$B%U%!%$%k$r:n@.$7!"(J$B$3$NFbMF(J$B$rJ]B8(J

        $B!&(Jhorse3.cgi$B$N(Jsub kankyou$BFb$KDI2C(J # $B2~B$!J%m!<%+%k(JBC$B!K(J @fp_lbcrace = ("./dammy.cgi","./lbc1.cgi","./lbc2.cgi","./lbc3.cgi","./lbc4.cgi","./lbc5.cgi","./lbc6.cgi"); # $B%l!<%9MQ%U%!%$%k(J $lbcuma = './lbc_uma.cgi'; $lbc = 1; # $B2~B$!J%m!<%+%k(JBC$B!K(Jend $B!&(Jhorse3.cgi$B$N(J160$B9TL\IU6a$KDI2C(J if($form{'rekiview'}){require './horse3_kiroku.cgi';&rekiview;exit;} # $B5-O?A*Br(J # $B2~B$!J%m!<%+%k#B#C!K(J if($form{'lbc_top'}){require './horse3_lbc.cgi';&lbc_top;exit;} # $B%m!<%+%k(JBC$B%H%C%W2hLL(J if($form{'lbc_rno'}){require './horse3_lbc.cgi';&lbc_rno;exit;} # $B%m!<%+%k(JBC$B%l!<%9EPO?>u67(J if($form{'lbc_rkekka'}){require './horse3_lbc.cgi';&lbc_rkekka;exit;} # $B%m!<%+%k(JBC$B%l!<%97k2L(J if($form{'lbc_utouroku'}){require './horse3_lbc.cgi';&lbc_utouroku;exit;} # $B%m!<%+%k(JBC$B6%AvGOEPO?(J if($form{'lbc_usakujo'}){require './horse3_lbc.cgi';&lbc_usakujo;exit;} # $B%m!<%+%k(JBC$B6%AvGO:o=|(J if($form{'lbc_rtouroku'}){require './horse3_lbc.cgi';&lbc_rtouroku;exit;} # $B%m!<%+%k(JBC$B%l!<%9EPO?(J if($form{'lbc_login'}){require './horse3_lbc.cgi';&lbc_login;exit;} # $B%m!<%+%k(JBC$B%m%0%$%s(J # $B2~B$!J%m!<%+%k#B#C!K(Jend &top; $B!&(Jhorse3.cgi$B$N(J450$B9TL\IU6a!"(Jsub hutter$BFb$KDI2C!!"(%U%C%?$K%\%?%s$rEPO?(J <input type=\"submit\" name=\"lbc_top\" value=\"$B%m!<%+%k#B#C(J\" onMouseOver=this.style.backgroundColor=\"$button1\" onMouseOut=this.style.backgroundColor=\"$button2\"> $B!&(Jhorse3.cgi$B$N(J1499$B9TL\IU6a!"(Jsub login$BFb$K#19TDI2C!!"(%3%^%s%I$K!V(J<option value=22>$B%m!<%+%k#B#CEPO?!W$rDI2C(J $B!!%3%^%s%I!'(J <select name=rs> @p <option value=13>[$BJ|KR(J]$BC;4|J|KR(J <option value=14>[$BJ|KR(J]$BD94|J|KR(J <option value=15>[$B0zB`(J]$B6%AvGO$N0zB`(J <option value=16>[$B@8;:(J]$B<oIU$10MMj(J <option value=17>[$B@8;:(J]$B#2:PGO9XF~(J <option value=18>[$B@8;:(J]$B#2:PGOGd5Q(J <option value=19>[$B@8;:(J]$BHK?#LFGO9XF~(J <option value=20>[$B@8;:(J]$BHK?#LFGOGd5Q(J <option value=21>[$B@8;:(J]$B<o24GOGd5Q(J <option value=22>$B%m!<%+%k#B#CEPO?(J </select> $B!&(Jhorse3.cgi$B$N(J1515$B9TL\IU6a!"(Jsub login$BFb$KDI2C!!"(!V%m!<%+%k#B#C%m%0%$%s!W!V%m!<%+%k#B#CEPO?!W%\%?%s$rDI2C(J <input type=submit name=lbc_login value=$B%m!<%+%k#B#C%m%0%$%s(J style= background:#008B8B;color:ffffff;><input type=submit name=lbc_utouroku value=$B%m!<%+%k#B#CEPO?(J style= background:#A020F0;color:ffffff;>



        10.$BGO7t%7%9%F%`!J2TF0Cf!K(J
        $B!&?7GO$d%*!<%W%s!"#G#IEy%l!<%9$N3JKh$KGO7tHNGd$N@_Dj2DG=(J
        $B!&C1>!$+$i;0O"C1$^$G!"HNGd$9$kGO7t$N $B!&%*%C%:$K$D$$$F!#GO$NG=NO$N$_$h$j;;=P$5$l$^$9!J53e!K53 $B!&%*%C%:$NG\N(7W;;$O#J#R#A$K=`5r!#%F%iA,$b$-$C$A$j0z$+$l$F$^$9(Jw
        $B!&GO7t9XF~7k2L$N%*%C%:$X$NH?1G$OL$

        $B!&(J$B$3$NFbMF(J$B$r(Jhorse3_baken.cgi$B$H$7$FJ]B8$7!"%"%C%W%m!<%I!#(J
        $BCm!K(Jhorse3_baken.cgi$B$K$OGSB>@)8f$,4^$^$l$F$^$;$s!#(J
        $B!!!!I,MW$H46$8$kJ}$O3F<+$G
        $B"(2~D{MzNr(J
        • 2005/11/04 Perl$B%t%!!<%8%g%s0c$$$X$NBP1~(J
        • 2005/11/05 ver1.001$B!#9XF~E@?t@)8B$N%P%0%U%#%C%/%9!"(J12$B7n(J4$B=59XF~@)8B$N2r=|!#(Jver$B$NDI2C!"(Jexists$B4X?t$rE1GQ(J
        • 2005/11/08 ver1.002$B!#;0O"C1$,Ev$?$C$F$bJV6b$5$l$J$$IT6q9g$r=$@5(J


        $B!&0J2<$N6u%U%!%$%k$r:n@.$7!"%"%C%W%m!<%I!#(J

        baken_time.cgi # $B7nF|?J9T4IM}(J
        baken_kekka_new.cgi # $B%l!<%97k2L!J6a(J2$B!A(J3$B=5!K(J
        baken_kekka_old.cgi # $B%l!<%97k2L!J",$h$j8E$$%l!<%9!K(J
        baken_banushi.cgi # $BGO baken_nendo.cgi # $BG/EYM%=(@.@S(J
        baken_kaime_new.cgi # $B9XF~$5$l$?GO7t5Z$S$=$N7k2L!J6a(J2$B%v7n!K(J
        baken_kaime_old.cgi # $B",$N8E$$7k2L(J


        $B!&(Jhoese3.cgi$B$N(J63$B9TL\IU6a!"(Jsub kankyou$BFb$K0J2<$rDI2C(J
        # $B2~B$!JGO7t!K(J $fp_baken_time = './baken_time.cgi'; # $B7nF|?J9T>u67(J $fp_baken_kekka_new = './baken_kekka_new.cgi'; # $B7k2L!J6a(J2$B!A(J3$B=5!K(J $fp_baken_kekka_old = './baken_kekka_old.cgi'; # $B7k2L!J2a5n!K(J # $BG/EY(J<>$B7n(J<>$B=5(J<>$B%l!<%9HV9f(J<>$B%l!<%9L>(J<>$B>l=j(J<>$B=PAvGO:P(J<>$B5wN%(J<>$B%0%l!<%I(J<>$B>!$AGOL>(J<>$B#2CeGOL>(J<>$B#3CeGOL>(J<>$BC1>!G\N((J<>$BJ#>!G\N(!J#1Ce!K(J<>$BJ#>!G\N(!J#2Ce!K(J<>$BJ#>!G\N(!J#3Ce!K(J<>$BGOO"G\N((J<>$BGOC1G\N((J<>$B%o%$%I#1!]#2Ce(J<>$B%o%$%I#1!]#3Ce(J<>$B%o%$%I#2!]#3Ce(J<>$B#3O"J#G\N((J<>$B#3O"C1G\N((J<> $fp_bakenbanushi = './baken_banushi.cgi'; # $BGO<g<};Y(J # $BGO<gL>(J<>$B%Q%9%o!<%I(J<>$B:#G/9XF~E@?t(J<>$B:#G/E*CfE@?t(J<>$B:#G/9XF~%l!<%9?t(J<>$B:#G/E*Cf%l!<%9?t(J<>$B:#G/9XF~6b3[(J<>$B:#G/2s<}6b3[(J<>$BN_7W9XF~E@?t(J<>$BN_7WE*CfE@?t(J<>$BN_7W9XF~%l!<%9?t(J<>$BN_7WE*Cf%l!<%9?t(J<>$BN_7W9XF~6b3[(J<>$BN_7W2s<}6b3[(J<>$B:rG/9XF~E@?t(J<>$B:rG/E*CfE@?t(J<>$B:rG/9XF~%l!<%9?t(J<>$B:rG/E*Cf%l!<%9?t(J<>$B:rG/9XF~6b3[(J<>$B:rG/2s<}6b3[(J<> $fp_bakennendo = './baken_nendo.cgi'; # $BG/EY@.@S(J # $BG/EY(J<>$BE*CfN(!J9XF~E@?t4p=`!K(J1$B0L(J<s>$B@.@S(J<h>$BF1(J2$B0L(J<s>$B@.@S(J<h>$BF1(J3$B0L(J<s>$B@.@S(J<h><>$BE*CfN(!J9XF~%l!<%9?t4p=`!K(J1$B0L(J<s>$B@.@S(J<h>$BF1(J2$B0L(J<s>$B@.@S(J<h>$BF1(J3$B0L(J<s>$B@.@S(J<h><>$BE*CfGO7t?t(J1$B0L(J<s>$B@.@S(J<h>$BF1(J2$B0L(J<s>$B@.@S(J<h>$BF1(J3$B0L(J<s>$B@.@S(J<h><>$BE*Cf%l!<%9?t(J1$B0L(J<s>$B@.@S(J<h>$BF1(J2$B0L(J<s>$B@.@S(J<h>$BF1(J3$B0L(J<s>$B@.@S(J<h><>$B2s<}N((J1$B0L(J<s>$B@.@S(J<h>$BF1(J2$B0L(J<s>$B@.@S(J<h>$BF1(J3$B0L(J<s>$B@.@S(J<h><>$B=cMx1W3[(J1$B0L(J<s>$B@.@S(J<h>$BF1(J2$B0L(J<s>$B@.@S(J<h>$BF1(J3$B0L(J<s>$B@.@S(J<h><> $fp_bakenkaime_new = './baken_kaime_new.cgi'; # $B9XF~GO7t!J6a(J2$B%v7n!K(J # $B%9%F!<%?%9(J<>$BGO<g(J<>$B%Q%9%o!<%I(J<>$BGO7t<oN`(J<>$BG/EY(J<>$B7n(J<>$B=5(J<>$B%l!<%9HV9f(J<>$B%l!<%9L>(J<>$B>l=j(J<>$B=PAvGO:P(J<>$B5wN%(J<>$B%0%l!<%I(J<>$B9XF~GOL>!J#1Ce!K(J<>$B9XF~GOL>!J#2Ce!K(J<>$B9XF~GOL>!J#3Ce!K(J<>$B9XF~3[(J<>$B2s<}3[(J<> # $B%9%F!<%?%9(J 0$B!'L$H/Av!"(J1$B!'Ev$?$j!"(J2$B!'30$l!"(J3$B!'J'$$La$7(J $fp_bakenkaime_old = './baken_kaime_old.cgi'; # $B9XF~GO7t!J(J2$B%v7n0JA0!K(J # $B2~B$!JGO7t!K(Jend $B!&(Jhorse3.cgi$B$N(J149$B9TL\IU6a!"(J# $B=hM}(J $B$NItJ,$K0J2<$rDI2C(J

        if($form{'namekime'}){&namekime;&login;exit;} # $BGOL>EPO?(J # $B2~B$!JGO7t!K(J if($form{'baken'}){require './horse3_baken.cgi';&baken;exit;} # $BGO7t%b!<%I(J # $B2~B$!JGO7t!K(Jend if($form{'seisan'}) {require './horse3_umu.cgi';&seisan;exit;} # $B@8;:(J $B!&(Jhorse3.cgi$B$N(J245$B9TL\IU6a!"(Jsub readlog$BFb$N!"%?%$%`%G!<%?$rFI$_=*$($?D>8eJU$j$K0J2<$rDI2C!JGO7t7k2LEy99?7!K(J

        ###### $B%j!<%0F|?t$N99?7(J open(TI,"$timefile"); seek(TI,0,0); @now = <TI>; close(TI); ($tuki, $syuu, $raceno, $hi, $l_hour, $l_min, $nendo, $race_suu_zz, $race_suu_z, $race_suu_1 ,$race_suu_2) = split(/<>/, $now[0]); # $B2~B$!JGO7t!K(J if($race_suu_1 == 0){$race_suu_zz = 6;$race_suu_z = 6;$race_suu_1 = 6;$race_suu_2 = 6;$custom_racezou = 0;}else{$custom_racezou = 1;} open(BT,"$fp_baken_time"); seek(BT,0,0); @bnow = <BT>; close(BT); ($btuki, $bsyuu, $braceno, $bnendo) = split(/<>/, $bnow[0]); if($raceno != $braceno && $raceno <= $race_suu_1 ){require './horse3_baken.cgi';&baken_koushin;} # $BGO7t7k2L99?7(J # $B2~B$!JGO7t!K(Jend $l_hour = int($l_hour); $B!&(Jhorse3.cgi$B$N(J482$B9TL\IU6a!"(Jsub hutter$BFb$K0J2<$rDI2C!JGO7t!&%*%C%:%Z!]%8$X$NF~8}!K(J

        <input type="submit" name="baken" value="$BGO7t!&%*%C%:(J" onMouseOver=this.style.backgroundColor="$button1" onMouseOut=this.style.backgroundColor="$button2"><INPUT type=hidden name=bmode value=top> $B!&(Jhorse3.cgi$B$N(J1624$B9TL\IU6a!"(Jsub login$BFb$N2<$NJ}$KDI2C!JGO7t9XF~MzNr%Z!<%8$X!K(J

        <input type=hidden name=bmode value=login> <input type=submit name=baken value=$BGO7tMzNr(J style= background:#00FFFF;color:ffffff;> $B!&(Jhorse3_rank.cgi$B$N(Jsub raceno$BFb!"(J664$B9TL\JU$j$KDI5-!JGOCl$KC1>!%*%C%:$r5-:\!K(J

        print "<center>$mae$log[0]$B!A(J"; # $B2~B$!JGO7t!K(J require './horse3_baken.cgi'; my %uma_percent = (); %uma_percent = &odds_upercent(\@ee); # $B2~B$!JGO7t!K(Jend if($log[5] == 2){$rkazu=$#ee;}else{$rkazu=$#ee+1;} $B!&F1(J672$B9TL\IU6a$KDI5-(J

        ($dmy, $uname, $syoyuusya $B!A(J) = split(/<>/,$ee[$g]); # $B2~B$!JGO7t!K(J my $odds_tan = 0; $odds_tan = &odds_cal("tan" ,$uma_percent{"$uname"}); # $B2~B$!JGO7t!K(Jend if($log[4] eq "$B?7GO(J" || $log[4] eq "$BL$>!Mx(J"){$omori=54;} $B!&F1!"GOCl$N(Jhtml$B$K(J$odds_tan $B$r5-:\(J

        # $BC"$7!"$=$N$^$^Kd$a9~$s$@$i(J4.0$BG\"*(J4$BG\$C$F6q9g$K(J
        # $B>.?tE@0J2<$,4]$a$i$l$F$7$^$&$_$?$$$J$N$G!""-$N$h$&$K(J
        # printf$B$G=PNO$7$F$d$C$F2<$5$$!#(J
        # $B!J$b$C$H$($(J}K!$r$4B8CN$NJ}$O@'Hs$465<(2<$5$$!K(J

        print "<TR><TD><DIV align=left><FONT size=1>$BIc!'(J$utt</FONT></DIV><B>$uname</B>($utoshi$usei) <BR>$u1i-$u2i-$u3i-$u4i ( $kin$BK|1_(J )<BR><DIV align=left><FONT size=1>$BJl!'(J$uhh($uht2)</FONT></DIV><DIV align=right><FONT color=red>$BC1>!!'(J"; printf ("%.1f",$odds_tan); print "$BG\(J</FONT></DIV></TD>@mae5<TD><center>$norite<BR>$syoyuusya</TD></TR>\n"; 11.$B%a%C%;!<%8%7%9%F%`!J2TF0Cf!K(J
        $BGO

        $B"((J2006/4/29$B!!!V?7$7$$%a%C%;!<%8$,$"$j$^$9!W$N5-=R$r9T$&$?$a$N5!G=!J(Jsub msg_rcvcheck_new$B!K$rDI2C!"(J
        $B!!!!!!!!!!!!!!;H$$J}$O!"(Jsub login$BFb$N>e$NJ}$K!V(Jrequire './horse3_msg.cgi';&msg_rcvcheck_new;$B!W$rDI5-!#(J
        $B!!!!!!!!!!!!!!I=<($5$;$?$$2U=j$K!V(J$msg_rcvcheck_new$B!W$r5-=R!#(J
        $B!!!!!!!!!!!!!!H<$C$FJQ?tL>$dF0:n$rJQ99!#%G!<%?7A<0$OA4$/JQ$o$C$F$J$$$G$9!#(J


        $B!&2<5-$N6u%U%!%$%k$r:n@.$7!"%"%C%W%m!<%I(J
        msg_txt.cgi$B!!!&!&!&%a%C%;!<%8K\J8(J
        msg_banushi.cgi$B!&!&:G=*1\Mw;~4V4IM}!J?7CeI=<(MQ!K(J

        $B!&(J$B$3$NFbMF(J$B$r(Jhorse3_msg.cgi$B$H$7$FJ]B8$7!"%"%C%W%m!<%I!#(J

        $B!&(Jhorse3.cgi$B$N(Jsub kankyou$BFb$KDI2C(J
        # $B2~B$!J%a%C%;!<%8!K(J $fp_msg = './msg_txt.cgi'; # $B%a%C%;!<%8K\J8(J $fp_msg_banushi = './msg_banushi.cgi'; # $BGO<g>pJs!J:G=*1\MwF|;~!K(J # $B2~B$!J%a%C%;!<%8!K(Jend $B!&F1(J199$B9TL\IU6a$KDI2C(J
        if($form{'rekiview'}){require './horse3_kiroku.cgi';&rekiview;exit;} # $B5-O?A*Br(J # $B2~B$!J%a%C%;!<%8!K(J if($form{'msg_wrote'}){require './horse3_msg.cgi';&msg_wrote;exit;} # $B%a%C%;!]%8Aw?.=hM}(J if($form{'msg_oldlist'}){require './horse3_msg.cgi';&msg_oldlist;exit;} # $B2a5n%a%C%;!<%81\Mw(J # $B2~B$!J%a%C%;!<%8!K(Jend &top; $B!&F1(Jsub login$BFb$N:G=i$N$[$&$KDI2C!!"((J2006/4/29$BDI2C(J
        &header;# $B%X%C%@!<I=<((J # $B2~B$!J%a%C%;!<%8!K(J require './horse3_msg.cgi';&msg_rcvcheck_new; # $B2~B$!J%a%C%;!<%8!K(Jend print <<"_HTML_"; $B!&F1(Jsub login$BFb$K?7Ce%a%C%;!<%89pCN%a%C%;!<%8$rDI2C!!"((J2006/4/29$BDI2C(J
        $BI=<($5$;$?$$2U=j$K(J$msg_rcvcheck_new $B$r5-:\!#(J $BNc$($P!D(J print <<"_HTML_"; <TR><TD><CENTER><b onClick=Msg(event.x,event.y,20)>$BJD$8$k(J</b></TD></TR> </table><BR></TD><TD><CENTER>$msg_rcvcheck_new</CENTER></TD></TR></table> <SCRIPT language="JavaScript"> $B!&!&!&(J $B!&F1(Jsub login$BFb$N:G8e$NJ}$KDI2C(J
        }# else$BL>L5$7(J # $B2~B$!J%a%C%;!<%8!K(J require './horse3_msg.cgi';&msg_write;&msg_rcvlist_new; # $B2~B$!J%a%C%;!<%8!K(Jend &hutter;# $B%U%C%?!<I=<((J

        $BCx:n8"!"Cm0U;v9`Ey(J

        • $B!V7cFM6%GO%j!<%0(J3$B!W$O%4!<%I%s;a$NCx:nJ*$G$9!#!J(J$B#H#P(J$B!K(J
          $B%*%j%8%J%k$N%3!<%I$K4X$9$k8"Mx$O%4!<%I%s;a$,M-$7$^$9!#(J
        • $B5-:\$N2~B$$K$D$$$F$NLd$$9g$o$;$r%4!<%I%s;a$K$O$7$J$$$G$/$@$5$$!#(J
        • $B%I%-%e%a%s%H$K4X$9$k8"Mx$r:\!&2~B$E,MQ$O$4<+M3$K!#(J $B$?$@$7<+8J@UG$$G$*4j$$$7$^$9!#(J
          $BEvJ}$GF0:n3NG':Q$_$G$"$C$F$bL$3NG'$NF0:n$GIT6q9g$,5/$3$j$&$k>l9g$b$"$j$^$9(J $B$7!"(J
          $B%5!<%P!<4D6-$K$h$C$F5sF0$,0[$J$k;v$bB?$$$?$a!"E,MQA0$K85%G!<%?$N%P%C%/%"%C(J $B%W$d(J
          $BF0:n%F%9%H$r6/$/?d>)$7$^$9!#(J
        • sub manual$B!J%2!<%`@bL@!K$NJQ99$OFC$K9MN8$7$F$$$^$;$s$N$G!"3F<+$K$F9MN82<$5$$!#(J


        $B $B$H$F$bM7$S9CHe$N$"$k%*%j%8%J%kHG$r3+H/$5$l$?%4!<%I%s;a!"(J
        CGI$B$r@_CV1?1D$7$F$$$k3F4IM}?M$NJ}!9!"MM!9$J0F$rDs6!$$$?$@$$$?(J
        $B6%GO#2HD$N%9%l(J $B$NJ}!9$K?<$/46

        $BMzNr(J

        • 2004/12/13 $B:n@.3+;O(J
        • 2004/12/29 $B=5BX$j;~$N%l!<%9EPO?%_%9$NKI;_!J$H$$$&L>L\$NIT@5EPO?J}K!BP:v!K$rDI2C(J
        • 2004/12/30 $B8:NL532004/12/30 $B%Z!<%9H=DjJ}K!$NJQ990F$rDI2C(J
        • 2004/12/30 $BGO9~$_$N2004/12/31 $B%l!<%9HVAHJT=8MQ(JCGI$B$r8x3+!J%P%0=$@5:Q!K(J
        • 2004/12/31 $B%l!<%9?tA}2C$N2~B$(J
        • 2005/01/03 $BGOL>EPO?$NA43Q%+%J5,@)$rDI2C(J
        • 2005/01/04 $B%l!<%9?tA}2C$N2~B$!"%l!<%9?J9T$r(J1$B;~4V#12s"*#1=5Ls#6;~4V$KJQ99$7$?%P!<%8%g%s$rDI2C(J
        • 2005/01/04 $B%l!<%9=PAv>r7o$NJQ99$rDI2C(J
        • 2005/01/05 $B%Z!<%9H=DjJ}K!$NJQ990F$N=$@5!JI=<($9$k%Z!<%9$N7W;;J}K!$rJQ99!K(J
        • 2005/01/05 $B%l!<%9?tA}2C$N2~B$#1=5Ls#6;~4V(Jver$B$N=$@5!#JQ?tL>!G(J$hun$B$,%*%j%8%J%k$G$bJLMQES$G;H$o$l$F$$$?$?$a!"(J$hun$B"*(J$l_min$B$HJQ99!K(J
        • 2005/01/05 $BGONp!&@-JL$K4X$9$k@MNL$ND4@0$K4X$9$k0F(J $B$rDI2C(J
        • 2005/01/06 $B%l!<%9?tA}2C$N2~B$(Jver2$B!J#1=5Ls#6;~4V?J9T!K$N%P%0=$@5!#(Jsub readlog$B!"(Jsub top$BFb(J
        • 2005/01/06 $B%l!<%9?tA}2C$N2~B$(Jver1$B!J#1#R#1;~4V?J9T!K$rJL%Z!<%8$X0\F0(J
        • 2005/01/07 $B%l!<%9?tA}2C$N2~B$(Jver1$B!"(Jver2$B$NIT6q9g$r=$@5(J
        • 2005/01/07 $B%l!<%9HVAHJT=8MQ(JCGI$B$r2~NI(J
        • 2005/01/09 $BGONp!&@-JL$K4X$9$k@MNL$ND4@0$K4X$9$k0F(J $B$rDI5-!&JQ99(J
        • 2005/01/10 $B%l!<%9$N5wN%$N2005/02/20 $B9`L\$r@0M}(J
        • 2005/02/20 $B2005/02/23 $B2005/03/10 $B2005/03/24 $B%l!<%9$N5wN%$N2005/05/27 $B532005/06/13 $B53^6b=g$K$h$k0MMj2005/06/13 BBS$B$r@_CV(J
        • 2005/06/15 $B532005/06/19 $B%G%P%C%0MQ$N@_CV#C#G#I$r8x3+(J
        • 2005/06/27 $B8+1I$($r>/!9=$@5!#@bL@ITB-$JItJ,$,$"$C$?$N$G%3%a%s%H$rDI2C(J
        • 2005/06/30 $B532005/08/02 $B%*!<%W%s@o$G$N%O%s%G$N8+D>$7$rDI2C(J
        • 2005/08/02 $BGO!Mx8EGO$N:o=|$rDI2C(J
        • 2005/08/08 $BHK?#LFGO$NBeI=;:6p$,:o=|$5$l$kIT6q9g$N=$@5$rDI2C(J
        • 2005/08/09 $BGO2005/08/13 $BGO2005/08/24 $B%m!<%+%k#B#C$rDI2C(J
        • 2005/11/02 $BGO7t%7%9%F%`$rDI2C(J
        • 2005/11/04 $BGO7t%7%9%F%`$r=$@5!J(JPerl$B%t%!!<%8%g%s0c$$$X$NBP1~!K(J
        • 2005/11/05 $BGO7t%7%9%F%`$r=$@5!J(Jver1.001$B!#9XF~E@?t@)8B$N%P%0%U%#%C%/%9!"(J12$B7n(J4$B=59XF~@)8B$N2r=|!#!K(J
        • 2005/11/07 $B%*!<%W%s@o$G$N%O%s%G$N8+D>$7!"$r=$@5!J(Jhorse3_rank.cgi$B$N=$@5$rDI2C!K(J
        • 2005/11/08 $BGO7t%7%9%F%`$r=$@5!J(Jver1.002$B!#;0O"C1$,Ev$?$C$F$bJV6b$5$l$J$$IT6q9g$r=$@5!K(J
        • 2005/12/05 $B%l!<%9HVAHJT=8MQ(JCGI$B$r=$@5!J%l!<%9$N3J$h$j(J"$B3$30(J"$B$r:o=|!K(J
        • 2005/12/05 $B%l!<%9?tA}2C!J#1=5Ls#6;~4V?J9THG!K$N:G8e$K=$@5$rDI2C!J5-O?<<$NG/EYM%=(>^$GG/EY$,@5$7$/I=<($5$l$J$$IT6q9g$N=$@5!K(J
        • 2006/02/19 $B%l!<%9HVAHJT=8MQ(JCGI$B$r=$@5!J!V;2>H!W$G%W%k%@%&%s%a%K%e!<$NFbMF$b;2>H$9$k$h$&$K!K(J
        • 2006/02/20 $B?t$r%+%&%s%H=hM}$7$F$$$?$N$r=$@5!K(J
        • 2006/03/25 $B?t$r%+%&%s%H=hM}$7$F$$$?$N$r=$@5!K(J
        • 2006/04/16 $B%a%C%;!<%8%7%9%F%`$rDI2C(J
        • 2006/04/17 $B%a%C%;!<%8%7%9%F%`$r=$@5!J?7Ce%a%C%;!<%85Z$SAw?.%U%)!<%`$N8F$S=P$7$rDI2C!K(J
        • 2006/04/24 $B2006/04/29 $B%a%C%;!<%8%7%9%F%`$K5!G=$rDI2C!J?7Ce%a%C%;!<%8$"$j!"$NI=5-!K(J