/[BackupPC]/trunk/lib/BackupPC/SearchLib.pm
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/lib/BackupPC/SearchLib.pm

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

revision 5 by dpavlin, Wed Jun 22 19:22:51 2005 UTC revision 6 by dpavlin, Thu Jun 23 09:47:59 2005 UTC
# Line 10  use DBI; Line 10  use DBI;
10  sub getUnits() {  sub getUnits() {
11      my @ret = ();      my @ret = ();
12      my $tmp;      my $tmp;
13      my $dbh = DBI->connect( "dbi:SQLite:dbname=$Conf{SearchDB}",      my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",
14          "", "", { RaiseError => 1, AutoCommit => 1 } );          "", "", { RaiseError => 1, AutoCommit => 1 } );
15      my $st =      my $st =
16        $dbh->prepare(        $dbh->prepare(
# Line 121  sub getFiles($) Line 121  sub getFiles($)
121    {    {
122        my ($where) = @_;        my ($where) = @_;
123                
124        my $dbh = DBI->connect( "dbi:SQLite:dbname=$Conf{SearchDB}",        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",
125          "", "", { RaiseError => 1, AutoCommit => 1 } );          "", "", { RaiseError => 1, AutoCommit => 1 } );
126        my $sql =                  my $sql =          
127          q{            q{  
# Line 188  sub getFiles($) Line 188  sub getFiles($)
188    
189  sub getBackupsNotBurned()  sub getBackupsNotBurned()
190    {    {
191        my $dbh = DBI->connect( "dbi:SQLite:dbname=$Conf{SearchDB}",        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",
192          "", "", { RaiseError => 1, AutoCommit => 1 } );                "", "", { RaiseError => 1, AutoCommit => 1 } );      
193        my $sql = q{        my $sql = q{
194            SELECT            SELECT
Legend:
Removed from v.5  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.26