/[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 16 by dpavlin, Mon Jul 11 11:51:09 2005 UTC revision 121 by iklaric, Thu Sep 15 13:54:29 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 $index_path = $Conf{HyperEstraierIndex};
19    if ($index_path) {
20            $index_path = $TopDir . '/' . $index_path;
21            $index_path =~ s#//#/#g;
22    }
23    
24    my $dbh;
25    
26    sub get_dbh {
27            $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
28            return $dbh;
29    }
30    
31  sub getUnits() {  sub getUnits() {
32      my @ret = ();          my @ret;
33      my $tmp;  
34      my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $dbh = get_dbh();
35          "", "", { RaiseError => 1, AutoCommit => 1 } );          my $sth = $dbh->prepare(qq{
36      my $st =                  SELECT
37        $dbh->prepare(                          shares.id       as id,
38          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");                          hosts.name || ':' || shares.name as share
39      $st->execute();                  FROM shares
40      push (@ret, { 'ID' => '', 'name' => '-'});                  JOIN hosts on hostid = hosts.id
41      while ( $tmp = $st->fetchrow_hashref() ) {                  ORDER BY share
42          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );          } );
43      }          $sth->execute();
44      $dbh->disconnect();          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
45      return @ret;  
46            while ( my $row = $sth->fetchrow_hashref() ) {
47                    push @ret, $row;
48            }
49            return @ret;
50    }
51    
52    sub epoch_to_iso {
53            my $t = shift || return;
54            my $iso = BackupPC::Lib::timeStamp(undef, $t);
55            $iso =~ s/\s/ /g;
56            return $iso;
57    }
58    
59    sub dates_from_form($) {
60            my $param = shift || return;
61    
62            sub mk_epoch_date($$) {
63                    my ($name,$suffix) = @_;
64    
65                    my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
66                    my $mm .= $param->{ $name . '_month_' . $suffix} ||
67                            ( $suffix eq 'from' ? 1 : 12);
68                    my $dd .= $param->{ $name . '_day_' . $suffix} ||
69                            ( $suffix eq 'from' ? 1 : 31);
70    
71                    $yyyy =~ s/\D//g;
72                    $mm =~ s/\D//g;
73                    $dd =~ s/\D//g;
74    
75                    my $dt = new DateTime(
76                            year => $yyyy,
77                            month => $mm,
78                            day => $dd
79                    );
80                    print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
81                    return $dt->epoch || 'NULL';
82            }
83    
84            my @ret = (
85                    mk_epoch_date('search_backup', 'from'),
86                    mk_epoch_date('search_backup', 'to'),
87                    mk_epoch_date('search', 'from'),
88                    mk_epoch_date('search', 'to'),
89            );
90    
91            return @ret;
92    
93  }  }
94    
95    
96  sub getWhere($) {  sub getWhere($) {
97      my ($param)    = @_;          my $param = shift || return;
     my $retSQL     = "";  
     my @conditions = ();  
     my $cond;  
98    
99                my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
     
       
     if ( defined( $param->{'search_backup_day_from'} ) && $param->{'search_backup_day_from'} ne "") {  
         push( @conditions,  
             ' strftime("%d", datetime(backups.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_backup_day_from'} ."\"");  
     }  
     if ( defined( $param->{'search_backup_day_to'} ) && $param->{'search_backup_day_to'} ne "") {  
         push( @conditions,  
             ' strftime("%d", datetime(backups.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_backup_day_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_backup_month_from'} ) && $param->{'search_backup_month_from'} ne "") {  
         push( @conditions,  
             ' strftime("%m", datetime(backups.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_backup_month_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_backup_month_to'} ) && $param->{'search_backup_month_to'} ne "") {  
         push( @conditions,  
             ' strftime("%m", datetime(backups.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_backup_month_to'}  ."\"");  
     }  
     if ( defined( $param->{'search_backup_year_from'} ) && $param->{'search_backup_year_from'} ne "") {  
         push( @conditions,  
             ' strftime("%Y", datetime(backups.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_backup_year_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_backup_year_to'} ) && $param->{'search_backup_year_to'} ne "") {  
         push( @conditions,  
             ' strftime("%Y", datetime(backups.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_backup_year_to'}  ."\"");  
     }  
