ベストアンサー

リンクをクリックした時に別ページを表示させるには

2006/05/30 03:34

2ch掲示板のように、掲示板に貼られたURLをクリックした際に、「別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください」と記載されたページを表示させたいと思っております。このような事ができるスクリプトを自力で探してみましたが見つかりませんでした。配布されているサイトを教えていただけないでしょうか。また、配布されていない場合、簡単な改造で実現できるようでしたら、改造方法をご指導頂ければ幸いです。改造したい掲示板はKENT WEBで配布されているWeb Patioです。宜しくお願いいたします。

cocolink
お礼率91% (83/91)

Perl
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

noname#19175

2006/06/02 12:32 回答No.2

よほどの理由がない限りトランスファーの使用は無意味なので、配布されてないと思います。 > このような文字に変更されてしまいます。デコードの方法が間違ってます。 > $ARGV[0]=~s/(\W)/'%'.unpack('H2',$1)/eg;$u="http://$ARGV[0]"; これはURLエンコードの方法です。 ://.のままでアクセスするなら、むしろデコードは不要です。また、$ARGVを変更するのは、（この場合は危険ではないかもしれませんが）やめた方がよいです。 html <a href="transfer.cgi?http://www.sample.com/">リンク</a> transfer.cgi #!/usr/bin/perl use CGI; $cgi=new CGI; $url=$cgi->param('keywords'); print<<end; Content-type: text/html <html><body><a href="$url">$url</a></body></html> end exit();

質問者

お礼 2006/06/04 16:18

回答有難うございます。おかげさまで無事解決することができました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

maa45ki5g
ベストアンサー率31% (49/158)

2006/05/30 03:52 回答No.1

よく分かりませんが、.cgiファイルのどれかに http://で始まる文字列の自動リンクを処理する記述があるのではないかと。それを探して、<a href="～～～～というところにime.stを噛ませてみてはどうでしょうか。だめかも。

質問者

お礼 2006/05/30 06:10

アドバイス有難うございます。 > ime.stを噛ませてみてはどうでしょうか。その転送サービスと同じようなCGIスクリプトを探しております。以下スクリプトをurl.cgiで保存し、url.cgi?http://www.yahoo.co.jp/へアクセスしてみましたが、http://http%3a%2f%2fwww%2eyahoo%2eco%2ejp%2f　このような文字に変更されてしまいます。どのように変更すれば良いのかどなたかご教授宜しくお願いいたします。 #!/usr/local/bin/perl $ARGV[0]=~s/(\W)/'%'.unpack('H2',$1)/eg;$u="http://$ARGV[0]"; print qq|content-type: text/html\n\n<html><head><title>jump</title></head> <a href=$u>$u</a> 別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください <hr>|;

ログインすると、全ての回答が全文表示されます。