#!/usr/local/bin/perl # 設定変数の定義 # # スクリプト名 $mycgi = 'linebbs2.cgi'; # ログファイル名 $logfile = 'linebbs.log'; # ログの保存行数 $maxlog = 10; # 入力内容のデコード(POST限定) # read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); @in = split/&/,$in; foreach(@in){ ($key,$val) = split/=/; $val =~ tr/+/ /; $val =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; $val =~ s/\r//g; $val =~ s/\n//g; $val =~ s/</g; $val =~ s/>/>/g; $in{$key} = $val; } # 処理モード判定 # if($in{'submit'}){ &insert(); } else{ &view(); } exit; # 発言処理 # sub insert{ $in{'name'} eq '' and &error('お名前が入力されていません。'); $in{'body'} eq '' and &error('本文が入力されていません。'); # 追加するログデータの作成 $newlog = "