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