/[BackupPC]/trunk/lib/BackupPC/SearchLib.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/BackupPC/SearchLib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 58 by dpavlin, Sun Aug 21 14:26:23 2005 UTC revision 102 by dpavlin, Tue Aug 30 22:43:01 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 $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($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
35      my $st =          my $sth = $dbh->prepare(qq{
36        $dbh->prepare(                  SELECT
37          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");                          shares.id       as id,
38      $st->execute();                          hosts.name || ':' || shares.name as share
39      push (@ret, { 'ID' => '', 'name' => '-'});                  FROM shares
40      while ( $tmp = $st->fetchrow_hashref() ) {                  JOIN hosts on hostid = hosts.id
41          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );                  ORDER BY share
42      }          } );
43      $dbh->disconnect();          $sth->execute();
44      return @ret;          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
45    
46            while ( my $row = $sth->fetchrow_hashref() ) {
47                    push @ret, $row;
48            }
49            return @ret;
50  }  }
51    
52  sub epoch_to_iso {  sub epoch_to_iso {
53          my $t = shift || return;          my $t = shift || return;
54          my $dt = DateTime->from_epoch( epoch => $t ) || return;          my $iso = BackupPC::Lib::timeStamp(undef, $t);
55  print STDERR "$t == ",$dt->epoch,"\n";          $iso =~ s/\s/ /g;
56          return $dt->ymd . ' ' . $dt->hms;          return $iso;
57  }  }
58    
59  sub getWhere($) {  sub dates_from_form($) {
60          my ($param)    = @_;          my $param = shift || return;
         my @conditions;  
61    
62          sub mk_epoch_date($$) {          sub mk_epoch_date($$) {
63                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
64    
65                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return;                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
66                  my $mm .= $param->{ $name . '_month_' . $suffix} ||                  my $mm .= $param->{ $name . '_month_' . $suffix} ||
67                          ( $suffix eq 'from' ? 1 : 12);                          ( $suffix eq 'from' ? 1 : 12);
68                  my $dd .= $param->{ $name . '_day_' . $suffix} ||                  my $dd .= $param->{ $name . '_day_' . $suffix} ||
69                          ( $suffix eq 'from' ? 1 : 31);                          ( $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(                  my $dt = new DateTime(
76                          year => $yyyy,                          year => $yyyy,
77                          month => $mm,                          month => $mm,
78                          day => $dd                          day => $dd
79                  );                  );
80                    print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
81                  return $dt->epoch || 'NULL';                  return $dt->epoch || 'NULL';
82          }          }
83    
84          my $backup_from = mk_epoch_date('search_backup', 'from');          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($) {
97            my $param = shift || return;
98    
99            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
100    
101            my @conditions;
102          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');  
103          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');  
104          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');  
105          push @conditions, qq{ files.date <= $files_to } if ($files_to);          push @conditions, qq{ files.date <= $files_to } if ($files_to);
106    
107          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);
108        
109          push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
110            push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
111          push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});  
112            return join(" and ", @conditions);
         return (  
                 join(" and ", @conditions),  
                 $files_from, $files_to,  
                 $backup_from, $backup_to  
         );  
113  }  }
114    
115    
116  sub getFiles($$) {  sub getFiles($) {
117          my ($where, $offset) = @_;          my ($param) = @_;
118    
119          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $offset = $param->{'offset'} || 0;
120            $offset *= $on_page;
121    
122            my $dbh = get_dbh();
123    
124          my $sql_cols = qq{          my $sql_cols = qq{
125                  files.id                        AS fid,                  files.id                        AS fid,
126                  hosts.name                      AS hname,                  hosts.name                      AS hname,
127                  shares.name                     AS sname,                  shares.name                     AS sname,
128                  shares.share                    AS sharename,                  files.backupnum                 AS backupnum,
                 files.backupNum                 AS backupNum,  
                 files.name                      AS filename,  
129                  files.path                      AS filepath,                  files.path                      AS filepath,
                 shares.share||files.fullpath    AS networkPath,  
130                  files.date                      AS date,                  files.date                      AS date,
131                  files.type                      AS filetype,                  files.type                      AS type,
132                  files.size                      AS size,                  files.size                      AS size
         };  
   
         my $sql_dvd_cols = qq{  
                 dvds.name                       AS dvd  
133          };          };
134    
135          my $sql_from = qq{          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                          INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID                          INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = files.shareID
         };  
   
         my $sql_dvd_from = qq{  
                         LEFT  JOIN dvds         ON dvds.ID = files.dvdid  
140          };          };
141    
142          my $sql_where;          my $sql_where;
143            my $where = getWhere($param);
144          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
145    
146          my $sql_order = qq{          my $sql_order = qq{
147                  ORDER BY files.id                  ORDER BY files.date
148                          LIMIT $on_page                  LIMIT $on_page
149                          OFFSET ?                  OFFSET ?
150          };          };
151    
152          $offset ||= 0;          my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
153          $offset = ($offset * $on_page) + 1;          my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
154    
155          my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });          my $sth = $dbh->prepare($sql_count);
156          $sth->execute();          $sth->execute();
   
