/[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 182 by dpavlin, Thu May 25 19:18:14 2006 UTC revision 183 by dpavlin, Thu Aug 31 14:43:06 2006 UTC
# Line 27  my $c = { Line 27  my $c = {
27          passwd => 'admin',          passwd => 'admin',
28  };  };
29    
30  GetOptions($c, qw/node_url=s sql=s pk_col=s eb_encoding=s debug+ user=s passwd=s/);  GetOptions($c, qw/node_url=s sql=s pk_col=s eb_encoding=s debug+ estuser=s estpasswd=s dbuser=s dbpasswd=s/);
31    
32  warn "# c: ", Dumper($c) if ($c->{debug});  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 => $c->{user},          user => $c->{estuser},
38          passwd => $c->{passwd},          passwd => $c->{estpasswd},
39          croak_on_error => 1,          croak_on_error => 1,
40          create => 1,          create => 1,
41          debug => $c->{debug} >= 4 ? 1 : 0,          debug => $c->{debug} >= 4 ? 1 : 0,
42  );  );
43    
44  # create DBI connection  # create DBI connection
45  my $dbh = DBI->connect("DBI:$c->{dbi}","","") || die $DBI::errstr;  my $dbh = DBI->connect("DBI:$c->{dbi}", $c->{dbuser}, $c->{dbpasswd}) || die $DBI::errstr;
46    
47  my $sth = $dbh->prepare($c->{sql}) || die $dbh->errstr();  my $sth = $dbh->prepare($c->{sql}) || die $dbh->errstr();
48  $sth->execute() || die $sth->errstr();  $sth->execute() || die $sth->errstr();
Legend:
Removed from v.182  
changed lines
  Added in v.183
  ViewVC Help
Powered by ViewVC 1.1.26