*オートリンク [#x32c38ad]
-ページ: [[罪罰改造板２]]
-投稿者: [[あん]]
-優先順位: 低
-状態: 提案
-カテゴリー: こんなのが欲しい♪
-投稿日: 2007-01-22 (月) 15:50:28
-バージョン:
**内容 [#q43b0238]
お世話になっております。
えっと、この度交流板及び作戦板にオートリンクを実装したいと考えています。
しかし罪罰はＵＲＬにＩＤとパスワードがはいっているので、リファラーからＩＤとパスワードが漏れてしまいます。
そこでクッションページつきのオートリンクを改造できないかと考えているのですが、どうにかなりませんでしょうか？
----
-自己解決しました。 完成品のソースがほしい方がいるようでしたら載せます。 -- [[あん]] &new{2007-01-23 (火) 16:25:46};
-ソースほしいです。ください！ -- [[linux]] &new{2007-01-25 (木) 15:52:22};
-あんさんが、良ければ添付しますか？ -- [[あくあ]] &new{2007-01-25 (木) 21:52:08};
-では希望にお答えして。Perl初心者なのでおかしな点が多少あるかもしれません。まずsub-bbs.cgiの修正部分はsub decode「&no_link($in{'comment'}) if($nolink);」下に「&auto_link($in{'comment'}) if($autolink);」を追加。「# URL排除」の下あたりにsub auto_link {$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;}を追加します。 -- [[あん]] &new{2007-01-26 (金) 01:14:50};
-その後各種板(parkやcampbbs)に「$autolink = 1;」(1で有効、0で無効)を追加。あとは「$nolink= 0;」のようにURL排除が無効になっている必要があります。これでオートリンクのシステムは完成です。 -- [[あん]] &new{2007-01-26 (金) 01:17:12};
-このままではﾘﾌｧﾗｰにより相手元にID、PWが漏れてしまうので、ｸｯｼｮﾝﾍﾟｰｼﾞをつくります。(ｸｯｼｮﾝﾍﾟｰｼﾞのCGIは添付しても大丈夫でしょうか？) あとはsub-bbs.cgiに$変数=ｸｯｼｮﾝﾍﾟｰｼﾞのURL;を追加して、sub auto_link を$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$追加した変数$2\" target=\"_blank\">$2<\/a>/g;でﾘﾝｸ時にｸｯｼｮﾝﾍﾟｰｼﾞを通してﾘﾝｸされます。 こんな感じでしょうか？ ﾘﾝｸ時に表示される文字を$2から変更しても大丈夫でした。(例：こちらなど) -- [[あん]] &new{2007-01-26 (金) 01:22:40};
--添付できるようにしておきました -- [[あくあ]] &new{2007-01-27 (土) 12:01:56};
#!/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;
}
-適当に作ったスクリプトなので、変な場所があったらすいませんorz とりあえずlink.cgiやらなにやらで保存してサーバにUP、属性は755で普通に動きます。修正箇所があったらお願いします -- [[Gun]] &new{2007-02-14 (水) 11:22:29};
-追記：添付されないようなので代わりに勝手に公開しました。迷惑なようであれば削除していただいて構いません -- [[Gun]] &new{2007-02-14 (水) 11:27:19};
#comment
