rtoss - Diff between revs 34 and 171

Subversion Repositories:
Rev:
Show entire file - Ignore whitespace
Rev 34 Rev 171
Line 431... Line 431...
431 # フォーム入力チェック 431 # フォーム入力チェック
432 &form_check; 432 &form_check;
433 433
434 # 時間を取得 434 # 時間を取得
435 &get_time; 435 &get_time;
-   436
-   437 # URL Trap
-   438 if ($linktrap) {
-   439 my($altmp) = $in{'comment'};
-   440 my($alcnt) = 0;
-   441 $alcnt = ($altmp =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target='_blank'>$2<\/a>/g);
-   442 if ($alcnt > $linktrap) {
-   443 &error('Trapped');
-   444 }
-   445 }
436 446
437 # クッキーを発行 447 # クッキーを発行
438 &set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'},$in{'icon'},$in{'color'}); 448 &set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'},$in{'icon'},$in{'color'});
439 449
440 # ファイルロック 450 # ファイルロック
Line 1671... Line 1681...
1671 1681
1672 #-----------------# 1682 #-----------------#
1673 # 自動URLリンク # 1683 # 自動URLリンク #
1674 #-----------------# 1684 #-----------------#
1675 sub auto_link { 1685 sub auto_link {
1676 $_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target='_blank'>$2<\/a>/g; -  
-   1686 $_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target='_blank'>$2<\/a>/g;
1677 } 1687 }
1678 1688
1679 #----------------# 1689 #----------------#
1680 # 過去ログ生成 # 1690 # 過去ログ生成 #
1681 #----------------# 1691 #----------------#