157          my ($results) = $sth->fetchrow_array();          my ($results) = $sth->fetchrow_array();
158    
159          $sth = $dbh->prepare(qq{ select $sql_cols $sql_dvd_cols $sql_from $sql_dvd_from $sql_where $sql_order });          $sth = $dbh->prepare($sql_results);
160          $sth->execute( $offset );          $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          my @ret;          my @ret;
169                
170          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
171                  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'}  
                 });  
172          }          }
173              
174          $sth->finish();          $sth->finish();
         $dbh->disconnect();  
175          return ($results, \@ret);          return ($results, \@ret);
176  }  }
177    
178    sub getFilesHyperEstraier($) {
179            my ($param) = @_;
180    
181            my $offset = $param->{'offset'} || 0;
182            $offset *= $on_page;
183    
184            die "no index_path?" unless ($index_path);
185    
186            use HyperEstraier;
187    
188            # open the database
189            my $db = HyperEstraier::Database->new();
190            $db->open($index_path, $HyperEstraier::ESTDBREADER);
191    
192            # create a search condition object
193            my $cond = HyperEstraier::Condition->new();
194    
195            my $q = $param->{'search_filename'};
196            my $shareid = $param->{'search_share'};
197    
198            if (length($q) > 0) {
199                    # exact match
200                    $cond->add_attr("filepath ISTRINC $q");
201    
202                    $q =~ s/(.)/$1 /g;
203                    # set the search phrase to the search condition object
204                    $cond->set_phrase($q);
205            }
206    
207            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
208    
209            $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
210            $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
211    
212            $cond->add_attr("date NUMGE $files_from") if ($files_from);
213            $cond->add_attr("date NUMLE $files_to") if ($files_to);
214    
215            $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
216    
217    #       $cond->set_max( $offset + $on_page );
218            $cond->set_options( $HyperEstraier::Condition::SURE );
219            $cond->set_order( 'date NUMA' );
220    
221            # get the result of search
222            my $result = $db->search($cond, 0);
223    
224            my @res;
225            my $hits = $result->size;
226    
227            # for each document in result
228            for my $i ($offset .. ($offset + $on_page - 1)) {
229                    last if ($i >= $hits);
230    
231                    my $id = $result->get($i);
232                    my $doc = $db->get_doc($id, 0);
233    
234                    my $row;
235                    foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
236                            $row->{$c} = $doc->attr($c);
237                    }
238                    push @res, $row;
239            }
240    
241            return ($hits, \@res);
242    }
243    
244  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
245    
246          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
247          my $sql = q{          my $sql = q{
248          SELECT          SELECT
249                  hosts.ID                AS hostid,                  backups.hostID          AS hostid,
250                  min(hosts.name)         AS host,                  min(hosts.name)         AS host,
251                  backups.num             AS backupno,                  min(shares.name)        AS share,
252                    backups.num             AS backupnum,
253                  min(backups.type)       AS type,                  min(backups.type)       AS type,
254                  min(backups.date)       AS date                  min(backups.date)       AS date,
255          FROM backups, shares, files, hosts                  min(backups.size)       AS size
256          WHERE          FROM files
257                  backups.num     = files.backupNum       AND                  INNER JOIN shares       ON files.shareID=shares.ID
258                  shares.ID       = files.shareID         AND                          INNER JOIN hosts        ON hosts.ID = shares.hostID
259                  backups.hostID  = shares.hostID         AND                  INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
                 hosts.ID        = backups.hostID        AND  
                 files.dvdid     IS NULL  
260          GROUP BY          GROUP BY
261                  backups.hostID, backups.num, hosts.id                  backups.hostID, backups.num, backups.shareid
262          ORDER BY min(backups.date)          ORDER BY min(backups.date)
263          };          };
264          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
265          my @ret;          my @ret;
266          $sth->execute();          $sth->execute();
267    
268          while ( my $row = $sth->fetchrow_hashref() ) {                while ( my $row = $sth->fetchrow_hashref() ) {
269                  push(@ret, {                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
270                           'host'         => $row->{'host'},                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
271                           'hostid'       => $row->{'hostid'},                  push @ret, $row;
                          'backupno'     => $row->{'backupno'},  
                          'type'         => $row->{'type'},  
                          'date'         => $row->{'date'},  
                          'age'          => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),  
                        }  
                 );  
272          }          }
273                
274          return @ret;                return @ret;      
# Line 203  sub getBackupsNotBurned() { Line 277  sub getBackupsNotBurned() {
277  sub displayBackupsGrid()  sub displayBackupsGrid()
278    {    {
279        my $retHTML = "";        my $retHTML = "";
       my $addForm = 1;  
280                
281        if ($addForm) {          $retHTML .= <<EOF3;
   
             $retHTML .= <<EOF3;  
282  <script language="javascript" type="text/javascript">  <script language="javascript" type="text/javascript">
283  <!--  <!--
284    
# Line 228  sub displayBackupsGrid() Line 299  sub displayBackupsGrid()
299  //-->  //-->
300  </script>        </script>      
301  EOF3  EOF3
302                $retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";          $retHTML .= q{
303                $retHTML.= q{<input type="hidden" value="burn" name="action">};                  <form name="forma" method="GET" action="$MyURL?action=burn">
304                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                  <input type="hidden" value="burn" name="action">
305          }                  <input type="hidden" value="results" name="search_results">
306          $retHTML .= qq{<table style="fview"><tr>};                  <table style="fview" border="0" cellspacing="0" cellpadding="2">
307                    <tr class="tableheader">
308          if ($addForm) {                  <td class="tableheader">
309              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";                          <input type="checkbox" name="allFiles" onClick="checkAll('allFiles');">
310          }                  </td>
311          $retHTML .=  qq{                  <td align="center">Share</td>
312                  <td class="tableheader">Host</td>                  <td align="center">Backup no</td>
313                  <td class="tableheader">Backup no</td>                  <td align="center">Type</td>
314                  <td class="tableheader">Type</td>                  <td align="center">date</td>
315                  <td class="tableheader">date</td>                  <td align="center">age/days</td>
316                  <td class="tableheader">age/days</td>                  <td align="center">size/MB</td>
317                  </tr>                  </tr>
318    
319                    <tr><td colspan=7 style="tableheader">
320                    <input type="submit" value="Burn selected backups on medium" name="submitBurner">
321                    </td></tr>
322          };          };
323    
324          my @backups = getBackupsNotBurned();          my @color = (' bgcolor="#e0e0e0"', '');
         my $backup;  
325    
326          if ($addForm) {          my $i = 0;
327                  $retHTML .= qq{          my $host = '';
                         <tr><td colspan=7 style="tableheader">  
                         <input type="submit" value="Burn selected backups on medium" name="submitBurner">  
                         </td></tr>  
                 };  
         }  
328    
329          foreach $backup(@backups) {          foreach my $backup ( getBackupsNotBurned() ) {
330    
331                    if ($host ne $backup->{'host'}) {
332                            $i++;
333                            $host = $backup->{'host'};
334                    }
335                  my $ftype = "";                  my $ftype = "";
336                            
337                  $retHTML .= "<tr>";                  $retHTML .= "<tr" . $color[$i %2 ] . ">";
338                  if ($addForm) {                  $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
339                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .                                  $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
340                                  $backup->{'hostid'}.'_'.$backup->{'backupno'} .                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
                                 '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .  
341                                  '"></td>';                                  '"></td>';
                 }            
342                            
343                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .                  $retHTML .=
344                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .                          '<td align="right">' . $backup->{'host'} . ':' . $backup->{'share'} . '</td>' .
345                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .                          '<td align="center">' . $backup->{'backupnum'} . '</td>' .
346                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .                          '<td align="center">' . $backup->{'type'} . '</td>' .
347                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
348                          '</tr>';                          '<td align="center">' . $backup->{'age'} . '</td>' .
349          }                          '<td align="right">' . $backup->{'size'} . '</td>' .
350                            "</tr>\n";
351    
         $retHTML .= "</table>";  
352    
         if ($addForm) {  
                 $retHTML .= "</form>";  
353          }          }
354    
355            $retHTML .= "</table>";
356            $retHTML .= "</form>";
357                
358          return $retHTML;          return $retHTML;
359  }        }      
360    
361  sub displayGrid($$$$) {  sub displayGrid($) {
362          my ($where, $addForm, $offset, $hilite) = @_;          my ($param) = @_;
363    
364            my $offset = $param->{'offset'};
365            my $hilite = $param->{'search_filename'};
366    
367          my $retHTML = "";          my $retHTML = "";
368    
         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">};  
         }  
   
369          my $start_t = time();          my $start_t = time();
370    
371          my ($results, $files) = getFiles($where, $offset);          my ($results, $files);
372            if ($param->{'use_hest'} && length($hilite) > 0) {
373                    ($results, $files) = getFilesHyperEstraier($param);
374            } else {
375                    ($results, $files) = getFiles($param);
376            }
377    
378          my $dur_t = time() - $start_t;          my $dur_t = time() - $start_t;
379          my $dur = sprintf("%0.4fs", $dur_t);          my $dur = sprintf("%0.4fs", $dur_t);
380    
381          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
382    
383            if ($results <= 0) {
384                    $retHTML .= qq{
385                            <p style="color: red;">No results found...</p>
386                    };
387                    return $retHTML;
388            } else {
389                    # DEBUG
390                    #use Data::Dumper;
391                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
392            }
393    
394    
395          $retHTML .= qq{          $retHTML .= qq{
396          <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <div>
397          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
398                  <tr>          </div>
399                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
400                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
401                  <td class="tableheader">Type</td>                  <td></td>
402                  <td class="tableheader">#</td>                  <td align="center">Share</td>
403                  <td class="tableheader">Size</td>                  <td align="center">Type and Name</td>
404                  <td class="tableheader">Date</td>                  <td align="center">#</td>
405                  <td class="tableheader">Media</td>                  <td align="center">Size</td>
406                    <td align="center">Date</td>
407                    <td align="center">Media</td>
408                  </tr>                  </tr>
409          };          };
410    
# Line 334  sub displayGrid($$$$) { Line 423  sub displayGrid($$$$) {
423                  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, @_);
424          }          }
425    
426            my $i = $offset * $on_page;
427    
428          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
429                    $i++;
430    
431                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
432                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
433    
434                  foreach my $v ((                  $retHTML .= qq{<td class="fviewborder">$i</td>};
435                          $file->{'sharename'},  
436                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                  $retHTML .=
437                          $typeStr,                          qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
438                          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>} .
439                          $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>} .
440                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
441                          $file->{'dvd'}                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
442                  )) {                          qq{<td class="fviewborder">} . '?' . qq{</td>};
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
443    
444                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
445          }          }
# Line 363  sub displayGrid($$$$) { Line 454  sub displayGrid($$$$) {
454          my $max_page = int( $results / $on_page );          my $max_page = int( $results / $on_page );
455          my $page = 0;          my $page = 0;
456    
457          my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';          sub page_link($$$) {
458                    my ($param,$page,$display) = @_;
459    
460                    $param->{'offset'} = $page;
461    
462                    my $html = '<a href = "' . $MyURL;
463                    my $del = '?';
464                    foreach my $k (keys %{ $param }) {
465                            if ($param->{$k}) {
466                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
467                                    $del = '&';
468                            }
469                    }
470                    $html .= '">' . $display . '</a>';
471            }
472    
473          $retHTML .= '<div style="text-align: center;">';          $retHTML .= '<div style="text-align: center;">';
474    
475          if ($offset > 0) {          if ($offset > 0) {
476                  $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';                  $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
477          }          }
478    
479          while ($page <= $max_page) {          while ($page <= $max_page) {
480                  if ($page == $offset) {                  if ($page == $offset) {
481                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
482                  } else {                  } else {
483                          $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);                          $retHTML .= $del . page_link($param, $page, $page + 1);
484                  }                  }
485    
486                  if ($page < $offset - $pager_pages && $page != 0) {                  if ($page < $offset - $pager_pages && $page != 0) {
# Line 393  sub displayGrid($$$$) { Line 498  sub displayGrid($$$$) {
498          }          }
499    
500          if ($offset < $max_page) {          if ($offset < $max_page) {
501                  $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');                  $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
502          }          }
503    
504          $retHTML .= "</div>";          $retHTML .= "</div>";
505    
         $retHTML .= "</form>" if ($addForm);  
   
506          return $retHTML;          return $retHTML;
507  }  }
508    
Legend:
Removed from v.58  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.26