#!/usr/local/bin/perl # 文書登録システムプロトタイプ Version 1.00 # # 2000/ 5/15 宍戸 輝光 # 設置方法 # # スクリプトと同じディレクトリにpregという書き込み可(666)の # ディレクトリを作成してください。データファイルなどは自動的に # 作成されます。 require "jcode.pl"; # postされたデータを読み込む read(STDIN,$query,$ENV{'CONTENT_LENGTH'}); @indata=split(/&/,$query); foreach $body(@indata) { ($name,$val)=split(/=/,$body); $val=~ tr/+/ /; $val=~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C",hex($1))/eg; $val=~ s/\t/ /g; $val=~ s/</g; $val=~ s/>/>/g; &jcode'convert(*val,"sjis"); $form{$name}=$val; } $mode=$form{'mode'}; $name=$form{'name'}; $mail=$form{'mail'}; $http=$form{'http'}; $title=$form{'title'}; $key=$form{'key'}; $comment=$form{'comment'}; $start=$form{'start'}+0; $skey=$form{'skey'}; $sfile="preg.cgi"; # スクリプトファイル名 $dpath="./preg"; # データパス $dfile="$dpath/preg.dat"; # データファイル名 $rpath="../index.html"; # 「戻る」パス $lockdir="$dpath/preglock"; # ロック用ディレクトリ $try=5; # ロック再試行回数 $num=5; # データ表示件数 print "Content-type: text/html\n\n"; print "\n"; print "
\nお名前とタイトル・本文は必須です。
\n"; print "\n"; print "\n"; exit; } if (length($comment)>2048) { print "本文が大きすぎます。
\n"; print "