簡単な機能追加と表示変更の試み。
| WikiLab | WikiLab/BeginnerGuidance |
■日付の挿入。
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 }} の部分は任意の文字列に置き換えて構いません。
■本日の日付で検索。
- その日の日付文字列で全文検索します。
- {{key :today}} で、[Today:2021/01/16(Sat)] このような日付検索へのリンク文字列が出来ます。参考:キーワード検索
- 当然ですが、データの編集時に日付を入れておかないと意味がありません。上の「日付の挿入」で、日付の記入が簡単にできるようになります。
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&mymsg=@{[&encode($tdaystr)]}" title="$resource{keyword}">[Today:$tdaystr]</a>|g;
- 注意:Wal4 で、検索結果にキーワードの含まれる該当個所がテキスト表示されるようになりました。 「勝手ルール」を追加すると、検索結果とページ先頭の目次部分が未整形で表示され、ちょっとみっともないです。 この辺りの修正方法はこちらの WikiRules をご覧下さい。
一行コメント欄に「タイムスタンプを更新しない」チェックボックスを追加。_
sub do_comment
if ($form{mymsg}) { $form{mymsg} = $content; # $form{mytouch} = 'on'; # rica del &do_write; } else { $form{mycmd} = 'read'; $form{mytouch} = 'on'; # rica add &do_read; }
sub embedded_to_html
<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"> rica del--> $resource{yourname} <input type="text" name="myname" value="" size="10"> <input type="checkbox" name="mytouch" value="on" checked="checked">$resource{touch} <br> <!-- rica add--> <input type="text" name="mymsg" value="" size="40"> <input type="submit" value="$resource{commentbutton}"> </form>
2003/06/11(Wed)
コメント。
- 何かありましたらご利用ください。
- 但し、申し訳ありませんが、ご質問などに満足に回答できる能力はページ制作者にはありません…。