プログラムスレッド

125：女傑 ◆nDpXSJz8i.：2013/03/01(金) 15:57:31: while(($key,$val) = each %in) { $in{$key} = &encTag($val); }$len = length($eki); $m = '30';
if ($len > $m) { &error("エラー","引数を$mバイト以内でご指定ください"); }
$len2 = length($sen); $m = '30';
if ($len2 > $m) { &error("エラー","引数を$mバイト以内でご指定ください"); }

%urltable = &readhashfile("$senro.txt");

if (exists $urltable{$id}) {
$onamae = $urltable{$id};
chomp($onamae) if $onamae =~ /\n$/;
my ($code, $nmatch) = Jcode::getcode($onamae);
$onamaeaf = jcode($onamae, "$code")->h2z->utf8;
($kei, $message, $shozai, $code, $lng, $lat) = split(/_/, $onamaeaf, 6); # 余分な空白を取り除きます
$query =~ s/　+/ /g; # 連続した全角スペース
$query =~ s/ +/ /g; # 連続した半角スペース if ($toku_email == 0 && $email =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { $name = "$name ($sex) <<a href=\"mailto:$email\">$email</a>> "; } # Ｅメール記載があればリンクする
elsif ($toku_email == 1 && $email =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) {

$uname = $name;
$uname =~ s/([^0-9A-Za-z_])/"%" . unpack("H2",$1)/ge; # URLエンコード
$name = "$name ($sex) <<a href=\"$ENV{'SCRIPT_NAME'}?log=$cmd{'log'}&num=$number&name=$uname\">メール送信</a>> ";
} if ($link) { # URLをリンクする

$value =~ s/>/\t/g;
$value =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/ig;
$value =~ s/\t/>/g;
}sub lock {

# ロック方式の自動判定 symlink()優先
$symlink_check = (eval { symlink("",""); }, $@ eq "");
if (!$symlink_check) {

$c = 0;
while(-f "$lockfile") { # file式

$c++;
if ($c >= 3) { &Error('リトライエラー','ただいま混雑しております.<br>戻ってもう一度実行してみてください.'); }
sleep(2);
}
open(LOCK,">$lockfile");
close(LOCK);
}
else {
local($retry) = 3;
while (!symlink(".", $lockfile)) { # symlink式

if (--$retry <= 0) { &Error('リトライエラー','ただいま混雑しております.<br>戻ってもう一度実行してください.'); }
sleep(2);
}
}
}

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

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

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