9 |
|
|
10 |
use WebPAC::Lookup; |
use WebPAC::Lookup; |
11 |
use WebPAC::Input::ISIS; |
use WebPAC::Input::ISIS; |
12 |
use WebPAC::DB 0.02; |
use WebPAC::Store 0.03; |
13 |
use WebPAC::Normalize::XML; |
use WebPAC::Normalize::XML; |
14 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
15 |
use WebPAC::Output::Estraier; |
use WebPAC::Output::Estraier; |
46 |
|
|
47 |
my $path = './db/'; |
my $path = './db/'; |
48 |
|
|
49 |
my $db = new WebPAC::DB( |
my $db = new WebPAC::Store( |
50 |
path => $config->{webpac}->{db_path}, |
path => $config->{webpac}->{db_path}, |
51 |
); |
); |
52 |
|
|