100    
101      if ( defined( $param->{'search_day_from'} )   && $param->{'search_day_from'} ne "" ) {          my @conditions;
102          push( @conditions,          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
103              ' strftime("%d", datetime(files.date, "unixepoch","localtime")) >= "'          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
104                . $param->{'search_day_from'}  ."\"");          push @conditions, qq{ files.date >= $files_from } if ($files_from);
105      }          push @conditions, qq{ files.date <= $files_to } if ($files_to);
     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'} ."\"");  
     }  
106    
107      if ( defined( $param->{'search_host'} ) && $param->{'search_host'} ne "") {          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
       push( @conditions, ' backups.hostID = ' . $param->{'search_host'} );  
     }  
108    
109      if ( defined ($param->{'search_filename'}) && $param->{'search_filename'} ne "") {          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
110          push (@conditions, " files.name LIKE '".$param->{'search_filename'}."%'");          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
         }  
       
     $retSQL = "";  
     foreach $cond(@conditions)  
       {  
           if ($retSQL ne "")  
             {  
                 $retSQL .= " AND ";  
             }  
           $retSQL .= $cond;  
       }        
111    
112                return join(" and ", @conditions);
     return $retSQL;  
113  }  }
114    
115  sub getFiles($$)  
116    {  sub getFiles($) {
117        my ($where, $offset) = @_;          my ($param) = @_;
118          
119                  my $offset = $param->{'offset'} || 0;
120        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          $offset *= $on_page;
121          "", "", { RaiseError => 1, AutoCommit => 1 } );  
122        my $sql =                    my $dbh = get_dbh();
123          q{    
124                  SELECT  files.id                        AS fid,          my $sql_cols = qq{
125                          hosts.name                      AS hname,                  files.id                        AS fid,
126                          shares.name                     AS sname,                  hosts.name                      AS hname,
127                          shares.share                    AS sharename,                  shares.name                     AS sname,
128                          files.backupNum                 AS backupNum,                  files.backupnum                 AS backupnum,
129                          files.name                      AS filename,                  files.path                      AS filepath,
130                          files.path                      AS filepath,                  files.date                      AS date,
131                          shares.share||files.fullpath    AS networkPath,                  files.type                      AS type,
132                          date(files.date, 'unixepoch', 'localtime') AS date,                  files.size                      AS size
133                          files.type                      AS filetype,          };
134                          files.size                      AS size,  
135                          dvds.name                       AS dvd          my $sql_from = qq{
136                  FROM files                  FROM files
137                          INNER JOIN shares       ON files.shareID=shares.ID                          INNER JOIN shares       ON files.shareID=shares.ID
138                          INNER JOIN hosts        ON hosts.ID = shares.hostID                          INNER JOIN hosts        ON hosts.ID = shares.hostID
139                          LEFT  JOIN dvds         ON dvds.ID = files.dvdid                          INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = files.shareID
140            };          };
141    
142            my $sql_where;
143            my $where = getWhere($param);
144            $sql_where = " WHERE ". $where if ($where);
145    
146            my $sql_order = qq{
147                    ORDER BY files.date
148                    LIMIT $on_page
149                    OFFSET ?
150            };
151    
152        if (defined($where) && $where ne "")          my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
153          {          my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
154              $sql .= " WHERE ". $where;        
155            my $sth = $dbh->prepare($sql_count);
156            $sth->execute();
157            my ($results) = $sth->fetchrow_array();
158    
159            $sth = $dbh->prepare($sql_results);
160            $sth->execute( $offset );
161    
162            if ($sth->rows != $results) {
163                    my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
164                    $bug =~ s/\s+/ /gs;
165                    print STDERR "$bug\n";
166          }          }
167    
168        $sql .=          my @ret;
         q{            
             ORDER BY files.id  
               LIMIT 100  
               OFFSET ? * 100 + 1  
         };  
         
         
169                
170        my $st = $dbh->prepare(          while (my $row = $sth->fetchrow_hashref()) {
171            $sql                  push @ret, $row;
           );      
       if (!defined($offset) && $offset ne "")  
       {  
         $st->bind_param(1, $offset);  
       }  
       else  
       {  
         $st->bind_param(1,0);  
       }  
       $st->execute;  
         
       my @ret = ();  
       my $tmp;  
         
       while ($tmp = $st->fetchrow_hashref())  
         {  
             push(@ret, {  
                            'hname'       => $tmp->{'hname'},  
                            'sname'       => $tmp->{'sname'},  
                            'sharename'   => $tmp->{'sharename'},  
                            'backupno'    => $tmp->{'backupNum'},  
                            'fname'       => $tmp->{'filename'},  
                            'fpath'       => $tmp->{'filepath'},  
                            'networkpath' => $tmp->{'networkPath'},  
                            'date'        => $tmp->{'date'},  
                            'type'        => $tmp->{'filetype'},  
                            'size'        => $tmp->{'size'},  
                            'id'          => $tmp->{'fid'},  
                            'dvd'         => $tmp->{'dvd'}  
                        }  
             );  
                                   
172          }          }
173              
174        $st->finish();          $sth->finish();
175        $dbh->disconnect();          return ($results, \@ret);
176        return @ret;  }
   }  
