/[BackupPC]/trunk/bin/BackupPC_updatedb
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/bin/BackupPC_updatedb

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

revision 6 by dpavlin, Thu Jun 23 09:47:59 2005 UTC revision 8 by dpavlin, Thu Jun 23 12:22:21 2005 UTC
# Line 1  Line 1 
1  #!/usr/local/bin/perl -w  #!/usr/local/bin/perl
2  $| = 1;  $| = 1;
3    
4  use strict;  use strict;
# Line 17  my %Conf = $bpc->Conf(); Line 17  my %Conf = $bpc->Conf();
17  my $TopDir = $bpc->TopDir();  my $TopDir = $bpc->TopDir();
18  my @beenThere = ();  my @beenThere = ();
19    
 print Dumper(\%Conf);  
   
20  my $dbh = DBI->connect("dbi:SQLite:dbname=$TopDir/$Conf{SearchDB}", "", "", { RaiseError => 1, AutoCommit => 0 });  my $dbh = DBI->connect("dbi:SQLite:dbname=$TopDir/$Conf{SearchDB}", "", "", { RaiseError => 1, AutoCommit => 0 });
21    
22  my %opt;  my %opt;
# Line 129  if ($opt{d}) Line 127  if ($opt{d})
127  #################################INSERT VALUES#############################  #################################INSERT VALUES#############################
128    
129  # get hosts  # get hosts
130  $hosts = $bpc->HostInfoRead("localhost");  $hosts = $bpc->HostInfoRead();
131  my $host_key;  print Dumper($hosts);
132  my $hostID;  my $hostID;
133  my $shareID;  my $shareID;
134  foreach $host_key (keys %{$hosts})  foreach my $host_key (keys %{$hosts})
135  {  {
136    my $hostname = $hosts->{$host_key}->{'host'};    my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key";
137    my $backups;    my $backups;
138    my $sql;    my $sql;
139    
# Line 143  foreach $host_key (keys %{$hosts}) Line 141  foreach $host_key (keys %{$hosts})
141    my $st = $dbh->prepare($sql);    my $st = $dbh->prepare($sql);
142    $st->bind_param(1,$hosts->{$host_key}->{'host'});    $st->bind_param(1,$hosts->{$host_key}->{'host'});
143    $st->execute();    $st->execute();
144    my $tmp = $st->fetchrow_hashref();    if (my $tmp = $st->fetchrow_hashref())
   if ($tmp->{'ID'} ne "")  
145        {        {
146            $hostID = $tmp->{'ID'};            $hostID = $tmp->{'ID'};
147        }        }
Legend:
Removed from v.6  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26