/[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 51 by dpavlin, Sat Aug 20 16:40:11 2005 UTC revision 83 by dpavlin, Sun Aug 28 10:14:48 2005 UTC
# Line 7  use BackupPC::Attrib qw(:all); Line 7  use BackupPC::Attrib qw(:all);
7  use DBI;  use DBI;
8  use DateTime;  use DateTime;
9  use vars qw(%In $MyURL);  use vars qw(%In $MyURL);
10    use Time::HiRes qw/time/;
11    
12  my $on_page = 100;  my $on_page = 100;
13  my $pager_pages = 10;  my $pager_pages = 10;
# Line 15  my $dsn = $Conf{SearchDSN}; Line 16  my $dsn = $Conf{SearchDSN};
16  my $db_user = $Conf{SearchUser} || '';  my $db_user = $Conf{SearchUser} || '';
17    
18  sub getUnits() {  sub getUnits() {
19      my @ret = ();          my @ret;
20      my $tmp;  
21      my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
22      my $st =          my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} );
23        $dbh->prepare(          $sth->execute();
24          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
25      $st->execute();  
26      push (@ret, { 'ID' => '', 'name' => '-'});          while ( my $row = $sth->fetchrow_hashref() ) {
27      while ( $tmp = $st->fetchrow_hashref() ) {                  push @ret, $row;
28          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );          }
29      }          $dbh->disconnect();
30      $dbh->disconnect();          return @ret;
     return @ret;  
31  }  }
32    
33  sub epoch_to_iso {  sub epoch_to_iso {
34          my $t = shift || return;          my $t = shift || return;
35          my $dt = DateTime->from_epoch( epoch => $t ) || return;          my $iso = BackupPC::Lib::timeStamp($t);
36  print STDERR "$t == ",$dt->epoch,"\n";          $iso =~ s/\s/ /g;
37          return $dt->ymd . ' ' . $dt->hms;          return $iso;
38  }  }
39    
40  sub getWhere($) {  sub dates_from_form($) {
41          my ($param)    = @_;          my $param = shift || return;
         my @conditions;  
42    
43          sub mk_epoch_date($$) {          sub mk_epoch_date($$) {
44                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
# Line 57  sub getWhere($) { Line 56  sub getWhere($) {
56                  return $dt->epoch || 'NULL';                  return $dt->epoch || 'NULL';
57          }          }
58    
59          my $backup_from = mk_epoch_date('search_backup', 'from');          return (
60                    mk_epoch_date('search_backup', 'from'),
61                    mk_epoch_date('search_backup', 'to'),
62                    mk_epoch_date('search', 'from'),
63                    mk_epoch_date('search', 'to'),
64            );
65    }
66    
67    
68    sub getWhere($) {
69            my $param = shift || return;
70    
71            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
72    
73            my @conditions;
74          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
         my $backup_to = mk_epoch_date('search_backup', 'to');  
75          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
   
         my $files_from = mk_epoch_date('search', 'from');  
76          push @conditions, qq{ files.date >= $files_from } if ($files_from);          push @conditions, qq{ files.date >= $files_from } if ($files_from);
         my $files_to = mk_epoch_date('search', 'to');  
77          push @conditions, qq{ files.date <= $files_to } if ($files_to);          push @conditions, qq{ files.date <= $files_to } if ($files_to);
78    
79          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:",join(" | ",@conditions);          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
       
         push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});  
80    
81          push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
82            push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
83    
84          return (          return join(" and ", @conditions);
                 join(" and ", @conditions),  
                 $files_from, $files_to,  
                 $backup_from, $backup_to  
         );  
