| 登録なし | 北海道 | ||||||||||||||||
| １～５人 | |||||||||||||||||
| ６人以上 | 青森 | ||||||||||||||||
|
秋 田 |
岩 手 |
||||||||||||||||
|
山 形 |
宮 城 |
||||||||||||||||
|
石 川 |
|||||||||||||||||
| 富山 | 新潟 | 福島 | |||||||||||||||
| 福井 | 岐阜 | 長野 | 群馬 | 栃木 |
茨 城 |
||||||||||||
|
山 口 |
島根 | 鳥取 |
兵 庫 |
京都 | 滋賀 | 埼玉 | |||||||||||
| 広島 | 岡山 |
大 阪 |
奈 良 |
三 重 |
愛知 | 山梨 | 東京 |
千 葉 |
|||||||||
|
長 崎 |
佐 賀 |
福岡 | 和歌山 | 静岡 | 神奈川 | ||||||||||||
|
熊 本 |
大分 | 愛媛 | 香川 | ||||||||||||||
| 宮崎 | 高知 | 徳島 | |||||||||||||||
| 鹿児島 | |||||||||||||||||
| |
|||||||||||||||||
| 沖縄 | 海外 | ||||||||||||||||
ツイストバルーンが好きな方ならレベルに関係なくどなたでも登録できます。
必須項目を入力するだけでも登録できるので、気楽に登録して下さい。
そして、バルーン仲間をどんどん増やしましょう。
_PRINT_ &FOOTER; } #********** INPUT SUB ********** sub INPUT { #変更の場合のデータを取得する if (($id ne "")&&($mode eq "modify")) { if ($passwd eq "") { &ERROR("パスワードが入力されていません。"); } open(DB,"$logfile")|| &ERROR("オープンできません。 : $logfile"); seek(DB,0,0); @line=
/\n/g; last; } } if ($flag eq 0) { &ERROR("該当するデータが見つかりません。"); } &SAVE_COOKIE; $label = "変更"; } else { $id2=$nickname2=$sex2=$name2=$yyyy2=$mm2=$dd2=$zip2=$pref2=$address2=$tel2=$url2=$email2=$performer2=$presenter2=$decorator2=$lecture2=$other2=$detail2=$comment2=$tail2=$w2=$h2=$passwd2=""; $label = "登録"; } &HEADER; print <<"_PRINT_"; _PRINT_ &FOOTER; } #********** CHK SUB ********** sub CHK { if ($nickname eq "") { &ERROR("名前が入力されていません。"); } if ($sex eq "") { &ERROR("性別が選択されていません。"); } if ($pref eq "") { &ERROR("都道府県が選択されていません。"); } if (($email ne "")&&($email !~ /(.*)\@(.*)\.(.*)/)) { &ERROR("メールアドレスの入力が不正です。"); } if ($detail eq "") { &ERROR("活動内容が選択されていません。"); } if (length($name) > 20) { &ERROR("名前が長すぎます。20文字以内で入力して下さい。"); } if (length($nickname) > 20) { &ERROR("ニックネームが長すぎます。20文字以内で入力して下さい。"); } if (length($email) > 50) { &ERROR("メールアドレスが長すぎます。50文字以内で入力して下さい。"); } if ($passwd eq "") { &ERROR("パスワードが設定されていません。"); } if ($passwd ne $passwdchk) { &ERROR("パスワードが合っていません。"); } } #********** SAVE SUB ********** sub SAVE { $comment =~ s/\r\n/
/g; $comment =~ s/\r/
/g; $comment =~ s/\n/
/g; $url =~ s/^http\:\/\///; $agent = &GET_AGENT; &LOCK; open(DB,"$logfile") || &ERROR("オープンできません。 : $logfile"); @lines =
以下の内容で登録しました。
_PRINT_ } print <<"_PRINT_";
| ニックネーム | $nickname2 |
_PRINT_
if ((-e "./images/$id2$tail2")&&($tail2 eq ".gif" || $tail2 eq ".jpg" || $tail2 eq ".png")) {
if ($w2 eq 0 || $w2 eq "") { $w2 = $maxW; }
if ($h2 eq 0 || $h2 eq "") { $h2 = $maxH; }
print "![](\"./images/$id2$tail2\") \n";
} else {
print " \n";
}
print <<"_PRINT_";
|
| 性別 | $sex[$sex2] | |
| 本名 | $name2 | |
| 誕生日 | _PRINT_ $ymd = ""; if ($yyyy2 ne "") { $ymd = ("$yyyy2" . "年 "); } if ($mm2 ne "") { $ymd = ("$ymd" . "$mm2" . "月 "); } if ($dd2 ne "") { $ymd = ("$ymd" . "$dd2" . "日 "); } if ($ymd eq "") { $ymd = " "; } print <<"_PRINT_"; $ymd | |
| 〒 | $zip2 | |
| 住所 | $pref[$pref2] $address2 | |
| 電話番号 | $tel2 | |
| ＵＲＬ | _PRINT_ if ($url2 ne "") { print "http://$url2"; } else { print " "; } print <<"_PRINT_"; | |
| _PRINT_ if ($email2 ne "") { print "$email2"; } else { print " "; } print <<"_PRINT_"; | ||
| 活動内容 | $detail2 | |
| ＰＲ | $comment2 | |
| [変更] [削除] | ||
\n該当の登録がありません
\n"; } print "\n"; &FOOTER; exit; } #********** DETAIL SUB ********** sub DETAIL { $comment2 = &ALINK($comment2); print <<"_PRINT_";
| ニックネーム | $nickname2 | 性別 | $sex[$sex2] | 出身県 | $pref[$pref2] | [ 詳細 ] |
| 活動内容 | $detail2 | |||||
$nickname2 のデータを削除します。
よろしいですか？ _PRINT_ &FOOTER; } #********** DELETE SUB ********** sub DELETE { &LOCK; open(DB,"$logfile") || &ERROR("オープンできません。 : $logfile"); @lines =
$_[0]
_PRINT_ &FOOTER; exit; } #********** ERROR SUB ********** sub ERROR { &UNLOCK($lockfile); &HEADER; print <<"_PRINT_";エラー！！
$_[0]
_PRINT_ &FOOTER; exit; } #********** HEADER SUB ********** sub HEADER { print "Content-type: text/html\n\n"; print <<"_PRINT_";
_PRINT_
}
#********** FOOTER SUB **********
sub FOOTER {
print <<"_PRINT_";
(C)Japan Balloon Twisters Convention $holdyy All Rights Reserved.
|
当サイトはリンクフリーです。 （バナーはご自由にお使いください） |
|
|
リンクはトップページにお願い致します。 $topurl 当サイトの著作権はツイスターズ$holdyy実行委員会が所有します。 掲載作品写真の著作権は作者が所有します。 直リンク・無断転載は禁止です。 |
|
Script by SayQoo