リンク名を短縮します。
[shrink linkname]
make_link()内の変更
if ($database{$chunk}) {
# Walrus add [alias link] start
my $subject = &escape(&get_subjectline($chunk, delimiter => ''));
# yakty add [shrink linkname] start
if(not $fixedpage{$form{mypage}}){
my @linkchunk = split(/\//, $escapedchunk);
foreach (split(/\//, $form{mypage})){
last if(@linkchunk == 1);
last if($_ ne $linkchunk[0]);
shift(@linkchunk);
}
$escapedchunk = join("/", @linkchunk);
}
# yakdy add [shrink linkname] end
return qq(<a title="$subject" href="$url_cgi?$cookedchunk">$escapedchunk</a>);
} elsif ($page_command{$chunk}) {
