15 |
my $dsn = $Conf{SearchDSN}; |
my $dsn = $Conf{SearchDSN}; |
16 |
my $db_user = $Conf{SearchUser} || ''; |
my $db_user = $Conf{SearchUser} || ''; |
17 |
|
|
18 |
|
my $dbh; |
19 |
|
|
20 |
|
sub get_dbh { |
21 |
|
$dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
22 |
|
return $dbh; |
23 |
|
} |
24 |
|
|
25 |
sub getUnits() { |
sub getUnits() { |
26 |
my @ret; |
my @ret; |
27 |
|
|
28 |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
my $dbh = get_dbh(); |
29 |
my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} ); |
my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} ); |
30 |
$sth->execute(); |
$sth->execute(); |
31 |
push @ret, { 'id' => '', 'share' => '-'}; # dummy any |
push @ret, { 'id' => '', 'share' => '-'}; # dummy any |
33 |
while ( my $row = $sth->fetchrow_hashref() ) { |
while ( my $row = $sth->fetchrow_hashref() ) { |
34 |
push @ret, $row; |
push @ret, $row; |
35 |
} |
} |
|
$dbh->disconnect(); |
|
36 |
return @ret; |
return @ret; |
37 |
} |
} |
38 |
|
|
94 |
sub getFiles($$) { |
sub getFiles($$) { |
95 |
my ($param, $offset) = @_; |
my ($param, $offset) = @_; |
96 |
|
|
97 |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
my $dbh = get_dbh(); |
98 |
|
|
99 |
my $sql_cols = qq{ |
my $sql_cols = qq{ |
100 |
files.id AS fid, |
files.id AS fid, |
171 |
} |
} |
172 |
|
|
173 |
$sth->finish(); |
$sth->finish(); |
|
$dbh->disconnect(); |
|
174 |
return ($results, \@ret); |
return ($results, \@ret); |
175 |
} |
} |
176 |
|
|
177 |
sub getBackupsNotBurned() { |
sub getBackupsNotBurned() { |
178 |
|
|
179 |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
my $dbh = get_dbh(); |
180 |
my $sql = q{ |
my $sql = q{ |
181 |
SELECT |
SELECT |
182 |
backups.hostID AS hostid, |
backups.hostID AS hostid, |