Heinrichのページ (1998.08.05-)
新規 | 管理 | 差分 | 検索 | Top | 一覧 | 履歴 |

WalWikiからの変更部分

管理

初期設定

管理
my $modifier_mail = 'maki-t@amy.hi-ho.ne.jp'; # Your mail address.
my $modifier_url  = 'http://www.amy.hi-ho.ne.jp/maki-t'; # Your web page.
my $modifier_name = 'Maki Terasaki'; # Your name.
# my $modifier_dbtype = 'AnyDBM_File';
# my $modifier_dbtype = 'dbmopen';
my $modifier_dbtype = 'YukiWikiDB';
# my $modifier_sendmail = '/usr/sbin/sendmail -t -n'; # Your sendmail.
my $modifier_sendmail = ''; # If you don't need mail notification.
my $modifier_dir_data = "$ENV{'HOME'}/html/wiki"; # Your data directory (not URL, but DIRECTORY).
my $modifier_url_data = "$ENV{'HOME'}/html/wiki/Theme"; # Your data URL (not DIRECTORY, but URL).
my $modifier_rss_title = "WalWiki $walversion";
my $modifier_rss_link = 'http://www.amy.hi-ho.ne.jp/maki-t';
my $modifier_rss_description = 'This is WalWiki, yet another Wiki clone';

スタイルシートの指定

管理
my $url_stylesheet = "http://www.amy.hi-ho.ne.jp/maki-t/wiki/Theme/wiki.css";

タイトルから要約を取り除く

管理
<title>と<h1>の部分から@{[&escape(&get_subjectline($page))]}を削除

一覧ページの黒丸を数字に変更

管理
IndexPageの<ul>を<ol>に変更

WikiNameを事実上使用不可にした

管理
my $wiki_name   = '\b([A-Z][a-z][A-Z][a-z][A-Z][a-z][A-Z][a-z][A-Z][a-z])\b'とした

FrontPageは更新しにくいためTopPageに変更

管理
<a href="$url_cgi?$FrontPage">$FrontPage</a>の$FrontPageをTopPageに変更した

InterWikiBoxのサイズを大きくする

管理
<input type="$ignoretype{$localname}" name="mylocalname" value="" size="10">のsizeを30にした

年-月-日を年.月.日に変更

管理
return "$year-$mon-$day ($weekday) $hour:$min:$sec"; の-を.にした
$line =~ s|(\d\d\d\d-\d\d-\d\d \(\w\w\w\) \d\d:\d\d:\d\d)|<span class="date">$1</span>|g;   # Dateの-を.にした(日付を等幅に)
(中止)/^\- \d\d\d\d\-\d\d\-\d\d \(...\) \d\d:\d\d:\d\d (\S+)/;    # date format.の-を.にした(RSS)
/^\- \d\d\d\d\-\d\d\-\d\d \(...\) \d\d:\d\d:\d\d (\S+)/;    # date format.の-を.にした(RecentChanges)

名前へのリンクを削除

管理
my $namestr = $form{myname} ? " ''[[$form{myname}]]'' : " : " ";の''[[$form{myname}]]''を''$form{myname}''にした

一番上の行

管理
<div class="tools">と</div>を削除(新規作成などが左揃えに)
040218中止 <a href="$url_cgi?$RssPage">$resource{rssbutton}</a> |を削除(RSSを削除)
<body class="$bodyclass">の次に<FONT size=+2><B>$resource{pagetitle}</B></FONT> <img src="/cgi-bin/user/maki-t/Count.cgi?dd=D&df=u.dat">(1998.08.05-)<BR>を追加

footer

管理
sub print_footer {
    my ($page) = @_;
    # Walrus add [modify footer] start
    $walrus_log = &make_log;            # Walrus add [for debug]
    my $mod_info = $modifier_name ? qq(Modified by <a href="$modifier_url">$modifier_name</a>.) (<a href="mailto:$modifier_mail">$modifier_mail</a>).) : '';
    print <<"EOD";
<hr />
    <a href="http://digit.que.ne.jp/work/">WalWiki</a> $walversion &copy; 2000-2002 by <a href="http://digit.que.ne.jp/">Makio Tsukamoto</a>.<br />
    based on <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> $version &copy; 2000-2002 by <a href="http://www.hyuki.com/">Hiroshi Yuki</a>.<br />
    $mod_info
$walrus_log <!-- Walrus add [for debug] -->
<BR>
<!-- 解析タグ開始 -->
<SCRIPT Language="JavaScript" SRC="http://log7.ziyu.net/js/203055_2.js"></SCRIPT>
<NOSCRIPT>
<A href="http://www.ziyu.net/" target="_blank">
<IMG SRC="http://log7.ziyu.net/link_free.cgi?203055&&&no" width=200 height=40 border=0>
</A>
</NOSCRIPT>
<!-- 解析タグ終了 -->
</body>
</html>
EOD

書式追加

管理
   $line =~ s|~~~([^~]+?)~~~|<sup>$1</sup>|g;  # 上付き
   $line =~ s|~~([^~]+?)~~|<sub>$1</sub>|g;    # 下付き
   $line =~ s|##\[(.+?)]([^#]+?)##|<font color=\"$1\">$2</font>|g; #fontを任意の色で
   $line =~ s|([^;]+?);;|$1<br>|g;    # Newline

HTML MODE

管理
my @ignore_html_page = ('TopPage');                            # Walrus add [HTML mode]
my @ignore_html_tags = ('a', 'br', 'blockquote', 'img', 'map', 'area');         # Walrus add [HTML mode]

