#!/project/perl/perls/perl-5.20.2/bin/perl use CGI; require 'wp4.pl'; my $cgi = CGI->new; my $id = $cgi->param('id'); $DIR = "./umanusi"; $INDEX = "$DIR/INDEX"; $UDIR = "$DIR/$id"; $UINDEX = "$UDIR/INDEX"; open(IN, $INDEX); while () { chomp; @tmp = split; last if ($tmp[0] == $id); } close(IN); $name = $tmp[1]; print << "EOF"; Content-type: text/html 馬主：$name氏

馬主：$name氏

登録馬

EOF &get_class("class.dat"); &get_point(); open(IN, $UINDEX); while () { chomp; ($hid, $horse_name, $old, $sex, $out, @comment) = split; print "\n"; print "\n"; } close(IN); print << "EOF";

馬名	齢性	クラス	獲得賞金	斤量(G2/G3/G4)	コメント
"; if ($out eq "外国産") { $tmp = $horse_name; $horse_name = "（外）" . $tmp; } $class{"$horse_name,$name"} = "未勝利" if $class{"$horse_name,$name"} eq ""; $cl = $class{"$horse_name,$name"}; print "$horse_name	$old$sex"; print "	$cl"; $p = int($point{"$horse_name,$name"}); print "	$p"; $kinryo = &get_kinryo($cl, $p); print "	$kinryo	@comment

EOF