罪と罰++二律背反


#!/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;
}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:29:35 (2741d)