30 |
use Message::Util::QName::General [q<ExpandedURI>], { |
use Message::Util::QName::General [q<ExpandedURI>], { |
31 |
'log' => q<http://suika.fam.cx/~wakaba/-temp/2004/05/01/reqlog#>, |
'log' => q<http://suika.fam.cx/~wakaba/-temp/2004/05/01/reqlog#>, |
32 |
'media-type' => q<http://suika.fam.cx/~wakaba/-temp/2004/04/24/mt#>, |
'media-type' => q<http://suika.fam.cx/~wakaba/-temp/2004/04/24/mt#>, |
33 |
|
'pe' => q<http://suika.fam.cx/~wakaba/archive/2004/7/20/sw-propedit#>, |
34 |
|
'relrev' => q<http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev#>, |
35 |
'ss' => q<http://suika.fam.cx/~wakaba/archive/2004/05/sw-stylesheet#>, |
'ss' => q<http://suika.fam.cx/~wakaba/archive/2004/05/sw-stylesheet#>, |
36 |
|
'sw' => q<http://suika.fam.cx/~wakaba/archive/2004/7/20/sw#>, |
37 |
|
'sw09' => q<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?SuikaWiki%2F0.9#>, |
38 |
}; |
}; |
39 |
|
|
40 |
BEGIN { |
BEGIN { |
138 |
directory_suffix => '.ns', |
directory_suffix => '.ns', |
139 |
file_suffix => '.txt', |
file_suffix => '.txt', |
140 |
root_key => $wiki->{config}->{page}->{Default}, |
root_key => $wiki->{config}->{page}->{Default}, |
141 |
-lock => $wiki->{var}->{db}->{lock_prop}->('content_prop')); |
-lock => $wiki->{var}->{db}->{lock_prop}->('content')); |
142 |
}, -db_close => sub { |
}, -db_close => sub { |
143 |
my %opt = @_; |
my %opt = @_; |
144 |
$opt{prop_info}->{-db}->close; |
$opt{prop_info}->{-db}->close; |
153 |
directory_suffix => '.ns', |
directory_suffix => '.ns', |
154 |
file_suffix => '.prop', |
file_suffix => '.prop', |
155 |
root_key => $wiki->{config}->{page}->{Default}, |
root_key => $wiki->{config}->{page}->{Default}, |
156 |
-lock => $wiki->{var}->{db}->{lock_prop}->('content')); |
-lock => $wiki->{var}->{db}->{lock_prop}->('content_prop')); |
157 |
}, -db_close => sub { |
}, -db_close => sub { |
158 |
my %opt = @_; |
my %opt = @_; |
159 |
$opt{prop_info}->{-db}->close; |
$opt{prop_info}->{-db}->close; |
359 |
error => {delta => 60}, |
error => {delta => 60}, |
360 |
}; |
}; |
361 |
|
|
362 |
|
## -- User-editable content properties |
363 |
|
$WIKI->{config}->{ExpandedURI q<pe:prop>} = { |
364 |
|
'abstract' => {uri => ExpandedURI q<sw:abstract>}, |
365 |
|
'abstract--type' => {uri => ExpandedURI q<sw:abstract--type>, |
366 |
|
type => ExpandedURI q<media-type:media-type>, |
367 |
|
depend => [qw/abstract/]}, |
368 |
|
'category' => {uri => ExpandedURI q<sw:category>, is_list => 1}, |
369 |
|
'keyword' => {uri => ExpandedURI q<sw:keyword>, is_list => 1}, |
370 |
|
'obsoleted' => {uri => ExpandedURI q<sw09:obsoleted>}, |
371 |
|
'rel-contents' => {uri => ExpandedURI q<relrev:contents>}, |
372 |
|
'rel-index' => {uri => ExpandedURI q<relrev:index>}, |
373 |
|
'rel-next' => {uri => ExpandedURI q<relrev:next>}, |
374 |
|
'rel-prev' => {uri => ExpandedURI q<relrev:prev>}, |
375 |
|
'rel-up' => {uri => ExpandedURI q<relrev:up>}, |
376 |
|
}; |
377 |
|
|
378 |
## -- Debug mode |
## -- Debug mode |
379 |
$WIKI->{config}->{debug} = { |
$WIKI->{config}->{debug} = { |
380 |
general => 0, |
general => 0, |