/[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 58 by dpavlin, Sun Aug 21 14:26:23 2005 UTC revision 197 by dpavlin, Thu Oct 13 18:33:00 2005 UTC
# Line 8  use DBI; Line 8  use DBI;
8  use DateTime;  use DateTime;
9  use vars qw(%In $MyURL);  use vars qw(%In $MyURL);
10  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
11    use XML::Writer;
12    use IO::File;
13    
14  my $on_page = 100;  my $on_page = 100;
15  my $pager_pages = 10;  my $pager_pages = 10;
# Line 15  my $pager_pages = 10; Line 17  my $pager_pages = 10;
17  my $dsn = $Conf{SearchDSN};  my $dsn = $Conf{SearchDSN};
18  my $db_user = $Conf{SearchUser} || '';  my $db_user = $Conf{SearchUser} || '';
19    
20    my $hest_index_path = $Conf{HyperEstraierIndex};
21    
22    my $dbh;
23    
24    sub get_dbh {
25            $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
26            return $dbh;
27    }
28    
29  sub getUnits() {  sub getUnits() {
30      my @ret = ();          my @ret;
31      my $tmp;  
32      my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
33      my $st =          my $sth = $dbh->prepare(qq{
34        $dbh->prepare(                  SELECT
35          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");                          shares.id       as id,
36      $st->execute();                          hosts.name || ':' || shares.name as share
37      push (@ret, { 'ID' => '', 'name' => '-'});                  FROM shares
38      while ( $tmp = $st->fetchrow_hashref() ) {                  JOIN hosts on hostid = hosts.id
39          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );                  ORDER BY share
40      }          } );
41      $dbh->disconnect();          $sth->execute();
42      return @ret;          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
43    
44            while ( my $row = $sth->fetchrow_hashref() ) {
45                    push @ret, $row;
46            }
47            return @ret;
48  }  }
49    
50  sub epoch_to_iso {  sub epoch_to_iso {
51          my $t = shift || return;          my $t = shift || return;
52          my $dt = DateTime->from_epoch( epoch => $t ) || return;          my $iso = BackupPC::Lib::timeStamp(undef, $t);
53  print STDERR "$t == ",$dt->epoch,"\n";          $iso =~ s/\s/ /g;
54          return $dt->ymd . ' ' . $dt->hms;          return $iso;
55  }  }
56    
57  sub getWhere($) {  sub dates_from_form($) {
58          my ($param)    = @_;          my $param = shift || return;
         my @conditions;  
59    
60          sub mk_epoch_date($$) {          sub mk_epoch_date($$) {
61                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
62    
63                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return;                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
64                  my $mm .= $param->{ $name . '_month_' . $suffix} ||                  my $mm .= $param->{ $name . '_month_' . $suffix} ||
65                          ( $suffix eq 'from' ? 1 : 12);                          ( $suffix eq 'from' ? 1 : 12);
66                  my $dd .= $param->{ $name . '_day_' . $suffix} ||                  my $dd .= $param->{ $name . '_day_' . $suffix} ||
67                          ( $suffix eq 'from' ? 1 : 31);                          ( $suffix eq 'from' ? 1 : 31);
68    
69                    $yyyy =~ s/\D//g;
70                    $mm =~ s/\D//g;
71                    $dd =~ s/\D//g;
72    
73                    my $h = my $m = my $s = 0;
74                    if ($suffix eq 'to') {
75                            $h = 23;
76                            $m = 59;
77                            $s = 59;
78                    }
79    
80                  my $dt = new DateTime(                  my $dt = new DateTime(
81                          year => $yyyy,                          year => $yyyy,
82                          month => $mm,                          month => $mm,
83                          day => $dd                          day => $dd,
84                            hour => $h,
85                            minute => $m,
86                            second => $s,
87                  );                  );
88                    print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
89                  return $dt->epoch || 'NULL';                  return $dt->epoch || 'NULL';
90          }          }
91    
92          my $backup_from = mk_epoch_date('search_backup', 'from');          my @ret = (
93                    mk_epoch_date('search_backup', 'from'),
94                    mk_epoch_date('search_backup', 'to'),
95                    mk_epoch_date('search', 'from'),
96                    mk_epoch_date('search', 'to'),
97            );
98    
99            return @ret;
100    
101    }
102    
103    
104    sub getWhere($) {
105            my $param = shift || return;
106    
107            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
108    
109            my @conditions;
110          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');  
111          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');  
112          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');  
113          push @conditions, qq{ files.date <= $files_to } if ($files_to);          push @conditions, qq{ files.date <= $files_to } if ($files_to);
114    
115          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(" and ",@conditions);
116        
117          push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
118            push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
119          push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});  
120            return join(" and ", @conditions);
         return (  
                 join(" and ", @conditions),  
                 $files_from, $files_to,  
                 $backup_from, $backup_to  
         );  
121  }  }
122    
123    
124  sub getFiles($$) {  sub getFiles($) {
125          my ($where, $offset) = @_;          my ($param) = @_;
126    
127          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $offset = $param->{'offset'} || 0;
128            $offset *= $on_page;
129    
130            my $dbh = get_dbh();
131    
132          my $sql_cols = qq{          my $sql_cols = qq{
133                  files.id                        AS fid,                  files.id                        AS fid,
134                  hosts.name                      AS hname,                  hosts.name                      AS hname,
135                  shares.name                     AS sname,                  shares.name                     AS sname,
136                  shares.share                    AS sharename,                  files.backupnum                 AS backupnum,
                 files.backupNum                 AS backupNum,  
                 files.name                      AS filename,  
137                  files.path                      AS filepath,                  files.path                      AS filepath,
                 shares.share||files.fullpath    AS networkPath,  
138                  files.date                      AS date,                  files.date                      AS date,
139                  files.type                      AS filetype,                  files.type                      AS type,
140                  files.size                      AS size,                  files.size                      AS size
         };  
   
         my $sql_dvd_cols = qq{  
                 dvds.name                       AS dvd  
141          };          };
142    
143          my $sql_from = qq{          my $sql_from = qq{
144                  FROM files                  FROM files
145                          INNER JOIN shares       ON files.shareID=shares.ID                          INNER JOIN shares       ON files.shareID=shares.ID
146                          INNER JOIN hosts        ON hosts.ID = shares.hostID                          INNER JOIN hosts        ON hosts.ID = shares.hostID
147                          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 = files.shareID
         };  
   
         my $sql_dvd_from = qq{  
                         LEFT  JOIN dvds         ON dvds.ID = files.dvdid  
148          };          };
149    
150          my $sql_where;          my $sql_where;
151            my $where = getWhere($param);
152          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
153    
154          my $sql_order = qq{          my $sql_order = qq{
155                  ORDER BY files.id                  ORDER BY files.date
156                          LIMIT $on_page                  LIMIT $on_page
157                          OFFSET ?                  OFFSET ?
158          };          };
159    
160          $offset ||= 0;          my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
161          $offset = ($offset * $on_page) + 1;          my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
162    
163          my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });          my $sth = $dbh->prepare($sql_count);
164          $sth->execute();          $sth->execute();
   
