/[Search-Estraier]/trunk/scripts/dbi-indexer.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/scripts/dbi-indexer.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 147 by dpavlin, Wed May 10 21:41:35 2006 UTC revision 159 by dpavlin, Thu May 25 19:18:14 2006 UTC
# Line 6  use DBI; Line 6  use DBI;
6  use Data::Dumper;  use Data::Dumper;
7  use Encode qw/from_to/;  use Encode qw/from_to/;
8  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
9    use Getopt::Long;
10    
11  =head1 NAME  =head1 NAME
12    
# Line 22  my $c = { Line 23  my $c = {
23          pk_col => '_id',          pk_col => '_id',
24          db_encoding => 'iso-8859-2',          db_encoding => 'iso-8859-2',
25          debug => 0,          debug => 0,
26            user => 'admin',
27            passwd => 'admin',
28  };  };
29    
30    GetOptions($c, qw/node_url=s sql=s pk_col=s eb_encoding=s debug+ user=s passwd=s/);
31    
32    warn "# c: ", Dumper($c) if ($c->{debug});
33    
34  # create and configure node  # create and configure node
35  my $node = new Search::Estraier::Node(  my $node = new Search::Estraier::Node(
36          url => $c->{node_url},          url => $c->{node_url},
37          user => 'admin',          user => $c->{user},
38          passwd => 'admin',          passwd => $c->{passwd},
39          croak_on_error => 1,          croak_on_error => 1,
40          create => 1,          create => 1,
41          debug => $c->{debug},          debug => $c->{debug} >= 4 ? 1 : 0,
42  );  );
43    
44  # create DBI connection  # create DBI connection
# Line 50  my $pk_col = $c->{pk_col} || 'id'; Line 57  my $pk_col = $c->{pk_col} || 'id';
57    
58  while (my $row = $sth->fetchrow_hashref() ) {  while (my $row = $sth->fetchrow_hashref() ) {
59    
60          warn "# row: ",Dumper($row) if ($c->{debug});          warn "# row: ",Dumper($row) if ($c->{debug} >= 3);
61    
62          # create document          # create document
63          my $doc = new Search::Estraier::Document;          my $doc = new Search::Estraier::Document;
# Line 82  while (my $row = $sth->fetchrow_hashref( Line 89  while (my $row = $sth->fetchrow_hashref(
89    
90          }          }
91    
92          warn "# doc draft: ",$doc->dump_draft, "\n" if ($c->{debug});          warn "# doc draft: ",$doc->dump_draft, "\n" if ($c->{debug} >= 2);
93    
94          die "error: ", $node->status,"\n" unless (eval { $node->put_doc($doc) });          die "error: ", $node->status,"\n" unless (eval { $node->put_doc($doc) });
95    
Legend:
Removed from v.147  
changed lines
  Added in v.159
  ViewVC Help
Powered by ViewVC 1.1.26