11 |
# open the database |
# open the database |
12 |
my $db = HyperEstraier::Database->new(); |
my $db = HyperEstraier::Database->new(); |
13 |
$db->open('casket', $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT); |
$db->open('casket', $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT); |
14 |
|
# open node |
15 |
|
my $node = HyperEstraier::Node->new("http://localhost:1978/node/trivia"); |
16 |
|
$node->set_auth('admin', 'admin'); |
17 |
|
|
18 |
|
|
19 |
my $header = 1; |
my $header = 1; |
95 |
|
|
96 |
# register the document object to the database |
# register the document object to the database |
97 |
$db->put_doc($doc, $HyperEstraier::Database::PDCLEAN); |
$db->put_doc($doc, $HyperEstraier::Database::PDCLEAN); |
98 |
|
$node->put_doc($doc); |
99 |
|
|
100 |
$trivia = ''; |
$trivia = ''; |
101 |
@qv = (); |
@qv = (); |