19 |
|
|
20 |
package wiki::driver::http; |
package wiki::driver::http; |
21 |
use strict; |
use strict; |
|
use Message::Util::Error; |
|
22 |
|
|
23 |
|
## These lines should be removed after utf8 support |
24 |
|
BEGIN { |
25 |
|
$Message::Util::Formatter::Base::Token = qr/[\w._+\x80-\xFF-]+/; |
26 |
|
require Message::Util::Formatter::Base; |
27 |
|
} |
28 |
|
|
29 |
|
use Message::Util::Error; |
30 |
push our @Config, sub ($) { |
push our @Config, sub ($) { |
31 |
my $WIKI = shift; |
my $WIKI = shift; |
32 |
use Cwd qw(abs_path); |
use Cwd qw(abs_path); |
64 |
misc/plugins/link/ |
misc/plugins/link/ |
65 |
misc/plugins/view/ |
misc/plugins/view/ |
66 |
)); |
)); |
67 |
|
|
68 |
## Configuration file as pseudo-plugin module |
## Configuration file as pseudo-plugin module |
69 |
require 'wikidata/config.ph'; |
require 'wikidata/config.ph'; |
70 |
}; |
}; |
121 |
$opt{prop_info}->{-db}->close; |
$opt{prop_info}->{-db}->close; |
122 |
delete $opt{prop_info}->{-db}; |
delete $opt{prop_info}->{-db}; |
123 |
}}); |
}}); |
124 |
|
|
125 |
## Berkely DB Environment Preparation |
## Berkely DB Environment Preparation |
126 |
use BerkeleyDB; |
use BerkeleyDB; |
127 |
my $bdbenv = new BerkeleyDB::Env |
my $bdbenv = new BerkeleyDB::Env |