#!/usr/bin/perl # 　　 # perlのパスはあなたの環境にあわせて変更してください #---------------------------------------------------------------------------- # 簡易データベース v2.1 (SJIS) 登録用 # # by www.rescue.ne.jp # [History] # v2.0 13/NOV/1998 ページ機能他 # v2.1 17/DEC/1998 全角文字マッチの不具合の訂正 #---------------------------------------------------------------------------- # このスプリクトは上記スプリクトをアレンジしたものです # 改造は自由ですが、ネットサーフレスキュー[Web裏技]の利用規程に従ってください # 2000/7/11 NIKONIKO CGI http://www.niko2.com/cgi/ #---------------------------------------------------------------------------- #変更が必要な箇所-------------------------------------------- #日本語コード処理ライブラリ他の場所にあるときは相対パスで require './jcode.pl'; #データベースファイル　●必ず変更してください $file = "./data.csv"; #設定 $body = ''; #タイトル $title = '予約データ'; #変更が必要な箇所　ここまで-------------------------------------------- ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time + 9*60*60); @wday_array = ('日','月','火','水','木','金','土'); $date_now = sprintf("%01d月%01d日(%s)%02d時%02d分", $mon +1,$mday,$wday_array[$wday],$hour,$min); if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } if ($buffer eq "") { &error('エラー','使い方が間違っています.'); } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,//g; $FORM{$name} = $value; } #入力チェック if ($FORM{'NAME'} eq '') { &error('入力エラーです','名前を入力してください.'); } if ($FORM{'EMAIL'} =~ /(.*)\@(.*)\.(.*)/) { ; } else { &error('入力エラーです','Ｅ-MAILアドレスを入力してください.'); } if ($FORM{'PAS'} eq '') { &error('入力エラーです','パスワードを入力してください.'); } $FORM{'NAME'} =~ s/ //g; $FORM{'NAME'} =~ s/　//g; $FORM{'EMAIL'} =~ s/ //g; $FORM{'EMAIL'} =~ s/　//g; $FORM{'PAS'} =~ s/ //g; $FORM{'PAS'} =~ s/　//g; #書きこむ if (!open(OUT,">>$file")) { &error('システムエラー','ファイルを書きこみオープンできません.'); } print OUT "\,$date_now,$FORM{'NAME'},$FORM{'EMAIL'},$FORM{'ITME'},$FORM{'KOSU'},$FORM{'PAS'},$FORM{''}\n"; close(OUT); #メッセージ出力 print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

\n"; print "

ありがとうございます！\n"; print "

$checkご\予\約は登録されました\n"; print "

ブラウザの戻る(リターン)で前の画面へ戻ってください\n"; print "

\n"; exit; sub error { if (-e "$lockfile") { unlink($lockfile); } print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "

ブラウザの戻る(リターン)で前の画面へ戻ってください

\n"; print "\n"; exit; }