1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
package VNWeb::Docs::Page;
use VNWeb::Prelude;
use VNWeb::Docs::Lib;
sub _index_ {
ul_ class => 'index', sub {
li_ sub { b_ 'Guidelines' };
li_ sub { a_ href => '/d5', 'Editing Guidelines' };
li_ sub { a_ href => '/d2', 'Visual Novels' };
li_ sub { a_ href => '/d15', 'Special Games' };
li_ sub { a_ href => '/d3', 'Releases' };
li_ sub { a_ href => '/d4', 'Producers' };
li_ sub { a_ href => '/d16', 'Staff' };
li_ sub { a_ href => '/d12', 'Characters' };
li_ sub { a_ href => '/d10', 'Tags & Traits' };
li_ sub { a_ href => '/d19', 'Image Flagging' };
li_ sub { a_ href => '/d13', 'Capturing Screenshots' };
li_ sub { b_ 'About VNDB' };
li_ sub { a_ href => '/d9', 'Discussion Board' };
li_ sub { a_ href => '/d6', 'FAQ' };
li_ sub { a_ href => '/d7', 'About Us' };
li_ sub { a_ href => '/d17', 'Privacy Policy & Licensing' };
li_ sub { a_ href => '/d11', 'Database API' };
li_ sub { a_ href => '/d14', 'Database Dumps' };
li_ sub { a_ href => '/d18', 'Database Querying' };
li_ sub { a_ href => '/d8', 'Development' };
}
}
sub _rev_ {
my $d = shift;
revision_ d => $d, sub {},
[ title => 'Title' ],
[ content => 'Contents' ];
}
TUWF::get qr{/$RE{drev}} => sub {
my $d = db_entry d => tuwf->capture('id'), tuwf->capture('rev');
return tuwf->resNotFound if !$d;
framework_ title => $d->{title}, index => !tuwf->capture('rev'), type => 'd', dbobj => $d, hiddenmsg => 1,
sub {
_rev_ $d if tuwf->capture('rev');
div_ class => 'mainbox', sub {
itemmsg_ d => $d;
h1_ $d->{title};
div_ class => 'docs', sub {
_index_;
lit_ enrich_html($d->{html} || md2html $d->{content});
clearfloat_;
};
};
};
};
1;
|