WalWiki/カスタマイズ/カスタムツールバー

編集可能なツールバー、およびユーザー毎のツールバーを定義します。

• 2004-04-23 (Fri) 18:41:40 名前にエイリアス(別名)を使用した場合でも自分のツールバーが表示されるように変更。例えばyakty@りなざうと言う名前を使用した場合でもyaktyのツールバーが表示されます。

[[custom toolbar]

CustomToolbarページでツールバーの定義を行います。
クッキーに保存されいるユーザー名のセクションがあればそのセクションの内容を追加ツールバーとして表示します。
ユーザー毎の定義がない場合には #default のツールバーを追加で表示します。

グローバル変数追加

my $CustomToolbar = 'CustomToolbar';                        # yakty add [custom toolbar]

print_header()内の変更

    @{[ &make_customtoolbar ]}<!-- yakty add [custom toolbar] -->
</div>
<h1 class="header">@{[&make_headline($page)]}</h1><!-- yakty mod [modify header(h1)] -->
EOD
}

make_customtoolbar()追加

• 2004-04-23 (Fri) 18:40:20 名前にエイリアス(別名)を使用した場合でも自分のツールバーが表示されるように変更。

# yakty add [custom toolbar] start
sub make_customtoolbar {
    my $barname;
    my %toolbar;
    my ($name) = ($form{myname} =~ /(\S+)$/);
    foreach (split /\n/, $database{$CustomToolbar}){
        if(/^(\*{1,$header_level})(?:\s*)(.*)/){
            $barname = ((length($1) == 2) ? $2 : "");
            $toolbar{$barname} = "";
            last if($name and $toolbar{$name});
        } elsif($barname) {
            $toolbar{$barname} .= &inline($_);
        }
    }
    my $bar;
    if($name and defined $toolbar{$name}){
        $bar = $toolbar{$name};
    } elsif(defined $toolbar{'#default'}){
        $bar = $toolbar{'#default'};
    } else {
        return "";
    }
    return ($bar) ? "<br>$bar" : "";
}
# yakty add [custom toolbar] end