/[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 9 by dpavlin, Thu Jun 23 12:36:22 2005 UTC revision 171 by dpavlin, Mon Oct 10 14:32:31 2005 UTC
# Line 4  package BackupPC::SearchLib; Line 4  package BackupPC::SearchLib;
4  use strict;  use strict;
5  use BackupPC::CGI::Lib qw(:all);  use BackupPC::CGI::Lib qw(:all);
6  use BackupPC::Attrib qw(:all);  use BackupPC::Attrib qw(:all);
 use Data::Dumper;  
7  use DBI;  use DBI;
8    use DateTime;
9    use vars qw(%In $MyURL);
10    use Time::HiRes qw/time/;
11    
12    my $on_page = 100;
13    my $pager_pages = 10;
14    
15    my $dsn = $Conf{SearchDSN};
16    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      my $tmp;  
30      my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $dbh = get_dbh();
31          "", "", { RaiseError => 1, AutoCommit => 1 } );          my $sth = $dbh->prepare(qq{
32      my $st =                  SELECT
33        $dbh->prepare(                          shares.id       as id,
34          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");                          hosts.name || ':' || shares.name as share
35      $st->execute();                  FROM shares
36      push (@ret, { 'ID' => '', 'name' => '-'});                  JOIN hosts on hostid = hosts.id
37      while ( $tmp = $st->fetchrow_hashref() ) {                  ORDER BY share
38          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );          } );
39      }          $sth->execute();
40      $dbh->disconnect();          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
41      return @ret;  
42            while ( my $row = $sth->fetchrow_hashref() ) {
43                    push @ret, $row;
44            }
45            return @ret;
46    }
47    
48    sub epoch_to_iso {
49            my $t = shift || return;
50            my $iso = BackupPC::Lib::timeStamp(undef, $t);
51            $iso =~ s/\s/ /g;
52            return $iso;
53    }
54    
55    sub dates_from_form($) {
56            my $param = shift || return;
57    
58            sub mk_epoch_date($$) {
59                    my ($name,$suffix) = @_;
60    
61                    my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
62                    my $mm .= $param->{ $name . '_month_' . $suffix} ||
63                            ( $suffix eq 'from' ? 1 : 12);
64                    my $dd .= $param->{ $name . '_day_' . $suffix} ||
65                            ( $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(
72                            year => $yyyy,
73                            month => $mm,
74                            day => $dd
75                    );
76                    print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
77                    return $dt->epoch || 'NULL';
78            }
79    
80            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($) {  sub getWhere($) {
93      my ($param)    = @_;          my $param = shift || return;
94      my $retSQL     = "";  
95      my @conditions = ();          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
96      my $cond;  
97            my @conditions;
98                push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
99              push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
100                push @conditions, qq{ files.date >= $files_from } if ($files_from);
101      if ( defined( $param->{'search_backup_day_from'} ) && $param->{'search_backup_day_from'} ne "") {          push @conditions, qq{ files.date <= $files_to } if ($files_to);
102          push( @conditions,  
103              ' strftime("%d", datetime(backups.date, "unixepoch","localtime")) >= "'          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
104                . $param->{'search_backup_day_from'} ."\"");  
105      }          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
106      if ( defined( $param->{'search_backup_day_to'} ) && $param->{'search_backup_day_to'} ne "") {          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
107          push( @conditions,  
108              ' strftime("%d", datetime(backups.date, "unixepoch","localtime")) <= "'          return join(" and ", @conditions);
109                . $param->{'search_backup_day_from'}  ."\"");  }
110      }  
111      if ( defined( $param->{'search_backup_month_from'} ) && $param->{'search_backup_month_from'} ne "") {  
112          push( @conditions,  sub getFiles($) {
113              ' strftime("%m", datetime(backups.date, "unixepoch","localtime")) >= "'          my ($param) = @_;
114                . $param->{'search_backup_month_from'}  ."\"");  
115      }          my $offset = $param->{'offset'} || 0;
116      if ( defined( $param->{'search_backup_month_to'} ) && $param->{'search_backup_month_to'} ne "") {          $offset *= $on_page;
117          push( @conditions,  
118              ' strftime("%m", datetime(backups.date, "unixepoch","localtime")) <= "'          my $dbh = get_dbh();
119                . $param->{'search_backup_month_to'}  ."\"");  
120      }          my $sql_cols = qq{
121      if ( defined( $param->{'search_backup_year_from'} ) && $param->{'search_backup_year_from'} ne "") {                  files.id                        AS fid,
122          push( @conditions,                  hosts.name                      AS hname,
123              ' strftime("%Y", datetime(backups.date, "unixepoch","localtime")) >= "'                  shares.name                     AS sname,
124                . $param->{'search_backup_year_from'}  ."\"");                  files.backupnum                 AS backupnum,
125      }                  files.path                      AS filepath,
126      if ( defined( $param->{'search_backup_year_to'} ) && $param->{'search_backup_year_to'} ne "") {                  files.date                      AS date,
127          push( @conditions,                  files.type                      AS type,
128              ' strftime("%Y", datetime(backups.date, "unixepoch","localtime")) <= "'                  files.size                      AS size
               . $param->{'search_backup_year_to'}  ."\"");  
     }  
   
     if ( defined( $param->{'search_day_from'} )   && $param->{'search_day_from'} ne "" ) {  
         push( @conditions,  
             ' strftime("%d", datetime(files.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_day_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_month_from'} ) && $param->{'search_month_from'} ne "") {  
         push( @conditions,  
             ' strftime("%m", datetime(files.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_month_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_year_from'} ) && $param->{'search_year_from'} ne "") {  
         push( @conditions,  
             ' strftime("%Y", datetime(files.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_year_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_day_to'} )   && $param->{'search_day_to'} ne "" ) {  
         push( @conditions,  
             ' strftime("%d", datetime(files.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_day_to'}  ."\"");  
     }  
     if ( defined( $param->{'search_month_to'} ) && $param->{'search_month_to'} ne "" ) {  
         push( @conditions,  
             ' strftime("%m", datetime(files.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_month_to'} ."\"" );  
     }  
     if ( defined( $param->{'search_year_to'} )&& $param->{'search_year_to'} ne "" )  {  
         push( @conditions,  
             ' strftime("%Y", datetime(files.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_year_to'} ."\"");  
     }  
   
     if ( defined( $param->{'search_host'} ) && $param->{'search_host'} ne "") {  
       push( @conditions, ' backups.hostID = ' . $param->{'search_host'} );  
     }  
   
     if ( defined ($param->{'search_filename'}) && $param->{'search_filename'} ne "") {  
         push (@conditions, " files.name LIKE '".$param->{'search_filename'}."%'");  
         }  
       
     $retSQL = "";  
     foreach $cond(@conditions)  
       {  
           if ($retSQL ne "")  
             {  
                 $retSQL .= " AND ";  
             }  
           $retSQL .= $cond;  
       }        
   
       
     return $retSQL;  
 }  
   
 sub getFiles($$)  
   {  
       my ($where, $offset) = @_;  
         
         
       my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",  
         "", "", { RaiseError => 1, AutoCommit => 1 } );  
       my $sql =            
         q{    
               SELECT files.id                       AS fid,  
                      hosts.name                     AS hname,  
                      shares.name                    AS sname,  
                      shares.share                   AS sharename,  
                      backups.num                    AS backupNum,  
                      files.name                     AS filename,  
                      files.path                     AS filepath,  
                      shares.share||files.fullpath AS networkPath,  
                      date(files.date, 'unixepoch', 'localtime') AS date,  
                      files.type                     AS filetype,  
                      files.size                     AS size,  
                      dvds.name                      AS dvd  
                   FROM  
                      files  
                         INNER JOIN shares  ON files.shareID=shares.ID  
                         INNER JOIN hosts   ON hosts.ID = shares.hostID  
                         INNER JOIN backups ON backups.hostID = hosts.ID  
                         LEFT  JOIN dvds    ON dvds.ID = files.dvdid  
               
           };  
   
       if (defined($where) && $where ne "")  
         {  
             $sql .= " WHERE ". $where;        
         }  
   
       $sql .=  
         q{            
             ORDER BY files.id  
               LIMIT 100  
               OFFSET ? * 100 + 1  
129          };          };
130          
131                  my $sql_from = qq{
132                          FROM files
133        my $st = $dbh->prepare(                          INNER JOIN shares       ON files.shareID=shares.ID
134            $sql                          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 = files.shareID
136        if (!defined($offset) && $offset ne "")          };
137        {  
138          $st->bind_param(1, $offset);          my $sql_where;
139        }          my $where = getWhere($param);
140        else          $sql_where = " WHERE ". $where if ($where);
141        {  
142          $st->bind_param(1,0);          my $sql_order = qq{
143        }                  ORDER BY files.date
144        $st->execute;                  LIMIT $on_page
145                          OFFSET ?
146        my @ret = ();          };
147        my $tmp;  
148                  my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
149        while ($tmp = $st->fetchrow_hashref())          my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
150          {  
151              push(@ret, {          my $sth = $dbh->prepare($sql_count);
152                             'hname'       => $tmp->{'hname'},          $sth->execute();
153                             'sname'       => $tmp->{'sname'},          my ($results) = $sth->fetchrow_array();
154                             'sharename'   => $tmp->{'sharename'},  
155                             'backupno'    => $tmp->{'backupNum'},          $sth = $dbh->prepare($sql_results);
156                             'fname'       => $tmp->{'filename'},          $sth->execute( $offset );
157                             'fpath'       => $tmp->{'filepath'},  
158                             'networkpath' => $tmp->{'networkPath'},          if ($sth->rows != $results) {
159                             'date'        => $tmp->{'date'},                  my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
160                             'type'        => $tmp->{'filetype'},                  $bug =~ s/\s+/ /gs;
161                             'size'        => $tmp->{'size'},                  print STDERR "$bug\n";
                            'id'          => $tmp->{'fid'},  
                            'dvd'         => $tmp->{'dvd'}  
                        }  
             );  
                                   
162          }          }
163    
164            my @ret;
165                
166        $st->finish();          while (my $row = $sth->fetchrow_hashref()) {
167        $dbh->disconnect();                  push @ret, $row;
       return @ret;  
   }  
   
 sub getBackupsNotBurned()  
   {  
       my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",  
         "", "", { RaiseError => 1, AutoCommit => 1 } );        
       my $sql = q{  
           SELECT  
             hosts.ID         AS hostID,  
             hosts.name       AS host,  
             backups.num      AS backupno,  
             backups.type     AS type,  
             backups.date     AS date  
           FROM backups, shares, files, hosts  
           WHERE  
             backups.num    = files.backupNum  AND  
             shares.ID      = files.shareID    AND            
             backups.hostID = shares.hostID    AND  
             hosts.ID       = backups.hostID   AND  
             files.dvdid    IS NULL  
           GROUP BY  
             backups.hostID, backups.num  
       };  
       my $st = $dbh -> prepare( $sql );  
       my @ret = ();  
       $st -> execute();  
   
       while ( my $tmp = $st -> fetchrow_hashref() )  
         {            
             push(@ret, {  
                          'host'     => $tmp->{'host'},  
                          'hostid'   => $tmp->{'hostID'},  
                          'backupno' => $tmp->{'backupno'},  
                          'type'     => $tmp->{'type'},  
                          'date'     => $tmp->{'date'}  
                        }  
             );  
168          }          }
169              
170        return @ret;                $sth->finish();
171    }          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 displayBackupsGrid()  sub getBackupsNotBurned() {
328    {  
329        my $retHTML = "";          my $dbh = get_dbh();
330        my $addForm = 1;  
331            my $sql = q{
332                    SELECT
333                            backups.hostID AS hostID,
334                            hosts.name AS host,
335                            shares.name AS share,
336                            backups.num AS backupnum,
337                            backups.type AS type,
338                            backups.date AS date,
339                            backups.size AS size,
340                            backups.id AS id,
341                            backups.inc_size AS inc_size
342                    FROM backups
343                    INNER JOIN shares       ON backups.shareID=shares.ID
344                    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 );
361            my @ret;
362            $sth->execute();
363    
364            while ( my $row = $sth->fetchrow_hashref() ) {
365                    $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
366                    $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;
371            }
372                
373        if ($addForm)          return @ret;      
374          {  }
375    
376    sub displayBackupsGrid() {
377    
378            my $retHTML .= q{
379                    <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    FORM>DIV#fixedBox {
400            position: fixed !important;
401            left: 0.5em !important;
402            top: auto !important;
403            bottom: 1em !important;
404            width: 15% !important;
405    }
406    
407    DIV#fixedBox INPUT[type=text], DIV#fixedBox TEXTAREA {
408            border: 1px solid #00C000;
409    }
410    
411    DIV#fixedBox #note {
412            display: block;
413            width: 100%;
414    }
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              $retHTML .= <<EOF3;  * HTML DIV#fixedBox {
434  <script language="javascript" type="text/javascript">          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      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>        
489  EOF3  EOF3
490                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=burn\"";  
491                $retHTML.= q{<input type="hidden" value="burn" name="action">};          # take maximum archive size from configuration
492                $retHTML .= q{<input type="hidden" value="results" name="search_results">};          $retHTML .= 'var media_size = '. $Conf{MaxArchiveSize} .';';
493          }  
494        $retHTML .= "<table style=\"fview\">";          $retHTML .= <<'EOF3';
495        $retHTML .= "<tr> ";  
496        if ($addForm)  function debug(msg) {
497          {  //      return; // Disable debugging
498              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";  
499          }          if (! debug_div) debug_div = document.getElementById('debug');
500        $retHTML .=  "<td class=\"tableheader\">Host</td> <td class=\"tableheader\">Backup no</td> <td class=\"tableheader\">Type</td> <td class=\"tableheader\">date</td></tr>";  
501        my @backups = getBackupsNotBurned();          // this will create debug div if it doesn't exist.
502        my $backup;          if (! debug_div) {
503                    debug_div = document.createElement('div');
504        if ($addForm)                  if (document.body) document.body.appendChild(debug_div);
505          {                  else debug_div = null;
506              $retHTML .= "<tr>";          }
507              $retHTML .= "<td colspan=7 style=\"tableheader\">";          if (debug_div) {
508              $retHTML .= "<input type=\"submit\" value=\"Burn selected backups on medium\" name=\"submitBurner\">";                  debug_div.appendChild(document.createTextNode(msg));
509              $retHTML .= "</td>";                  debug_div.appendChild(document.createElement("br"));
510              $retHTML .= "</tr>";          }
511                }
512          }  
513        foreach $backup(@backups)  
514          {  var element_id_cache = Array();
515              my $ftype = "";  
516                function element_id(name,element) {
517              $retHTML .= "<tr>";          if (! element_id_cache[name]) {
518              if ($addForm)                  element_id_cache[name] = self.document.getElementById(name);
519                {          }
520                    $retHTML .= "<td class=\"fview\"> <input type=\"checkbox\" name=\"fcb"          return element_id_cache[name];
521                      .$backup->{'hostid'}."_".$backup->{'backupno'}  }
522                    ."\" value=\"".$backup->{'hostid'}."_".$backup->{'backupno'}."\"> </td>";  
523                }      function checkAll(location) {
524                        var f = element_id('forma') || null;
525              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'host'} . "</td>";          if (!f) return false;
526              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'backupno'} . "</td>";  
527              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'type'} . "</td>";          var len = f.elements.length;
528              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'date'} . "<td>";          var check_all = element_id('allFiles');
529              $retHTML .= "</tr>";          var suma = check_all.checked ? (parseInt(f.elements['totalsize'].value) || 0) : 0;
530          }  
531        $retHTML .= "</table>";          for (var i = 0; i < len; i++) {
532        if ($addForm)                  var e = f.elements[i];
533         {                  if (e.name != 'all' && e.name.substr(0, 3) == 'fcb') {
534             $retHTML .= "</form>";                          if (check_all.checked) {
535         }                                  if (e.checked) continue;
536                                          var el = element_id("fss" + e.name.substr(3));
537        return $retHTML;                                  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  sub displayGrid($$$)                                  } else {
543    {                                          break;
544        my ($where, $addForm, $offset) = @_;                                  }
545        my $retHTML = "";                          } else {
546                                          e.checked = false;
547        if ($addForm)                          }
548          {                  }
549                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=search\"";          }
550                $retHTML.= q{<input type="hidden" value="search" name="action">};          update_sum(suma);
551                $retHTML .= q{<input type="hidden" value="results" name="search_results">};  }
552          }  
553        $retHTML .= "<table style=\"fview\">";  function update_sum(suma) {
554        $retHTML .= "<tr> ";          element_id('forma').elements['totalsize'].value = suma;
555        $retHTML .=  "<td class=\"tableheader\">Host</td> <td class=\"tableheader\">Name</td> <td class=\"tableheader\">Type</td> <td class=\"tableheader\">backup no.</td> <td class=\"tableheader\">size</td> <td class=\"tableheader\">date</td>  <td class=\"tableheader\">Media</td></tr>";          pbar_set(suma, media_size);
556        my @files = getFiles($where, $offset);          debug('total size: ' + suma);
557        my $file;  }
558    
559        foreach $file(@files)  function sumiraj(e) {
560          {          var suma = parseInt(element_id('forma').elements['totalsize'].value) || 0;
561              my $ftype = "";          var len = element_id('forma').elements.length;
562                        if (e) {
563              if ($file->{'type'} == BPC_FTYPE_DIR)                  var size = parseInt( element_id("fss" + e.name.substr(3)).value);
564                {                  if (e.checked) {
565                    $ftype = "dir";                          suma += size;
566                }                  } else {
567              else                          suma -= size;
568                {                  }
569                    $ftype = "file";          } else {
570                }                  suma = 0;
571              $retHTML .= "<tr>";                  for (var i = 0; i < len; i++) {
572              $retHTML .= "<td class=\"fviewborder\">" . $file->{'hname'} ."</td>";                          var e = element_id('forma').elements[i];
573              $retHTML .= "<td class=\"fviewborder\">" . $file->{'fname'} . "</td>";                          if (e.name != 'all' && e.checked && e.name.substr(0,3) == 'fcb') {
574              $retHTML .= "<td class=\"fviewborder\">" . $ftype . "</td>";                                  var el = element_id("fss" + e.name.substr(3));
575              $retHTML .= "<td class=\"fviewborder\">" . $file->{'backupno'} . "</td>";                                  if (el && el.value) suma += parseInt(el.value) || 0;
576              $retHTML .= "<td class=\"fviewborder\">" . $file->{'size'} . "</td>";                          }
577              $retHTML .= "<td class=\"fviewborder\">" . $file->{'date'} . "</td>";                  }
578              $retHTML .= "<td class=\"fviewborder\">" . $file->{'dvd'} . "</td>";          }
579              $retHTML .= "</tr>";          update_sum(suma);
580          }          return suma;
581        $retHTML .= "</table>";  }
582    
583          /* progress bar */
584    
585        $retHTML .= "<INPUT TYPE=\"hidden\" VALUE=\"\" NAME=\"offset\">";  var _pbar_width = null;
586        for (my $ii = 1; $ii <= $#files; $ii++)  var _pbar_warn = 10;    // change color in last 10%
587        {  
588            $retHTML .= "<a href = \"#\" onclick=\"document.forma.offset.value=$ii;document.forma.submit();\">$ii</a>";  function pbar_reset() {
589            if ($ii < $#files)          element_id("mask").style.left = "0px";
590              {          _pbar_width = element_id("mContainer").offsetWidth - 2;
591                  $retHTML .= " | ";          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         if ($addForm)  
597         {  function dec2hex(d) {
598             $retHTML .= "</form>";          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($) {
742            my ($param) = @_;
743    
744            my $offset = $param->{'offset'};
745            my $hilite = $param->{'search_filename'};
746    
747            my $retHTML = "";
748    
749            my $start_t = time();
750    
751            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;
759            my $dur = sprintf("%0.4fs", $dur_t);
760    
761            my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
762    
763            if ($results <= 0) {
764                    $retHTML .= qq{
765                            <p style="color: red;">No results found...</p>
766                    };
767                    return $retHTML;
768            } else {
769                    # DEBUG
770                    #use Data::Dumper;
771                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
772            }
773    
774    
775            $retHTML .= qq{
776            <div>
777            Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
778            </div>
779            <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
780                    <tr class="fviewheader">
781                    <td></td>
782                    <td align="center">Share</td>
783                    <td align="center">Type and Name</td>
784                    <td align="center">#</td>
785                    <td align="center">Size</td>
786                    <td align="center">Date</td>
787                    <td align="center">Media</td>
788                    </tr>
789            };
790    
791            my $file;
792    
793            sub hilite_html($$) {
794                    my ($html, $search) = @_;
795                    $html =~ s#($search)#<b>$1</b>#gis;
796                    return $html;
797            }
798    
799            sub restore_link($$$$$$) {
800                    my $type = shift;
801                    my $action = 'RestoreFile';
802                    $action = 'browse' if (lc($type) eq 'dir');
803                    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 }) {
809                    $i++;
810    
811                    my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
812                    $retHTML .= qq{<tr class="fviewborder">};
813    
814                    $retHTML .= qq{<td class="fviewborder">$i</td>};
815    
816                    $retHTML .=
817                            qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
818                            qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
819                            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                            qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
821                            qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
822                            qq{<td class="fviewborder">} . '?' . qq{</td>};
823    
824                    $retHTML .= "</tr>";
825            }
826            $retHTML .= "</table>";
827    
828            # all variables which has to be transfered
829            foreach my $n (qw/search_day_from search_month_from search_year_from search_day_to search_month_to search_year_to search_backup_day_from search_backup_month_from search_backup_year_from search_backup_day_to search_backup_month_to search_backup_year_to search_filename offset/) {
830                    $retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
831            }
832    
833            my $del = '';
834            my $max_page = int( $results / $on_page );
835            my $page = 0;
836    
837            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;">';
854    
855            if ($offset > 0) {
856                    $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
857            }
858    
859            while ($page <= $max_page) {
860                    if ($page == $offset) {
861                            $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
862                    } else {
863                            $retHTML .= $del . page_link($param, $page, $page + 1);
864                    }
865    
866                    if ($page < $offset - $pager_pages && $page != 0) {
867                            $retHTML .= " ... ";
868                            $page = $offset - $pager_pages;
869                            $del = '';
870                    } elsif ($page > $offset + $pager_pages && $page != $max_page) {
871                            $retHTML .= " ... ";
872                            $page = $max_page;
873                            $del = '';
874                    } else {
875                            $del = ' | ';
876                            $page++;
877                    }
878            }
879    
880            if ($offset < $max_page) {
881                    $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
882            }
883    
884            $retHTML .= "</div>";
885    
886            return $retHTML;
887    }
888    
889  1;  1;
Legend:
Removed from v.9  
changed lines
  Added in v.171
  ViewVC Help
Powered by ViewVC 1.1.26