管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || アンテナ || PUT || more≫ ≫omit
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage ||[edit]
category: WikiLab/BeginnerGuidance

WikiLab/BeginnerGuidance/FunctionAdd - 簡単な機能追加と表示変更の試み。

LastModified : Fri May 7 20:21:08 2004
[管理]

簡単な機能追加と表示変更の試み。

| WikiLab | WikiLab/BeginnerGuidance |

日付の挿入。

[TOP↑] [管理]

sub do_write

   if ($form{mymsg}) {
+      my $datestr = &get_now;
+      $form{mymsg} =~ s|{{ now }}|$datestr|g;
       # Walrus mod [write softly] start
       if ($lock_enable) {

{{ now }} と書くと、保存時に現在日時に変換されます。{{ now }} の部分は任意の文字列に置き換えて構いません。

本日の日付で検索。

[TOP↑] [管理]

sub get_now をコピーして、get_date 関数を作ります。

sub get_date {
    my (@week) = qw(Sun Mon Tue Wed Thu Fri Sat);
    my ($sec, $min, $hour, $day, $mon, $year, $weekday) = gmtime(time + $modifier_time_offset);
    $year += 1900;
    $mon++;
    $mon = "0$mon" if $mon < 10;
    $day = "0$day" if $day < 10;
    $weekday = $week[$weekday];
    return "$year-$mon-$day ($weekday)";
}

sub inline

sub inline {
    my ($line) = @_;
+   my $tdaystr = &get_date;
    my $chunk = shift;
    $line =~ s|'''(.+?)'''|<i>$1</i>|g;     # Italic
    $line =~ s|''(.+?)''|<b>$1</b>|g;       # Bold
+   $line =~ s|{{key:today}}|<a href="$url_cgi?mycmd=search&amp;mymsg=@{[&encode($tdaystr)]}" title="$resource{keyword}">[Today:$tdaystr]</a>|g;

一行コメント欄に「タイムスタンプを更新しない」チェックボックスを追加。_

[TOP↑] [管理]

2003/06/11(Wed)

コメント。

[TOP↑] [管理]

お名前: タイムスタンプを更新: 荷札を付ける:

shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage || [edit]
select css: default | sakura | mono | greenheck | snow | NN4.x用(多分) || LinuZau!! | VikiWiki!? || others |

管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || PUT