177    
178  sub getBackupsNotBurned()  sub getHyperEstraier_url($) {
179    {          my ($use_hest) = @_;
180        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",  
181          "", "", { RaiseError => 1, AutoCommit => 1 } );                return unless $use_hest;
182        my $sql = q{  
183            SELECT          use HyperEstraier;
184              hosts.ID         AS hostID,          my ($index_path, $index_node_url);
185              hosts.name       AS host,  
186              backups.num      AS backupno,          if ($use_hest =~ m#^http://#) {
187              backups.type     AS type,                  $index_node_url = $use_hest;
188              backups.date     AS date          } else {
189            FROM backups, shares, files, hosts                  $index_path = $TopDir . '/' . $index_path;
190            WHERE                  $index_path =~ s#//#/#g;
191              backups.num    = files.backupNum  AND          }
192              shares.ID      = files.shareID    AND                    return ($index_path, $index_node_url);
193              backups.hostID = shares.hostID    AND  }
194              hosts.ID       = backups.hostID   AND  
195              files.dvdid    IS NULL  sub getFilesHyperEstraier($) {
196            GROUP BY          my ($param) = @_;
197              backups.hostID, backups.num  
198        };          my $offset = $param->{'offset'} || 0;
199        my $st = $dbh -> prepare( $sql );          $offset *= $on_page;
200        my @ret = ();  
201        $st -> execute();          die "no index_path?" unless ($index_path);
202    
203        while ( my $tmp = $st -> fetchrow_hashref() )          use HyperEstraier;
204          {            
205              push(@ret, {          my ($index_path, $index_node_url) = getHyperEstraier_url($index_path);
206                           'host'     => $tmp->{'host'},  
207                           'hostid'   => $tmp->{'hostID'},          # open the database
208                           'backupno' => $tmp->{'backupno'},          my $db;
209                           'type'     => $tmp->{'type'},          if ($index_path) {
210                           'date'     => $tmp->{'date'}                  $db = HyperEstraier::Database->new();
211                         }                  $db->open($index_path, $HyperEstraier::ESTDBREADER);
212              );          } elsif ($index_node_url) {
213                    $db ||= HyperEstraier::Node->new($index_node_url);
214                    $db->set_auth('admin', 'admin');
215            } else {
216                    die "BUG: unimplemented";
217            }
218    
219            # create a search condition object
220            my $cond = HyperEstraier::Condition->new();
221    
222            my $q = $param->{'search_filename'};
223            my $shareid = $param->{'search_share'};
224    
225            if (length($q) > 0) {
226                    # exact match
227                    $cond->add_attr("filepath ISTRINC $q");
228    
229                    $q =~ s/(.)/$1 /g;
230                    # set the search phrase to the search condition object
231                    $cond->set_phrase($q);
232            }
233    
234            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
235    
236            $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
237            $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
238    
239            $cond->add_attr("date NUMGE $files_from") if ($files_from);
240            $cond->add_attr("date NUMLE $files_to") if ($files_to);
241    
242            $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
243    
244    #       $cond->set_max( $offset + $on_page );
245            $cond->set_options( $HyperEstraier::Condition::SURE );
246            $cond->set_order( 'date NUMA' );
247    
248            # get the result of search
249            my @res;
250            my ($result, $hits);
251    
252            if ($index_path) {
253                    $result = $db->search($cond, 0);
254                    $hits = $result->size;
255            } elsif ($index_node_url) {
256                    $result = $db->search($cond, 0);
257                    $hits = $result->doc_num;
258            } else {
259                    die "BUG: unimplemented";
260            }
261    
262            # for each document in result
263            for my $i ($offset .. ($offset + $on_page - 1)) {
264                    last if ($i >= $hits);
265    
266                    my $doc;
267                    if ($index_path) {
268                            my $id = $result->get($i);
269                            $doc = $db->get_doc($id, 0);
270                    } elsif ($index_node_url) {
271                            $doc = $result->get_doc($i);
272                    } else {
273                            die "BUG: unimplemented";
274                    }
275    
276                    my $row;
277                    foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
278                            $row->{$c} = $doc->attr($c);
279                    }
280                    push @res, $row;
281            }
282    
283            return ($hits, \@res);
284    }
285    
286    sub getGzipName($$$)
287    {
288            my ($host, $share, $backupnum) = @_;
289            my $ret = $Conf{GzipSchema};
290            
291            $share =~ s/\//_/g;
292            $ret =~ s/\\h/$host/ge;
293            $ret =~ s/\\s/$share/ge;
294            $ret =~ s/\\n/$backupnum/ge;
295            
296            return $ret;
297            
298    }
299    
300    sub getBackupsNotBurned() {
301    
302            my $dbh = get_dbh();
303    
304            my $sql = q{
305                    SELECT
306                            backups.hostID AS hostID,
307                            hosts.name AS host,
308                            shares.name AS share,
309                            backups.id AS backupnum,
310                            backups.type AS type,
311                            backups.date AS date,
312                            backups.size AS size
313                    FROM backups
314                    WHERE id not in( select id from backups,archive_backup where archive_backup.backup_id=backups.id)
315                    ORDER BY backups.date
316            };
317            my $sth = $dbh->prepare( $sql );
318            my @ret;
319            $sth->execute();
320    
321            while ( my $row = $sth->fetchrow_hashref() ) {
322                    $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
323                    $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
324                    my (undef,undef,undef,undef,undef,undef,undef,$fs_size,undef,undef,undef,undef,undef) =
325                            stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.
326                                    getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}));
327                    $row->{'fs_size'} = $fs_size;
328                    push @ret, $row;
329          }          }
330                
331        return @ret;                return @ret;      
332    }  }
333    
334  sub displayBackupsGrid()  sub displayBackupsGrid()
335    {    {
336        my $retHTML = "";        my $retHTML = "";
       my $addForm = 1;  
337                
338        if ($addForm)          $retHTML .= <<EOF3;
         {  
   
             $retHTML .= <<EOF3;  
339  <script language="javascript" type="text/javascript">  <script language="javascript" type="text/javascript">
340  <!--  <!--
341    
# Line 265  sub displayBackupsGrid() Line 353  sub displayBackupsGrid()
353          }          }
354        }        }
355      }      }
356        
357        function sumiraj()
358        {
359            var suma = 0;
360            for (var i = 0; i < document.forma.elements.length; i++)    
361                    {
362                            var e = document.forma.elements[i];
363                            if ((e.checked || !e.checked) && e.name != \'all\')
364                            {
365                                    if (e.checked)
366                                    {
367                                            var ret = e.name.match("fcb(.*)");
368                                            suma += parseInt(eval("document.forma.fss"+ret[1]+".value"));
369                                            
370                                    }
371                            }
372            }
373            document.forma.totalsize.value = suma;
374            return suma;
375        }
376  //-->  //-->
377  </script>        </script>      
378  EOF3  EOF3
379                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=burn\"";          $retHTML .= q{
380                $retHTML.= q{<input type="hidden" value="burn" name="action">};                  <form name="forma" method="GET" action=};
381                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                  $retHTML .= "\"".$MyURL."\"";
382          }                  $retHTML .= q{?action=burn>
383        $retHTML .= "<table style=\"fview\">";                          <input type="hidden" value="burn" name="action">
384        $retHTML .= "<tr> ";                          <input type="hidden" value="results" name="search_results">
385        if ($addForm)                          <table style="fview" border="0" cellspacing="0" cellpadding="2">
386          {                          <tr class="tableheader">
387              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";                          <td class="tableheader">
388          }                                  <input type="checkbox" name="allFiles" onClick="checkAll('allFiles');">
389        $retHTML .=  "<td class=\"tableheader\">Host</td> <td class=\"tableheader\">Backup no</td> <td class=\"tableheader\">Type</td> <td class=\"tableheader\">date</td></tr>";                          </td>
390        my @backups = getBackupsNotBurned();                          <td align="center">Share</td>
391        my $backup;                          <td align="center">Backup no</td>
392                            <td align="center">Type</td>
393        if ($addForm)                          <td align="center">date</td>
394          {                          <td align="center">age/days</td>
395              $retHTML .= "<tr>";                          <td align="center">size/MB</td>
396              $retHTML .= "<td colspan=7 style=\"tableheader\">";                          <td align="center">gzip size</td>
397              $retHTML .= "<input type=\"submit\" value=\"Burn selected backups on medium\" name=\"submitBurner\">";                          </tr>
398              $retHTML .= "</td>";  
399              $retHTML .= "</tr>";                          <tr><td colspan=7 style="tableheader">
400                                        <input type="submit" value="Burn selected backups on medium" name="submitBurner">
401          }                          </td></tr>
402        foreach $backup(@backups)          };
403          {  
404              my $ftype = "";          my @color = (' bgcolor="#e0e0e0"', '');
405    
406            my $i = 0;
407            my $host = '';
408    
409            foreach my $backup ( getBackupsNotBurned() ) {
410    
411                    if ($host ne $backup->{'host'}) {
412                            $i++;
413                            $host = $backup->{'host'};
414                    }
415                    my $ftype = "";
416                            
417              $retHTML .= "<tr>";                  $retHTML .= "<tr" . $color[$i %2 ] . ">";
418              if ($addForm)                  $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
419                {                                                                                          $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
420                    $retHTML .= "<td class=\"fview\"> <input type=\"checkbox\" name=\"fcb"                                                                                          '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
421                      .$backup->{'hostid'}."_".$backup->{'backupno'}                                                                                          '" onClick="sumiraj();"></td>';
                   ."\" value=\"".$backup->{'hostid'}."_".$backup->{'backupno'}."\"> </td>";  
               }      
422                            
423              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'host'} . "</td>";                  $retHTML .=
424              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'backupno'} . "</td>";                          '<td align="right">' . $backup->{'host'} . ':' . $backup->{'share'} . '</td>' .
425              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'type'} . "</td>";                          '<td align="center">' . $backup->{'backupnum'} . '</td>' .
426              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'date'} . "<td>";                          '<td align="center">' . $backup->{'type'} . '</td>' .
427              $retHTML .= "</tr>";                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
428          }                          '<td align="center">' . $backup->{'age'} . '</td>' .
429        $retHTML .= "</table>";                          '<td align="right">' . $backup->{'size'} . '</td>' .
430        if ($addForm)                          '<td align="right">' . $backup->{'fs_size'} .
431         {                          '<input type="hidden" name="fss'.$backup->{'hostid'}.'_'.$backup->{'backupnum'} . '"'.
432             $retHTML .= "</form>";                          'value="'. $backup->{'fs_size'} .'"'.'</td>' .
433         }                          "</tr>\n";
434          
       return $retHTML;  
     
     
   }        
