| 1 |
w |
1.1 |
Name: |
| 2 |
|
|
WikiPage |
| 3 |
|
|
FullName: |
| 4 |
|
|
Getting WikiPage information |
| 5 |
|
|
URI: |
| 6 |
|
|
IW:SuikaWiki:WikiAdmin |
| 7 |
|
|
|
| 8 |
|
|
{ |
| 9 |
|
|
Name: |
| 10 |
|
|
wikiform_input/recent-change-list |
| 11 |
|
|
FullName: |
| 12 |
|
|
Recent-changed-pages list |
| 13 |
|
|
Format: |
| 14 |
|
|
eval q{ |
| 15 |
|
|
$r = qq(<ol class="recent-changes">\n); |
| 16 |
|
|
for ($main::database->recent_changes ($p->{n} || 10)) { |
| 17 |
|
|
next unless $_; |
| 18 |
w |
1.2 |
my @date = gmtime $main::database->mtime ($_); |
| 19 |
|
|
$date[0] = sprintf '%04d-%02d-%02d %02d:%02d:%02d+00:00', $date[5]+1900,$date[4]+1,@date[3,2,1,0]; |
| 20 |
|
|
$r .= qq(<li><span class="date">$date[0]</span> <a href="@{[$o->uri('wiki')]}?@{[$o->encode($_)]}" class="wiki">) . $o->escape ($_) . qq(</a>); |
| 21 |
w |
1.1 |
$r .= ' <span class="summary">'.$o->escape (&main::get_subjectline ($_)).'</span>' if $p->{summary}; |
| 22 |
|
|
$r .= qq(</li>\n); |
| 23 |
|
|
} |
| 24 |
|
|
$r .= '</ol>'; |
| 25 |
|
|
} or $r = ''; |
| 26 |
|
|
} |
| 27 |
|
|
|
| 28 |
|
|
{ |
| 29 |
|
|
Name: |
| 30 |
|
|
wikiform_input/page-list |
| 31 |
|
|
FullName: |
| 32 |
|
|
WikiPage list |
| 33 |
|
|
Format: |
| 34 |
|
|
eval q{ |
| 35 |
|
|
$r = qq(<ul class="pages">\n); |
| 36 |
|
|
my $re = $p->{match} || '.'; |
| 37 |
|
|
for (grep /$re/, keys %main::database) { |
| 38 |
w |
1.2 |
$r .= qq(<li><a href="@{[$o->uri('wiki')]}?@{[$o->encode($_)]}" class="wiki">) . $o->escape ($_) . qq(</a>); |
| 39 |
w |
1.1 |
$r .= ' <span class="summary">'.$o->escape (&main::get_subjectline ($_)).'</span>' if $p->{summary}; |
| 40 |
|
|
$r .= qq(</li>\n); |
| 41 |
|
|
} |
| 42 |
|
|
$r .= '</ul>'; |
| 43 |
|
|
} or $r = ''; |
| 44 |
|
|
} |
| 45 |
|
|
|
| 46 |
|
|
POD:LICENSE: |
| 47 |
|
|
Copyright 2003 Wakaba <w@suika.fam.cx> |
| 48 |
|
|
|
| 49 |
|
|
%%GNUGPL2%% |
Parent Directory
| 
Revision Log