[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 (このコメントは後で雑談に移動します。)
- なるほど、そういうことでしたか。こちらでは環境変数がうまく取得できなかった(testスクリプトも動かなかった)ので、$modifier_rss_linkで対処した次第です。忙しい中わざわざお返事ありがとうございました。m(__)m
