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

WalWiki/カスタマイズ/リンク名短縮

編集

リンク名を短縮します。

[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}) {

02529