156 |
sub getBackupsNotBurned() { |
sub getBackupsNotBurned() { |
157 |
|
|
158 |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
159 |
my $sql = q{ |
my $sql = q{ |
160 |
SELECT |
SELECT |
161 |
hosts.ID AS hostID, |
hosts.ID AS hostid, |
162 |
hosts.name AS host, |
min(hosts.name) AS host, |
163 |
backups.num AS backupno, |
backups.num AS backupno, |
164 |
backups.type AS type, |
min(backups.type) AS type, |
165 |
backups.date AS date |
min(backups.date) AS date |
166 |
FROM backups, shares, files, hosts |
FROM backups, shares, files, hosts |
167 |
WHERE |
WHERE |
168 |
backups.num = files.backupNum AND |
backups.num = files.backupNum AND |
169 |
shares.ID = files.shareID AND |
shares.ID = files.shareID AND |
170 |
backups.hostID = shares.hostID AND |
backups.hostID = shares.hostID AND |
171 |
hosts.ID = backups.hostID AND |
hosts.ID = backups.hostID AND |
172 |
files.dvdid IS NULL |
files.dvdid IS NULL |
173 |
GROUP BY |
GROUP BY |
174 |
backups.hostID, backups.num |
backups.hostID, backups.num, hosts.id |
175 |
}; |
}; |
176 |
my $st = $dbh -> prepare( $sql ); |
my $sth = $dbh->prepare( $sql ); |
177 |
my @ret = (); |
my @ret; |
178 |
$st -> execute(); |
$sth->execute(); |
179 |
|
|
180 |
while ( my $row = $st -> fetchrow_hashref() ) |
while ( my $row = $sth->fetchrow_hashref() ) { |
181 |
{ |
push(@ret, { |
|
push(@ret, { |
|
182 |
'host' => $row->{'host'}, |
'host' => $row->{'host'}, |
183 |
'hostid' => $row->{'hostID'}, |
'hostid' => $row->{'hostid'}, |
184 |
'backupno' => $row->{'backupno'}, |
'backupno' => $row->{'backupno'}, |
185 |
'type' => $row->{'type'}, |
'type' => $row->{'type'}, |
186 |
'date' => $row->{'date'} |
'date' => $row->{'date'} |
187 |
} |
} |
188 |
); |
); |
189 |
} |
} |
190 |
|
|
191 |
return @ret; |
return @ret; |
192 |
} |
} |
193 |
|
|
194 |
sub displayBackupsGrid() |
sub displayBackupsGrid() |
195 |
{ |
{ |