[ 新規 | 編集 | 差分 ] [ 検索 | 一覧 | 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>);

疑問

編集

02674