165          my ($results) = $sth->fetchrow_array();          my ($results) = $sth->fetchrow_array();
166    
167          $sth = $dbh->prepare(qq{ select $sql_cols $sql_dvd_cols $sql_from $sql_dvd_from $sql_where $sql_order });          $sth = $dbh->prepare($sql_results);
168          $sth->execute( $offset );          $sth->execute( $offset );
169    
170            if ($sth->rows != $results) {
171                    my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
172                    $bug =~ s/\s+/ /gs;
173                    print STDERR "$bug\n";
174            }
175    
176          my @ret;          my @ret;
177                
178          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
179                  push(@ret, {                  push @ret, $row;
                         'hname'         => $row->{'hname'},  
                         'sname'         => $row->{'sname'},  
                         'sharename'     => $row->{'sharename'},  
                         'backupno'      => $row->{'backupnum'},  
                         'fname'         => $row->{'filename'},  
                         'fpath'         => $row->{'filepath'},  
                         'networkpath'   => $row->{'networkpath'},  
                         'date'          => $row->{'date'},  
                         'type'          => $row->{'filetype'},  
                         'size'          => $row->{'size'},  
                         'id'            => $row->{'fid'},  
                         'dvd'           => $row->{'dvd'}  
                 });  
180          }          }
181              
182          $sth->finish();          $sth->finish();
         $dbh->disconnect();  
