#!/usr/local/bin/perl
$title = "LINK CUSHION"; # ページタイトル
$body = '<BODY bgcolor="#000000" text="#dddddd" link="#9999dd" alink="#black" vlink="#9999dd">'; # BODYタグ編集
####設定終了####
$link = $ENV{'QUERY_STRING'};
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <<"EOM";
<HTML>
<HEAD>
<TITLE>$title</TITLE></HEAD>
$body
<a href="$link">$link</a><br>
リンク先で発生する問題に関しては一切の責任を負いません<BR>
リンク先へジャンプする場合はURLをクリック(携帯の方は選択)してください<BR>
</BODY>
</HTML>
EOM
inc/ore_sub-bbs.cgiに以下を追加
ファイル名はlink.cgiが前提
#-------------------------------------------------------------------------------
# URL自動リンク
sub auto_link {
$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"\.\/link\.cgi\?$2\" target=\"_blank\">$2<\/a>/g;
}