85  }  }
86    
87    
88  sub getFiles($$) {  sub getFiles($$) {
89          my ($where, $offset) = @_;          my ($param, $offset) = @_;
90    
91          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
92    
# Line 94  sub getFiles($$) { Line 98  sub getFiles($$) {
98                  files.backupNum                 AS backupNum,                  files.backupNum                 AS backupNum,
99                  files.name                      AS filename,                  files.name                      AS filename,
100                  files.path                      AS filepath,                  files.path                      AS filepath,
                 shares.share||files.fullpath    AS networkPath,  
101                  files.date                      AS date,                  files.date                      AS date,
102                  files.type                      AS filetype,                  files.type                      AS filetype,
103                  files.size                      AS size,                  files.size                      AS size,
104                  dvds.name                       AS dvd                  -- dvds.name                    AS dvd
105                    null                            AS dvd
106          };          };
107    
108          my $sql_from = qq{          my $sql_from = qq{
109                  FROM files                  FROM files
110                          INNER JOIN shares       ON files.shareID=shares.ID                          INNER JOIN shares       ON files.shareID=shares.ID
111                          INNER JOIN hosts        ON hosts.ID = shares.hostID                          INNER JOIN hosts        ON hosts.ID = shares.hostID
112                          INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID                          INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
113                          LEFT  JOIN dvds         ON dvds.ID = files.dvdid          };
114    
115            my $sql_dvd_from = qq{
116                            -- LEFT  JOIN dvds              ON dvds.ID = files.dvdid
117          };          };
118    
119          my $sql_where;          my $sql_where;
120            my $where = getWhere($param);
121          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
122    
123          my $sql_order = qq{          my $sql_order = qq{
124                  ORDER BY files.id                  ORDER BY files.date
125                          LIMIT $on_page                  LIMIT $on_page
126                          OFFSET ?                  OFFSET ?
127          };          };
128    
129            my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
130            my $sql_results = qq{ select $sql_cols $sql_from $sql_dvd_from $sql_where $sql_order };
131    
132          $offset ||= 0;          $offset ||= 0;
133          $offset = ($offset * $on_page) + 1;          $offset = ($offset * $on_page);
134    
135          my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });          my $sth = $dbh->prepare($sql_count);
136          $sth->execute();          $sth->execute();
   
137          my ($results) = $sth->fetchrow_array();          my ($results) = $sth->fetchrow_array();
138    
139          $sth = $dbh->prepare(qq{ select $sql_cols $sql_from $sql_where $sql_order });          $sth = $dbh->prepare($sql_results);
140          $sth->execute( $offset );          $sth->execute( $offset );
141    
142            if ($sth->rows != $results) {
143                    my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
144                    $bug =~ s/\s+/ /gs;
145                    print STDERR "$bug\n";
146            }
147    
148          my @ret;          my @ret;
149                
150          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
# Line 147  sub getFiles($$) { Line 163  sub getFiles($$) {
163                          'dvd'           => $row->{'dvd'}                          'dvd'           => $row->{'dvd'}
164                  });                  });
165          }          }
166              
167          $sth->finish();          $sth->finish();
168          $dbh->disconnect();          $dbh->disconnect();
169          return ($results, \@ret);          return ($results, \@ret);
# Line 156  sub getFiles($$) { Line 172  sub getFiles($$) {
172  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
173    
174          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
175        my $sql = q{          my $sql = q{
176            SELECT          SELECT
177              hosts.ID         AS hostID,                  backups.hostID          AS hostid,
178              hosts.name       AS host,                  min(hosts.name)         AS host,
179              backups.num      AS backupno,                  backups.num             AS backupno,
180              backups.type     AS type,                  min(backups.type)       AS type,
181              backups.date     AS date                  min(backups.date)       AS date,
182            FROM backups, shares, files, hosts                  min(backups.size)       AS size
183            WHERE          FROM files
184              backups.num    = files.backupNum  AND                  INNER JOIN shares       ON files.shareID=shares.ID
185              shares.ID      = files.shareID    AND                            INNER JOIN hosts        ON hosts.ID = shares.hostID
186              backups.hostID = shares.hostID    AND                  INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
187              hosts.ID       = backups.hostID   AND          WHERE
188              files.dvdid    IS NULL                  files.dvdid     IS NULL
189            GROUP BY          GROUP BY
190              backups.hostID, backups.num                  backups.hostID, backups.num
191        };          ORDER BY min(backups.date)
192        my $st = $dbh -> prepare( $sql );          };
193        my @ret = ();          my $sth = $dbh->prepare( $sql );
194        $st -> execute();          my @ret;
195            $sth->execute();
196        while ( my $row = $st -> fetchrow_hashref() )  
197          {                    while ( my $row = $sth->fetchrow_hashref() ) {
198              push(@ret, {                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
199                           'host'     => $row->{'host'},                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
200                           'hostid'   => $row->{'hostID'},                  push @ret, $row;
                          'backupno' => $row->{'backupno'},  
                          'type'     => $row->{'type'},  
                          'date'     => $row->{'date'}  
                        }  
             );  
201          }          }
202                
203        return @ret;                return @ret;      
204    }  }
205    
206  sub displayBackupsGrid()  sub displayBackupsGrid()
207    {    {
# Line 224  EOF3 Line 235  EOF3
235                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
236                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
237          }          }
238          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
239                    <table style="fview" border="1" cellspacing="0" cellpadding="3">
240                    <tr class="tableheader">
241            };
242    
243          if ($addForm) {          if ($addForm) {
244              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
245          }          }
246          $retHTML .=  qq{<td class="tableheader">Host</td><td class="tableheader">Backup no</td><td class="tableheader">Type</td><td class="tableheader">date</td></tr>};          $retHTML .=  qq{
247                    <td align="center">Host</td>
248                    <td align="center">Backup no</td>
249                    <td align="center">Type</td>
250                    <td align="center">date</td>
251                    <td align="center">age/days</td>
252                    <td align="center">size/MB</td>
253                    </tr>
254            };
255    
256          my @backups = getBackupsNotBurned();          my @backups = getBackupsNotBurned();
257          my $backup;          my $backup;
258    
259          if ($addForm) {          if ($addForm) {
260                  $retHTML .= qq{<tr><td colspan=7 style="tableheader">                  $retHTML .= qq{
261                            <tr><td colspan=7 style="tableheader">
262                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">
263                          </td></tr>};                          </td></tr>
264                    };
265          }          }
266    
267          foreach $backup(@backups) {          foreach $backup(@backups) {
# Line 246  EOF3 Line 270  EOF3
270                            
271                  $retHTML .= "<tr>";                  $retHTML .= "<tr>";
272                  if ($addForm) {                  if ($addForm) {
273                          $retHTML .= qq{<td class="fview"><input type="checkbox" name="fcb} .                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
274                                  $backup->{'hostid'}."_".$backup->{'backupno'} .                                  $backup->{'hostid'}.'_'.$backup->{'backupno'} .
275                                  qq{" value="} . $backup->{'hostid'}."_".$backup->{'backupno'} .                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .
276                                  qq{"></td>};                                  '"></td>';
277                  }                            }          
278                            
279                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
280                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .
281                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .
282                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '<td>' .                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
283                            '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
284                            '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
285                          '</tr>';                          '</tr>';
286          }          }
287    
# Line 268  EOF3 Line 294  EOF3
294          return $retHTML;          return $retHTML;
295  }        }      
296    
297  sub displayGrid($$$$) {  sub displayGrid($$) {
298          my ($where, $addForm, $offset, $hilite) = @_;          my ($param, $addForm) = @_;
299    
300            my $offset = $param->{'offset'};
301            my $hilite = $param->{'search_filename'};
302    
303          my $retHTML = "";          my $retHTML = "";
304    
305            my $start_t = time();
306    
307            my ($results, $files) = getFiles($param, $offset);
308    
309            my $dur_t = time() - $start_t;
310            my $dur = sprintf("%0.4fs", $dur_t);
311    
312            my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
313    
314            if ($results <= 0) {
315                    $retHTML .= qq{
316                            <p style="color: red;">No results found...</p>
317                    };
318                    return $retHTML;
319            } else {
320                    # DEBUG
321                    #use Data::Dumper;
322                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
323            }
324    
325    
326          if ($addForm) {          if ($addForm) {
327                  $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};                  $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};
328                  $retHTML.= qq{<input type="hidden" value="search" name="action">};                  $retHTML.= qq{<input type="hidden" value="search" name="action">};
329                  $retHTML .= qq{<input type="hidden" value="results" name="search_results">};                  $retHTML .= qq{<input type="hidden" value="results" name="search_results">};
330          }          }
331    
         my ($results, $files) = getFiles($where, $offset);  
   
         my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);  
