リンク名を短縮します。
[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}) {