コメント欄を大きくした

管理
<form action="$url_cgi" method="post">
   <input type="hidden" name="mycmd" value="comment">
   <input type="hidden" name="mypage" value="$escapedmypage">
   <input type="hidden" name="myLastModified" value="$lastmodified">
   <input type="hidden" name="mytouch" value="on">
   $resource{yourname}
   <input type="text" name="myname" value="" size="10">
   <input type="text" name="mymsg" value="" size="100">
   <input type="submit" value="$resource{commentbutton}">
</form>

resource.txt

管理
yourname=あなたの名前:をyourname=にした
commentbutton=コメント追加をcommentbutton=追加にした
recentchangesbutton=更新履歴をrecentchangesbutton=履歴にした
createbutton=新規作成をcreatebutton=新規にした
admineditbutton=編集(管理者用)をadmineditbutton=管理にした
searchthispage=このページを検索をsearchthispage=にした
admineditthispage=このページを編集します(パスワードが必要)をadmineditthispage=にした
pagetitle=Heinrichのページを追加

hatena.pl(中止)

管理
next unless ($item =~ s/^<li>(.+?)<a href="\/go\?(.+?)200(.+?)">(.+?)<\/a>//i);
push @items, {'dc:date'=>$1, 'link'=>$2.'?200'.$3, 'title'=>$4, 'description' => ''};

Antenna.pm(中止)

管理
return ('<ol>', @result, '</ol>');

凍結してもコメントは追加できるように変更(本家に採用された)

管理
http://hpcgi2.nifty.com/tokd/index.cgi?YukiWikiModifiedVersion参照
sub frozen_reject {
    my ($isfrozen) = &get_info($form{mypage}, $info_IsFrozen);
    my ($willbefrozen) = $form{myfrozen};
    if (not $isfrozen and not $willbefrozen) {
        # You need no check.
        return 0;
+     } elsif ($isfrozen and $form{mycmd} eq 'comment') {
+ 	# keep frozen
+ 	$form{myfrozen} = 1;
+ 	# Comment is always allowed.
+ 	return 0;
    } elsif (valid_password($form{mypassword})) {
        # You are admin.
        return 0;
    } else {
        &print_error($resource{passworderror});
        return 1;
    }
}

部分編集を使用不可に(中止)

管理
   # Walrus add [part edit] start
#    my $formatpage = $cookedpage;
#    $formatpage =~ s/%/%%/g;
#    if    ($editable)      { $resource{'parteditlinkformat'} = qq(<a class="partedit" title="$resource{editthispart}" href="$url_cgi?mycmd=edit&amp;mypage=$formatpage&amp;mypart=%d">$resource{editbutton}</a>); }
#    elsif ($admineditable) { $resource{'parteditlinkformat'} = qq(<a class="partedit" title="$resource{admineditthispart}" href="$url_cgi?mycmd=adminedit&amp;mypage=$formatpage&amp;mypart=%d">$resource{admineditbutton}</a>); }
   # Walrus add [part edit] end

アンテナ(中止)

管理
# 30分以内のデータが保持されていなければ取得
if ($time < time - 1800) {
の1800を60にした

改行方法の変更(中止)

管理
unshift(@saved, "</p>");→unshift(@saved, "<br>"); (2つ)
push(@result, "<p>");→push(@result); (2つ)
href="$url_cgi?mycmd=search&amp;mymsg=$cookedpage">$page</a></h1>とEODの間に<BR>追加

header(中止)

管理
   @{[ $admineditable
       ? qq(<a title="$resource{admineditthispage}" href="$url_cgi?mycmd=adminedit&amp;mypage=$cookedpage">$resource{admineditbutton}</a> )
       : qq()
   ]}
   @{[ $editable
       ? qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit&amp;mypage=$cookedpage">$resource{editbutton}</a> )
       : qq()
   ]}
   @{[ $admineditable
       ? qq(<a href="$url_cgi?mycmd=diff&amp;mypage=$cookedpage">$resource{diffbutton}</a> )
       : qq()
   ]}
   <a href="$url_cgi?$CreatePage">$resource{createbutton}</a> 
   <a href="$url_cgi?$IndexPage">$resource{indexbutton}</a> 
   <a href="$url_cgi?TopPage">Top</a> 
   <a href="$url_cgi?$SearchPage">$resource{searchbutton}</a> 
   <a href="$url_cgi?$RecentChanges">$resource{recentchangesbutton}</a>

確認画面をスキップ(本家に採用された)

管理
       &set_info($form{mypage}, $info_IsFrozen, 0 + $form{myfrozen});
       &print_header($form{mypage});
       &print_content($database{$form{mypage}});
       &print_footer($form{mypage});
#      &print_header($CompletedSuccessfully);
#      &print_message($resource{saved});
#      &print_content("$resource{continuereading} @{[&armor_name($form{mypage})]}");
#      &print_footer($CompletedSuccessfully);

すべての画面に管理と差分を表示(中止)

管理
    sub print_header {
    my ($page) = @_;
    my $bodyclass = "normal";
    my $editable = 0;
    my $admineditable = 1;
#   my $admineditable = 0;

alias linkを別のウインドウで開く(中止)

管理
               return qq(<a href="$chunk">$name</a>);
           return qq(<a href="$chunk" target="_blank">$name</a>);
に変更
WalWiki 2.0.5.wal.4 © 2000-2002 by Makio Tsukamoto.
based on YukiWiki 2.0.5 © 2000-2002 by Hiroshi Yuki.
Modified by Maki Terasaki.