435    
 sub displayGrid($$$)  
   {  
       my ($where, $addForm, $offset) = @_;  
       my $retHTML = "";  
         
       if ($addForm)  
         {  
               $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=search\"";  
               $retHTML.= q{<input type="hidden" value="search" name="action">};  
               $retHTML .= q{<input type="hidden" value="results" name="search_results">};  
         }  
       $retHTML .= "<table style=\"fview\">";  
       $retHTML .= "<tr> ";  
       $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>";  
       my @files = getFiles($where, $offset);  
       my $file;  
   
       foreach $file(@files)  
         {  
             my $ftype = "";  
               
             if ($file->{'type'} == BPC_FTYPE_DIR)  
               {  
                   $ftype = "dir";  
               }  
             else  
               {  
                   $ftype = "file";  
               }  
             $retHTML .= "<tr>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'hname'} ."</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'fname'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $ftype . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'backupno'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'size'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'date'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'dvd'} . "</td>";  
             $retHTML .= "</tr>";  
436          }          }
       $retHTML .= "</table>";  
437    
438                  $retHTML .= "</table>";
439            $retHTML .= "total gzip size:<input type=\"text\" name=\"totalsize\"><br>";
440            $retHTML .= "Note:<input type=\"text\" name=\"note\">";
441            $retHTML .= "</form>";
442          
443            return $retHTML;
444    }      
445    
446    sub displayGrid($) {
447            my ($param) = @_;
448    
449            my $offset = $param->{'offset'};
450            my $hilite = $param->{'search_filename'};
451    
452            my $retHTML = "";
453    
454            my $start_t = time();
455    
456            my ($results, $files);
457            if ($param->{'use_hest'} && length($hilite) > 0) {
458                    ($results, $files) = getFilesHyperEstraier($param);
459            } else {
460                    ($results, $files) = getFiles($param);
461            }
462    
463        $retHTML .= "<INPUT TYPE=\"hidden\" VALUE=\"\" NAME=\"offset\">";          my $dur_t = time() - $start_t;
464        for (my $ii = 1; $ii <= $#files; $ii++)          my $dur = sprintf("%0.4fs", $dur_t);
       {  
           $retHTML .= "<a href = \"#\" onclick=\"document.forma.offset.value=$ii;document.forma.submit();\">$ii</a>";  
           if ($ii < $#files)  
             {  
                 $retHTML .= " | ";  
             }  
       }  
465    
466            my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
467    
468         if ($addForm)          if ($results <= 0) {
469         {                  $retHTML .= qq{
470             $retHTML .= "</form>";                          <p style="color: red;">No results found...</p>
471         }                  };
472                          return $retHTML;
473        return $retHTML;          } else {
474    }                  # DEBUG
475                    #use Data::Dumper;
476                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
477            }
478    
479    
480            $retHTML .= qq{
481            <div>
482            Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
483            </div>
484            <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
485                    <tr class="fviewheader">
486                    <td></td>
487                    <td align="center">Share</td>
488                    <td align="center">Type and Name</td>
489                    <td align="center">#</td>
490                    <td align="center">Size</td>
491                    <td align="center">Date</td>
492                    <td align="center">Media</td>
493                    </tr>
494            };
495    
496            my $file;
497    
498            sub hilite_html($$) {
499                    my ($html, $search) = @_;
500                    $html =~ s#($search)#<b>$1</b>#gis;
501                    return $html;
502            }
503    
504            sub restore_link($$$$$$) {
505                    my $type = shift;
506                    my $action = 'RestoreFile';
507                    $action = 'browse' if (lc($type) eq 'dir');
508                    return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
509            }
510    
511            my $i = $offset * $on_page;
512    
513            foreach $file (@{ $files }) {
514                    $i++;
515    
516                    my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
517                    $retHTML .= qq{<tr class="fviewborder">};
518    
519                    $retHTML .= qq{<td class="fviewborder">$i</td>};
520    
521                    $retHTML .=
522                            qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
523                            qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
524                            qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{</td>} .
525                            qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
526                            qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
527                            qq{<td class="fviewborder">} . '?' . qq{</td>};
528    
529                    $retHTML .= "</tr>";
530            }
531            $retHTML .= "</table>";
532    
533            # all variables which has to be transfered
534            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/) {
535                    $retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
536            }
537    
538            my $del = '';
539            my $max_page = int( $results / $on_page );
540            my $page = 0;
541    
542            sub page_link($$$) {
543                    my ($param,$page,$display) = @_;
544    
545                    $param->{'offset'} = $page;
546    
547                    my $html = '<a href = "' . $MyURL;
548                    my $del = '?';
549                    foreach my $k (keys %{ $param }) {
550                            if ($param->{$k}) {
551                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
552                                    $del = '&';
553                            }
554                    }
555                    $html .= '">' . $display . '</a>';
556            }
557    
558            $retHTML .= '<div style="text-align: center;">';
559    
560            if ($offset > 0) {
561                    $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
562            }
563    
564            while ($page <= $max_page) {
565                    if ($page == $offset) {
566                            $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
567                    } else {
568                            $retHTML .= $del . page_link($param, $page, $page + 1);
569                    }
570    
571                    if ($page < $offset - $pager_pages && $page != 0) {
572                            $retHTML .= " ... ";
573                            $page = $offset - $pager_pages;
574                            $del = '';
575                    } elsif ($page > $offset + $pager_pages && $page != $max_page) {
576                            $retHTML .= " ... ";
577                            $page = $max_page;
578                            $del = '';
579                    } else {
580                            $del = ' | ';
581                            $page++;
582                    }
583            }
584    
585            if ($offset < $max_page) {
586                    $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
587            }
588    
589            $retHTML .= "</div>";
590    
591            return $retHTML;
592    }
593    
594  1;  1;
Legend:
Removed from v.16  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.26