183          return ($results, \@ret);          return ($results, \@ret);
184  }  }
185    
186    sub getHyperEstraier_url($) {
187            my ($use_hest) = @_;
188    
189            return unless $use_hest;
190    
191            use HyperEstraier;
192            my ($index_path, $index_node_url);
193    
194            if ($use_hest =~ m#^http://#) {
195                    $index_node_url = $use_hest;
196            } else {
197                    $index_path = $TopDir . '/' . $index_path;
198                    $index_path =~ s#//#/#g;
199            }
200            return ($index_path, $index_node_url);
201    }
202    
203    sub getFilesHyperEstraier($) {
204            my ($param) = @_;
205    
206            my $offset = $param->{'offset'} || 0;
207            $offset *= $on_page;
208    
209            die "no index_path?" unless ($hest_index_path);
210    
211            use HyperEstraier;
212    
213            my ($index_path, $index_node_url) = getHyperEstraier_url($hest_index_path);
214    
215            # open the database
216            my $db;
217            if ($index_path) {
218                    $db = HyperEstraier::Database->new();
219                    $db->open($index_path, $HyperEstraier::ESTDBREADER);
220            } elsif ($index_node_url) {
221                    $db ||= HyperEstraier::Node->new($index_node_url);
222                    $db->set_auth('admin', 'admin');
223            } else {
224                    die "BUG: unimplemented";
225            }
226    
227            # create a search condition object
228            my $cond = HyperEstraier::Condition->new();
229    
230            my $q = $param->{'search_filename'};
231            my $shareid = $param->{'search_share'};
232    
233            if (length($q) > 0) {
234                    # exact match
235                    $cond->add_attr("filepath ISTRINC $q");
236    
237                    $q =~ s/(.)/$1 /g;
238                    # set the search phrase to the search condition object
239                    $cond->set_phrase($q);
240            }
241    
242            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
243    
244            $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
245            $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
246    
247            $cond->add_attr("date NUMGE $files_from") if ($files_from);
248            $cond->add_attr("date NUMLE $files_to") if ($files_to);
249    
250            $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
251    
252    #       $cond->set_max( $offset + $on_page );
253            $cond->set_options( $HyperEstraier::Condition::SURE );
254            $cond->set_order( 'date NUMA' );
255    
256            # get the result of search
257            my @res;
258            my ($result, $hits);
259    
260            if ($index_path) {
261                    $result = $db->search($cond, 0);
262                    $hits = $result->size;
263            } elsif ($index_node_url) {
264                    $result = $db->search($cond, 0);
265                    $hits = $result->doc_num;
266            } else {
267                    die "BUG: unimplemented";
268            }
269    
270            # for each document in result
271            for my $i ($offset .. ($offset + $on_page - 1)) {
272                    last if ($i >= $hits);
273    
274                    my $doc;
275                    if ($index_path) {
276                            my $id = $result->get($i);
277                            $doc = $db->get_doc($id, 0);
278                    } elsif ($index_node_url) {
279                            $doc = $result->get_doc($i);
280                    } else {
281                            die "BUG: unimplemented";
282                    }
283    
284                    my $row;
285                    foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
286                            $row->{$c} = $doc->attr($c);
287                    }
288                    push @res, $row;
289            }
290    
291            return ($hits, \@res);
292    }
293    
294    sub getGzipName($$$)
295    {
296            my ($host, $share, $backupnum) = @_;
297            my $ret = $Conf{GzipSchema};
298            
299            $share =~ s/\//_/g;
300            $ret =~ s/\\h/$host/ge;
301            $ret =~ s/\\s/$share/ge;
302            $ret =~ s/\\n/$backupnum/ge;
303    
304            $ret =~ s/__+/_/g;
305    
306            return $ret;
307            
308    }
309    
310    sub get_tgz_size_by_name($) {
311            my $name = shift;
312    
313            my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name;
314    
315            my $size = -1;
316    
317            if (-f $tgz) {
318                    $size = (stat($tgz))[7];
319            } elsif (-d $tgz) {
320                    opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";
321                    my @parts = grep { !/^\./ && -f "$tgz/$_" } readdir($dir);
322                    $size = 0;
323                    foreach my $part (@parts) {
324                            $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";
325                    }
326                    closedir $dir;
327            }
328    
329            return $size;
330    }
331    
332    sub getGzipSize($$)
333    {
334            my ($hostID, $backupNum) = @_;
335            my $sql;
336            my $dbh = get_dbh();
337            
338            $sql = q{
339                                    SELECT hosts.name  as host,
340                                               shares.name as share,
341                                               backups.num as backupnum
342                                    FROM hosts, backups, shares
343                                    WHERE shares.id=backups.shareid AND
344                                              hosts.id =backups.hostid AND
345                                              hosts.id=? AND
346                                              backups.num=?
347                            };
348            my $sth = $dbh->prepare($sql);
349            $sth->execute($hostID, $backupNum);
350    
351            my $row = $sth->fetchrow_hashref();
352    
353            return get_tgz_size_by_name(
354                    getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'})
355            );
356    }
357    
358  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
359    
360          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
361          my $sql = q{  
362          SELECT          my $sql = q{
363                  hosts.ID                AS hostid,                  SELECT
364                  min(hosts.name)         AS host,                          backups.hostID AS hostID,
365                  backups.num             AS backupno,                          hosts.name AS host,
366                  min(backups.type)       AS type,                          shares.name AS share,
367                  min(backups.date)       AS date                          backups.num AS backupnum,
368          FROM backups, shares, files, hosts                          backups.type AS type,
369          WHERE                          backups.date AS date,
370                  backups.num     = files.backupNum       AND                          backups.size AS size,
371                  shares.ID       = files.shareID         AND                                  backups.id AS id,
372                  backups.hostID  = shares.hostID         AND                          backups.inc_size AS inc_size,
373                  hosts.ID        = backups.hostID        AND                          backups.parts AS parts
374                  files.dvdid     IS NULL                  FROM backups
375          GROUP BY                  INNER JOIN shares       ON backups.shareID=shares.ID
376                  backups.hostID, backups.num, hosts.id                  INNER JOIN hosts        ON backups.hostID = hosts.ID
377          ORDER BY min(backups.date)                  LEFT OUTER JOIN archive_backup ON archive_backup.backup_id = backups.id
378                    WHERE backups.inc_size > 0 AND backups.inc_deleted is false AND archive_backup.backup_id IS NULL
379                    GROUP BY
380                            backups.hostID,
381                            hosts.name,
382                            shares.name,
383                            backups.num,
384                            backups.shareid,
385                            backups.id,
386                            backups.type,
387                            backups.date,
388                            backups.size,
389                            backups.inc_size,
390                            backups.parts
391                    ORDER BY backups.date
392          };          };
393          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
394          my @ret;          my @ret;
395          $sth->execute();          $sth->execute();
396    
397          while ( my $row = $sth->fetchrow_hashref() ) {                while ( my $row = $sth->fetchrow_hashref() ) {
398                  push(@ret, {                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
399                           'host'         => $row->{'host'},                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
400                           'hostid'       => $row->{'hostid'},  
401                           'backupno'     => $row->{'backupno'},                  # do some cluster calculation (approximate) and convert to kB
402                           'type'         => $row->{'type'},                  $row->{'inc_size'} = int(($row->{'inc_size'} + 1023 ) / ( 2 * 1024 ) * 2);
403                           'date'         => $row->{'date'},                  push @ret, $row;
                          'age'          => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),  
                        }  
                 );  
404          }          }
405                
406          return @ret;                return @ret;      
407  }  }
408    
409  sub displayBackupsGrid()  sub displayBackupsGrid() {
410    {  
411        my $retHTML = "";          my $retHTML .= q{
412        my $addForm = 1;                  <form id="forma" method="POST" action="}.$MyURL.q{?action=burn">
413                  };
414        if ($addForm) {  
415            $retHTML .= <<'EOF3';
416    <style type="text/css">
417    <!--
418    DIV#fixedBox {
419            position: absolute;
420            top: 50em;
421            left: -24%;
422            padding: 0.5em;
423            width: 20%;
424            background-color: #E0F0E0;
425            border: 1px solid #00C000;
426    }
427    
428    DIV#fixedBox, DIV#fixedBox INPUT, DIV#fixedBox TEXTAREA {
429            font-size: 10pt;
430    }
431    
432    FORM>DIV#fixedBox {
433            position: fixed !important;
434            left: 0.5em !important;
435            top: auto !important;
436            bottom: 1em !important;
437            width: 15% !important;
438    }
439    
440    DIV#fixedBox INPUT[type=text], DIV#fixedBox TEXTAREA {
441            border: 1px solid #00C000;
442    }
443    
444              $retHTML .= <<EOF3;  DIV#fixedBox #note {
445  <script language="javascript" type="text/javascript">          display: block;
446            width: 100%;
447    }
448    
449    DIV#fixedBox #submitBurner {
450            display: block;
451            width: 100%;
452            margin-top: 0.5em;
453            cursor: pointer;
454    }
455    
456    * HTML {
457            overflow-y: hidden;
458    }
459    
460    * HTML BODY {
461            overflow-y: auto;
462            height: 100%;
463            font-size: 100%;
464    }
465    
466    * HTML DIV#fixedBox {
467            position: absolute;
468    }
469    
470    #mContainer, #gradient, #mask, #progressIndicator {
471            display: block;
472            width: 100%;
473            font-size: 10pt;
474            font-weight: bold;
475            text-align: center;
476            vertical-align: middle;
477            padding: 1px;
478    }
479    
480    #gradient, #mask, #progressIndicator {
481            left: 0;
482            border-width: 1px;
483            border-style: solid;
484            border-color: #000000;
485            color: #404040;
486            margin: 0.4em;
487            position: absolute;
488            margin-left: -1px;
489            margin-top: -1px;
490            margin-bottom: -1px;
491            overflow: hidden;
492    }
493    
494    #mContainer {
495            display: block;
496            position: relative;
497            padding: 0px;
498            margin-top: 0.4em;
499            margin-bottom: 0.5em;
500    }
501    
502    #gradient {
503            z-index: 1;
504            background-color: #FFFF00;
505    }
506    
507    #mask {
508            z-index: 2;
509            background-color: #FFFFFF;
510    }
511    
512    #progressIndicator {
513            z-index: 3;
514            background-color: transparent;
515    }
516    
517    #parts {
518            padding: 0.4em;
519            display: none;
520            width: 100%;
521            font-size: 80%;
522            color: #ff0000;
523            text-align: center;
524    }
525    -->
526    </style>
527    <script type="text/javascript">
528  <!--  <!--
529    
530      function checkAll(location)  var debug_div = null;
     {  
       for (var i=0;i<document.forma.elements.length;i++)  
       {  
         var e = document.forma.elements[i];  
         if ((e.checked || !e.checked) && e.name != \'all\') {  
             if (eval("document.forma."+location+".checked")) {  
                 e.checked = true;  
             } else {  
                 e.checked = false;  
             }  
         }  
       }  
     }  
 //-->  
 </script>        
