--- no_pager/index.cgi	2006/08/15 16:03:16	4
+++ no_pager/index.cgi	2006/08/15 16:56:49	5
@@ -3,12 +3,18 @@
 use strict;
 
 use CGI::Simple;
-use CGI::Carp qw(fatalsToBrowser);
+use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
 use Search::Estraier;
+use YAML::Syck;
+use Data::Dump qw/dump/;
 
 my $q = new CGI::Simple;
 print qq{Content-type: text/html\n\r\n\r};
 
+my $config = LoadFile('config.yml');
+
+#warn "config = ", dump($config);
+
 if ($q->path_info() eq '/snippet') {
 
 print qq{
@@ -24,12 +30,7 @@
 	<ul>
 };
 
-my $node = new Search::Estraier::Node(
-	url => 'http://localhost:1978/node/books',
-	user => 'admin',
-	passwd => 'admin',
-	croak_on_error => 1,
-);
+my $node = new Search::Estraier::Node(%{ $config->{estraier} });
 
 my $o = $q->param('index') || 0;
 my $search = $q->param('q');