#!/usr/local/bin/perl ##----製作者----## # # Players who's who Version 1.12 # # This is Freeware. # Script written by Masayoshi # Created on: 2002.09.15 # Update: 2002.09.23 # Copyright (C) 2002 Masayoshi. All Rights Reserved. # I can be reached at: masayosi@mahoroba.ne.jp # Scripts Found at: http://www3.mahoroba.ne.jp/~masayosi/cgi-labo/index.html # ############################################################ require '../cgi-lib.pl'; &ReadParse(in); ##----設定----## # タイトル $title = "Players who's who"; # 記録ファイル $dat = "pww.dat"; # 管理パスワード $pass = "1234"; # Home Page URL $home = "http://www3.mahoroba.ne.jp/~masayosi/cgi-labo/index.html"; # 色設定 $bgcolor = "#8080FF"; $tdbg = "#FFFFFF"; $text = "#000000"; $link = "#000000"; $vlink = "#990000"; $alink = "#FF3300"; $hlink = "#FF0000"; ##----設定終了----## $in{'pass'} =~ s//>/g; $in{'word'} =~ s//>/g; $select = $in{'select'}; $hyouji = $in{'hyouji'}; $word = $in{'word'}; print "Content-type: text/html\n\n"; print <<"EOM"; $title

$title

EOM ##----分岐----## if($in{'pass'} eq ""){ &front; } if($in{'pass'} eq $pass){ if($select == 0){ &add; } elsif($select == 1){ &del; } elsif($select == 2){ &write; } elsif($select == 4){ &seek; } elsif($select == 5){ if($in{'type'} == 0){ &corwrite; } elsif($in{'type'} == 1){ &delwrite; } } } else{ print <<"EOM";

パスワードが一致しませんでした．

EOM exit; } ##----パスワード入力----## sub front{ print <<"EOM";

PASSWORD :

EOM &end; } ##----登録入力欄----## sub add{ print <<"EOM";
NAME 名前
国籍 出身地
ポジション 生年月日
代表\歴 試合 得点 身長・体重
所属クラブ W杯出場

EOM exit; } ##----登録書込み----## sub write{ @line = ("$in{'ename'}", "$in{'jname'}", "$in{'natio'}", "$in{'birthplace'}", "$in{'position'}", "$in{'heiwei'}", "$in{'birth'}", "$in{'caps'}", "$in{'score'}", "$in{'wcup'}", "$in{'club'}"); $result = join(":", @line); $result =~ s//>/g; $result =~ s/\r\n/<>/g; $result =~ s/\n/<>/g; $result =~ s/\r/<>/g; open (FILE, ">>$dat"); print FILE "$result\n"; close(FILE); print <<"EOM";

入力完了

戻る

EOM exit; } ##----修正・削除入力----## sub del{ print <<"EOM";

[修正・削除検索]

EOM &end; } ##----修正・削除検索----## sub seek{ open (FILE, "$dat"); @allbody = ; close(FILE); $count = 0; foreach $line (@allbody){ $count += 1; $position = index $line, $word; if($position > 0){ chomp $line; ($ename, $jname, $natio, $birthplace, $position, $heiwei, $birth, $caps, $score, $wcup, $club) = split(/:/,$line); &result; } } } ##----修正・削除記入欄----## sub result{ $club =~ s/<>/\n/g; $wcup =~ s/<>/\n/g; print <<"EOM";

修正 削除

NAME 名前
国籍 出身地
ポジション 生年月日
代表\歴 試合 得点 身長・体重
所属クラブ W杯出場

EOM &end; } ##----削除----## sub delwrite{ open (FILE, "<$dat"); @allbody = ; close (FILE); foreach $line (@allbody){ if($line =~ /$in{'name'}/){ $line =~ s/.*\n//; } } open (FILE, ">$dat"); print FILE @allbody; close (FILE); print <<"EOM";

削除完了

EOM &end; } ##----修正----## sub corwrite{ @line = ("$in{'ename'}", "$in{'jname'}", "$in{'natio'}", "$in{'birthplace'}", "$in{'position'}", "$in{'heiwei'}", "$in{'birth'}", "$in{'caps'}", "$in{'score'}", "$in{'wcup'}", "$in{'club'}"); $result = join(":", @line); $result =~ s//>/g; $result =~ s/\r\n/<>/g; $result =~ s/\n/<>/g; $result =~ s/\r/<>/g; open (FILE, "<$dat"); @allbody = ; close (FILE); foreach $line (@allbody){ if($line =~ /$in{'name'}/){ $line =~ s/.*\n//; } } open (FILE, ">$dat"); print FILE @allbody; close (FILE); open (FILE, ">>$dat"); print FILE "$result\n"; close(FILE); print <<"EOM";

修正完了

EOM &end; } ##----終了----## sub end{ print <<"EOM";

Players who's who Ver. 1.11

EOM exit; }