531  EOF3  EOF3
               $retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";  
               $retHTML.= q{<input type="hidden" value="burn" name="action">};  
               $retHTML .= q{<input type="hidden" value="results" name="search_results">};  
         }  
         $retHTML .= qq{<table style="fview"><tr>};  
   
         if ($addForm) {  
             $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";  
         }  
         $retHTML .=  qq{  
                 <td class="tableheader">Host</td>  
                 <td class="tableheader">Backup no</td>  
                 <td class="tableheader">Type</td>  
                 <td class="tableheader">date</td>  
                 <td class="tableheader">age/days</td>  
                 </tr>  
         };  
532    
533          my @backups = getBackupsNotBurned();          # take maximum archive size from configuration
534          my $backup;          $retHTML .= 'var media_size = '. $Conf{MaxArchiveSize} .';';
535    
536          if ($addForm) {          $retHTML .= <<'EOF3';
537                  $retHTML .= qq{  
538                          <tr><td colspan=7 style="tableheader">  function debug(msg) {
539                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">          return; // Disable debugging
540                          </td></tr>  
541                  };          if (! debug_div) debug_div = document.getElementById('debug');
542    
543            // this will create debug div if it doesn't exist.
544            if (! debug_div) {
545                    debug_div = document.createElement('div');
546                    if (document.body) document.body.appendChild(debug_div);
547                    else debug_div = null;
548          }          }
549            if (debug_div) {
550                    debug_div.appendChild(document.createTextNode(msg));
551                    debug_div.appendChild(document.createElement("br"));
552            }
553    }
554    
         foreach $backup(@backups) {  
555    
556                  my $ftype = "";  var element_id_cache = Array();
557                
558                  $retHTML .= "<tr>";  function element_id(name,element) {
559                  if ($addForm) {          if (! element_id_cache[name]) {
560                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .                  element_id_cache[name] = self.document.getElementById(name);
                                 $backup->{'hostid'}.'_'.$backup->{'backupno'} .  
                                 '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .  
                                 '"></td>';  
                 }            
               
                 $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .  
                         '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .  
                         '<td class="fviewborder">' . $backup->{'type'} . '</td>' .  
                         '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .  
                         '<td class="fviewborder">' . $backup->{'age'} . '</td>' .  
                         '</tr>';  
561          }          }
562            return element_id_cache[name];
563    }
564    
565          $retHTML .= "</table>";  function checkAll(location) {
566            var f = element_id('forma') || null;
567            if (!f) return false;
568    
569            var len = f.elements.length;
570            var check_all = element_id('allFiles');
571            var suma = check_all.checked ? (parseInt(f.elements['totalsize'].value) || 0) : 0;
572    
573            for (var i = 0; i < len; i++) {
574                    var e = f.elements[i];
575                    if (e.name != 'all' && e.name.substr(0, 3) == 'fcb') {
576                            if (check_all.checked) {
577                                    if (e.checked) continue;
578                                    var el = element_id("fss" + e.name.substr(3));
579                                    var size = parseInt(el.value) || 0;
580                                    debug('suma: '+suma+' size: '+size);
581                                    if ((suma + size) < media_size) {
582                                            suma += size;
583                                            e.checked = true;
584                                    } else {
585                                            break;
586                                    }
587                            } else {
588                                    e.checked = false;
589                            }
590                    }
591            }
592            update_sum(suma);
593    }
594    
595          if ($addForm) {  function update_sum(suma, suma_disp) {
596                  $retHTML .= "</form>";          if (! suma_disp) suma_disp = suma;
597            element_id('forma').elements['totalsize'].value = suma_disp;
598            pbar_set(suma, media_size);
599            debug('total size: ' + suma);
600    }
601    
602    function sumiraj(e) {
603            var suma = parseInt(element_id('forma').elements['totalsize'].value) || 0;
604            var len = element_id('forma').elements.length;
605            if (e) {
606                    var size = parseInt( element_id("fss" + e.name.substr(3)).value);
607                    if (e.checked) {
608                            suma += size;
609                    } else {
610                            suma -= size;
611                    }
612    
613                    var parts = parseInt( element_id("prt" + e.name.substr(3)).value);
614                    if (suma > media_size && suma == size && parts > 1) {
615                            element_id("parts").innerHTML = "This will take "+parts+" mediums!";
616                            element_id("parts").style.display = 'block';
617                            update_sum(media_size, suma);
618                            suma = media_size;
619                            return suma;
620                    } else {
621                            element_id("parts").style.display = 'none';
622                    }
623    
624                    if (suma < 0) suma = 0;
625            } else {
626                    suma = 0;
627                    for (var i = 0; i < len; i++) {
628                            var e = element_id('forma').elements[i];
629                            if (e.name != 'all' && e.checked && e.name.substr(0,3) == 'fcb') {
630                                    var el = element_id("fss" + e.name.substr(3));
631                                    if (el && el.value) suma += parseInt(el.value) || 0;
632                            }
633                    }
634          }          }
635            update_sum(suma);
636            return suma;
637    }
638    
639    /* progress bar */
640    
641    var _pbar_width = null;
642    var _pbar_warn = 10;    // change color in last 10%
643    
644    function pbar_reset() {
645            element_id("mask").style.left = "0px";
646            _pbar_width = element_id("mContainer").offsetWidth - 2;
647            element_id("mask").style.width = _pbar_width + "px";
648            element_id("mask").style.display = "block";
649            element_id("progressIndicator").style.zIndex  = 10;
650            element_id("progressIndicator").innerHTML = "0";
651    }
652    
653    function dec2hex(d) {
654            var hch = '0123456789ABCDEF';
655            var a = d % 16;
656            var q = (d - a) / 16;
657            return hch.charAt(q) + hch.charAt(a);
658    }
659    
660    function pbar_set(amount, max) {
661            debug('pbar_set('+amount+', '+max+')');
662    
663            if (_pbar_width == null) {
664                    var _mc = element_id("mContainer");
665                    if (_pbar_width == null) _pbar_width = parseInt(_mc.offsetWidth ? (_mc.offsetWidth - 2) : 0) || null;
666                    if (_pbar_width == null) _pbar_width = parseInt(_mc.clientWidth ? (_mc.clientWidth + 2) : 0) || null;
667                    if (_pbar_width == null) _pbar_width = 0;
668            }
669    
670            var pcnt = Math.floor(amount * 100 / max);
671            var p90 = 100 - _pbar_warn;
672            var pcol = pcnt - p90;
673            if (Math.round(pcnt) <= 100) {
674                    if (pcol < 0) pcol = 0;
675                    var e = element_id("submitBurner");
676                    debug('enable_button');
677                    e.disabled = false;
678                    var a = e.getAttributeNode('disabled') || null;
679                    if (a) e.removeAttributeNode(a);
680            } else {
681                    debug('disable button');
682                    pcol = _pbar_warn;
683                    var e = element_id("submitBurner");
684                    if (!e.disabled) e.disabled = true;
685            }
686            var col_g = Math.floor((_pbar_warn - pcol) * 255 / _pbar_warn);
687            var col = '#FF' + dec2hex(col_g) + '00';
688    
689            //debug('pcol: '+pcol+' g:'+col_g+' _pbar_warn:'+ _pbar_warn + ' color: '+col);
690            element_id("gradient").style.backgroundColor = col;
691    
692            element_id("progressIndicator").innerHTML = pcnt + '%';
693            //element_id("progressIndicator").innerHTML = amount;
694    
695            element_id("mask").style.clip = 'rect(' + Array(
696                    '0px',
697                    element_id("mask").offsetWidth + 'px',
698                    element_id("mask").offsetHeight + 'px',
699                    Math.round(_pbar_width * amount / max) + 'px'
700            ).join(' ') + ')';
701    }
702    
703    if (!self.body) self.body = new Object();
704    self.onload = self.document.onload = self.body.onload = function() {
705            //pbar_reset();
706            sumiraj();
707    };
708    
709    // -->
710    </script>
711    <div id="fixedBox">
712    
713    Size: <input type="text" name="totalsize" size="7" readonly="readonly" style="text-align:right;" value="0" /> kB
714    
715    <div id="mContainer">
716            <div id="gradient">&nbsp;</div>
717            <div id="mask">&nbsp;</div>
718            <div id="progressIndicator">0%</div>
719    </div>
720    <br/>
721    
722    <div id="parts">&nbsp;</div>
723    
724    Note:
725    <textarea name="note" cols="10" rows="5" id="note"></textarea>
726    
727    <input type="submit" id="submitBurner" value="Burn selected" name="submitBurner" />
728    
729    </div>
730    <!--
731    <div id="debug" style="float: right; width: 10em; border: 1px #ff0000 solid; background-color: #ffe0e0; -moz-opacity: 0.7;">
732    no debug output yet
733    </div>
734    -->
735    EOF3
736            $retHTML .= q{
737                            <input type="hidden" value="burn" name="action">
738                            <input type="hidden" value="results" name="search_results">
739                            <table style="fview" border="0" cellspacing="0" cellpadding="2">
740                            <tr class="tableheader">
741                            <td class="tableheader">
742                                    <input type="checkbox" name="allFiles" id="allFiles" onClick="checkAll('allFiles');">
743                            </td>
744                            <td align="center">Share</td>
745                            <td align="center">Backup no</td>
746                            <td align="center">Type</td>
747                            <td align="center">date</td>
748                            <td align="center">age/days</td>
749                            <td align="center">size/MB</td>
750                            <td align="center">gzip size/kB</td>
751                            </tr>
752    
753            };
754    
755            my @color = (' bgcolor="#e0e0e0"', '');
756    
757            my $i = 0;
758            my $host = '';
759    
760            foreach my $backup ( getBackupsNotBurned() ) {
761    
762                    if ($host ne $backup->{'host'}) {
763                            $i++;
764                            $host = $backup->{'host'};
765                    }
766                    my $ftype = "";
767    
768                    my $checkbox_key = $backup->{'hostid'}. '_' .$backup->{'backupnum'} . '_' . $backup->{'id'};
769    
770                    $retHTML .=
771                            '<tr' . $color[$i %2 ] . '>
772                            <td class="fview">';
773    
774                    if (($backup->{'inc_size'} || 0) > 0) {
775                            $retHTML .= '
776                            <input type="checkbox" name="fcb' . $checkbox_key . '" value="' . $checkbox_key . '" onClick="sumiraj(this);">';
777                    }
778    
779                    $retHTML .=
780                            '</td>' .
781                            '<td align="right">' . $backup->{'host'} . ':' . $backup->{'share'} . '</td>' .
782                            '<td align="center">' . $backup->{'backupnum'} . '</td>' .
783                            '<td align="center">' . $backup->{'type'} . '</td>' .
784                            '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
785                            '<td align="center">' . $backup->{'age'} . '</td>' .
786                            '<td align="right">' . $backup->{'size'} . '</td>' .
787                            '<td align="right">' . $backup->{'inc_size'} .
788                            '<input type="hidden" id="fss'.$checkbox_key .'" value="'. $backup->{'inc_size'} .'"></td>' .
789                            '<input type="hidden" id="prt'.$checkbox_key .'" value="'. $backup->{'parts'} .'"></td>' .
790    
791                            "</tr>\n";
792            }
793    
794            $retHTML .= "</table>";
795            $retHTML .= "</form>";
796                
797          return $retHTML;          return $retHTML;
798  }        }      
799    
800  sub displayGrid($$$$) {  sub displayGrid($) {
801          my ($where, $addForm, $offset, $hilite) = @_;          my ($param) = @_;
802    
803            my $offset = $param->{'offset'};
804            my $hilite = $param->{'search_filename'};
805    
806          my $retHTML = "";          my $retHTML = "";
807    
         if ($addForm) {  
                 $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};  
                 $retHTML.= qq{<input type="hidden" value="search" name="action">};  
                 $retHTML .= qq{<input type="hidden" value="results" name="search_results">};  
         }  
   
808          my $start_t = time();          my $start_t = time();
809    
810          my ($results, $files) = getFiles($where, $offset);          my ($results, $files);
811            if ($param->{'use_hest'} && length($hilite) > 0) {
812                    ($results, $files) = getFilesHyperEstraier($param);
813            } else {
814                    ($results, $files) = getFiles($param);
815            }
816    
817          my $dur_t = time() - $start_t;          my $dur_t = time() - $start_t;
818          my $dur = sprintf("%0.4fs", $dur_t);          my $dur = sprintf("%0.4fs", $dur_t);
819    
820          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
821    
822            if ($results <= 0) {
823                    $retHTML .= qq{
824                            <p style="color: red;">No results found...</p>
825                    };
826                    return $retHTML;
827            } else {
828                    # DEBUG
829                    #use Data::Dumper;
830                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
831            }
832    
833    
834          $retHTML .= qq{          $retHTML .= qq{
835          <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <div>
836          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
837                  <tr>          </div>
838                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
839                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
840                  <td class="tableheader">Type</td>                  <td></td>
841                  <td class="tableheader">#</td>                  <td align="center">Share</td>
842                  <td class="tableheader">Size</td>                  <td align="center">Type and Name</td>
843                  <td class="tableheader">Date</td>                  <td align="center">#</td>
844                  <td class="tableheader">Media</td>                  <td align="center">Size</td>
845                    <td align="center">Date</td>
846                    <td align="center">Media</td>
847                  </tr>                  </tr>
848          };          };
849    
# Line 334  sub displayGrid($$$$) { Line 862  sub displayGrid($$$$) {
862                  return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);                  return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
863          }          }
864    
865            my $i = $offset * $on_page;
866    
867          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
868                    $i++;
869    
870                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
871                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
872    
873                  foreach my $v ((                  $retHTML .= qq{<td class="fviewborder">$i</td>};
874                          $file->{'sharename'},  
875                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                  $retHTML .=
876                          $typeStr,                          qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
877                          restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),                          qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
878                          $file->{'size'},                          qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{</td>} .
879                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
880                          $file->{'dvd'}                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
881                  )) {                          qq{<td class="fviewborder">} . '?' . qq{</td>};
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
882    
883                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
884          }          }
# Line 363  sub displayGrid($$$$) { Line 893  sub displayGrid($$$$) {
893          my $max_page = int( $results / $on_page );          my $max_page = int( $results / $on_page );
894          my $page = 0;          my $page = 0;
895    
896          my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';          sub page_link($$$) {
897                    my ($param,$page,$display) = @_;
898    
899                    $param->{'offset'} = $page;
900    
901                    my $html = '<a href = "' . $MyURL;
902                    my $del = '?';
903                    foreach my $k (keys %{ $param }) {
904                            if ($param->{$k}) {
905                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
906                                    $del = '&';
907                            }
908                    }
909                    $html .= '">' . $display . '</a>';
910            }
911    
912          $retHTML .= '<div style="text-align: center;">';          $retHTML .= '<div style="text-align: center;">';
913    
914          if ($offset > 0) {          if ($offset > 0) {
915                  $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';                  $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
916          }          }
917    
918          while ($page <= $max_page) {          while ($page <= $max_page) {
919                  if ($page == $offset) {                  if ($page == $offset) {
920                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
921                  } else {                  } else {
922                          $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);                          $retHTML .= $del . page_link($param, $page, $page + 1);
923                  }                  }
924    
925                  if ($page < $offset - $pager_pages && $page != 0) {                  if ($page < $offset - $pager_pages && $page != 0) {
# Line 393  sub displayGrid($$$$) { Line 937  sub displayGrid($$$$) {
937          }          }
938    
939          if ($offset < $max_page) {          if ($offset < $max_page) {
940                  $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');                  $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
941          }          }
942    
943          $retHTML .= "</div>";          $retHTML .= "</div>";
944    
         $retHTML .= "</form>" if ($addForm);  
   
945          return $retHTML;          return $retHTML;
946  }  }
947    
Legend:
Removed from v.58  
changed lines
  Added in v.197
  ViewVC Help
Powered by ViewVC 1.1.26