332    
333          $retHTML .= qq{          $retHTML .= qq{
334          <br/>Found $results files, showing $from - $to          <div>
335          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
336                  <tr>          </div>
337                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
338                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
339                  <td class="tableheader">Type</td>                  <td align="center">Share</td>
340                  <td class="tableheader">#</td>                  <td align="center">Type and Name</td>
341                  <td class="tableheader">Size</td>                  <td align="center">#</td>
342                  <td class="tableheader">Date</td>                  <td align="center">Size</td>
343                  <td class="tableheader">Media</td>                  <td align="center">Date</td>
344                    <td align="center">Media</td>
345                  </tr>                  </tr>
346          };          };
347    
# Line 313  sub displayGrid($$$$) { Line 362  sub displayGrid($$$$) {
362    
363          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
364                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
365                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
366    
367                  foreach my $v ((                  $retHTML .=
368                          $file->{'sharename'},                          qq{<td class="fviewborder" align="right">} . $file->{'sharename'} . qq{</td>} .
369                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                          qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ) . qq{</td>} .
370                          $typeStr,                          qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupno'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'fpath'} )}, $file->{'backupno'} ) . qq{</td>} .
371                          restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
372                          $file->{'size'},                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
373                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder">} . $file->{'dvd'} . qq{</td>};
                         $file->{'dvd'}  
                 )) {  
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
374    
375                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
376          }          }
Legend:
Removed from v.51  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26