[ 新規 ] [ 検索 | 一覧 | FrontPage ] [ 履歴 (RSS) | 差分履歴 (RSS) ] [ ログイン ]
【PR】Amazon | SL-C3000 | SL-C1000(3/18発売!) | SL-C860 | SL-6000W | SL-6000L | SL-6000N

WalWiki/カスタマイズ/外部へのリンクは別ウィンドウで開く

差分表示


編集前の状態に戻します。
*[blank target]
**make_link()内の変更

     # Walrus add [alias link] start
     if ($chunk =~ /^(http|https|ftp|mailto):/) {
        # yakty add [blank target] start
        my $script_uri;
        if(exists $ENV{'SCRIPT_URI'}){
            $script_uri = $ENV{'SCRIPT_URI'};
        } else {
            $script_uri = "http://" . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};
        }
        if($chunk =~ /^\Q$script_uri\E/){
            return qq(<a href="$escapedchunk">$escapedname</a>);
        } else {
            return qq(<a href="$escapedchunk" target="_blank" class="outer">$escapedname</a>);
        }
        # yakty add [blank target] end
        #return qq(<a href="$escapedchunk">$escapedname</a>);          # yakty del [blank target]
     # Walrus add [alias link] end

* おまけ

このカスタマイズは環境変数を使用しているので環境変数の内容によってはうまく動かないかもしれません。
下記のようなスクリプトで環境変数の表示が出来るので確認用に使用してみて下さい。

 #! /usr/local/bin/perl
 print qq(Content-type: text/html\n\n);
 print qq(<html><pre>\n);
 
 foreach (sort(keys %ENV)){
     print qq(\$ENV{'$_'} = $ENV{$_} \n);
 }
 
 print qq(</pre></html>);

**疑問
- $script_uriの替わりに$modifier_rss_linkを使っちゃいけないのでしょうか? というか、使ってしまいました。うまく動いている感じです。--from 門外漢
- $script_urlでも実際には良いと思いますけど、確実性の高い方法を取っただけです。 2004-07-24 (Sat) 23:17:08 ''[[yakty]]'' (このコメントは後で[[WalWiki/雑談]]に移動します。)
- なるほど、そういうことでしたか。こちらでは環境変数がうまく取得できなかった(testスクリプトも動かなかった)ので、$modifier_rss_linkで対処した次第です。忙しい中わざわざお返事ありがとうございました。m(__)m


03074