プログラムスレッド

124：女傑 ◆nDpXSJz8i.：2013/03/01(金) 15:37:38: if ($story =~/\W+$/) { &error("ストーリーの名前に禁則文字が使われています"); }
if ($page =~/\D+$/) { &error("ページ番号に禁則文字が使われています"); }
if ($bunki =~/\W+$/) { &error("ストーリー分岐に禁則文字が使われています"); }use Jcode;
use Unicode::Japanese;
use CGI::Carp qw(fatalsToBrowser);

require '../cgi-lib.pl';
&ReadParse(*in);

$story = $in{'story'};
$page = $in{'page'};
$bunki = $in{'bunki'};if (!(-e $file)) { &error("存在しません"); }
elsif (-z $file) { &error("ファイルが異状です"); }

flock(IN, LOCK_EX);
if (!open(IN,"$file")) { &error("ファイルが開けません"); }
@lines = <IN>;
close(IN);
flock(IN, LOCK_NB);
$retsusuu = @lines;if ("$bun" ne "") {
chomp($bun) if $bun =~ /\n$/;

$bun =~ s/.{160}/$&<BR>\n/g;my ($idqs, $pass) = $ENV{'PATH_INFO'} =~ m!/([^/]+)/([^/]+)/?!;
$begin =~ s/^s+//g ; # 文頭に来るスペースを削除
$begin =~ s/s+$//g ; # 文末に来るスペースを削除
$expire =~ s/^s+//g ; # 文頭に来るスペースを削除
$expire =~ s/s+$//g ; # 文末に来るスペースを削除$url =~ s/(https?|ftp|gopher|telnet|whois|news):([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/g;

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板