153 |
|
|
154 |
push @{$WIKI->{event}->{input_close}}, sub { |
push @{$WIKI->{event}->{input_close}}, sub { |
155 |
my ($wiki, $event) = @_; |
my ($wiki, $event) = @_; |
156 |
SuikaWiki::Plugin->module_package ('Referer') |
try { |
157 |
|
SuikaWiki::Plugin->module_package ('Referer') |
158 |
->add_referer (wiki => $wiki, |
->add_referer (wiki => $wiki, |
159 |
uri => $wiki->{input}->meta_variable |
uri => $wiki->{input}->meta_variable |
160 |
('HTTP_REFERER')); |
('HTTP_REFERER')); |
161 |
SuikaWiki::Plugin->module_package ('RequestLog') |
} catch SuikaWiki::Plugin::error with { |
162 |
|
my $err = shift; |
163 |
|
$err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND'; |
164 |
|
}; |
165 |
|
try { |
166 |
|
SuikaWiki::Plugin->module_package ('RequestLog') |
167 |
->http_request_log (wiki => $wiki, |
->http_request_log (wiki => $wiki, |
168 |
prop => 'log__http_request'); |
prop => 'log__http_request'); |
169 |
|
} catch SuikaWiki::Plugin::error with { |
170 |
|
my $err = shift; |
171 |
|
$err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND'; |
172 |
|
}; |
173 |
}; |
}; |
174 |
|
|
175 |
## -- WikiName of special purpose WikiPages |
## -- WikiName of special purpose WikiPages |
216 |
|
|
217 |
## -- Debug mode |
## -- Debug mode |
218 |
$WIKI->{config}->{debug} = { |
$WIKI->{config}->{debug} = { |
219 |
general => 1, |
general => 0, |
220 |
db => 0, |
db => 0, |
221 |
format => 0, |
format => 0, |
222 |
view => 1, |
view => 0, |
223 |
}; |
}; |
224 |
|
|
225 |
} |
} |