/[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 88 by dpavlin, Sun Aug 28 14:15:01 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 getWhere($) {  sub epoch_to_iso {
53      my ($param)    = @_;          my $t = shift || return;
54      my $retSQL     = "";          my $iso = BackupPC::Lib::timeStamp(undef, $t);
55      my @conditions = ();          $iso =~ s/\s/ /g;
56      my $cond;          return $iso;
57    }
       
     
       
     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'}  ."\"");  
     }  
58    
59      if ( defined( $param->{'search_day_from'} )   && $param->{'search_day_from'} ne "" ) {  sub dates_from_form($) {
60          push( @conditions,          my $param = shift || return;
             ' 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'} ."\"");  
     }  
61    
62      if ( defined( $param->{'search_host'} ) && $param->{'search_host'} ne "") {          sub mk_epoch_date($$) {
63        push( @conditions, ' backups.hostID = ' . $param->{'search_host'} );                  my ($name,$suffix) = @_;
     }  
64    
65      if ( defined ($param->{'search_filename'}) && $param->{'search_filename'} ne "") {                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
66          push (@conditions, " files.name LIKE '".$param->{'search_filename'}."%'");                  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          }          }
       
     $retSQL = "";  
     foreach $cond(@conditions)  
       {  
           if ($retSQL ne "")  
             {  
                 $retSQL .= " AND ";  
             }  
           $retSQL .= $cond;  
       }        
83    
84                my @ret = (
85      return $retSQL;                  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  sub getFiles($$)  
96    {  sub getWhere($) {
97        my ($where, $offset) = @_;          my $param = shift || return;
98          
99                  my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
100        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",  
101          "", "", { RaiseError => 1, AutoCommit => 1 } );          my @conditions;
102        my $sql =                    push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
103          q{            push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
104                  SELECT  files.id                        AS fid,          push @conditions, qq{ files.date >= $files_from } if ($files_from);
105                          hosts.name                      AS hname,          push @conditions, qq{ files.date <= $files_to } if ($files_to);
106                          shares.name                     AS sname,  
107                          shares.share                    AS sharename,          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
108                          files.backupNum                 AS backupNum,  
109                          files.name                      AS filename,          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
110                          files.path                      AS filepath,          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
111                          shares.share||files.fullpath    AS networkPath,  
112                          date(files.date, 'unixepoch', 'localtime') AS date,          return join(" and ", @conditions);
113                          files.type                      AS filetype,  }
114                          files.size                      AS size,  
115                          dvds.name                       AS dvd  
116    sub getFiles($) {
117            my ($param) = @_;
118    
119            my $offset = $param->{'offset'} || 0;
120            $offset *= $on_page;
121    
122            my $dbh = get_dbh();
123    
124            my $sql_cols = qq{
125                    files.id                        AS fid,
126                    hosts.name                      AS hname,
127                    shares.name                     AS sname,
128                    files.backupnum                 AS backupnum,
129                    files.path                      AS filepath,
130                    files.date                      AS date,
131                    files.type                      AS type,
132                    files.size                      AS size
133            };
134    
135            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 getFilesHyperEstraier($) {
179    {          my ($param) = @_;
180        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",  
181          "", "", { RaiseError => 1, AutoCommit => 1 } );                my $offset = $param->{'offset'} || 0;
182        my $sql = q{          $offset *= $on_page;
183            SELECT  
184              hosts.ID         AS hostID,          die "no index_path?" unless ($index_path);
185              hosts.name       AS host,  
186              backups.num      AS backupno,          use HyperEstraier;
187              backups.type     AS type,  
188              backups.date     AS date          # open the database
189            FROM backups, shares, files, hosts          my $db = HyperEstraier::Database->new();
190            WHERE          $db->open($index_path, $HyperEstraier::ESTDBREADER);
191              backups.num    = files.backupNum  AND  
192              shares.ID      = files.shareID    AND                    # create a search condition object
193              backups.hostID = shares.hostID    AND          my $cond = HyperEstraier::Condition->new();
194              hosts.ID       = backups.hostID   AND  
195              files.dvdid    IS NULL          my $q = $param->{'search_filename'};
196            GROUP BY          my $shareid = $param->{'search_share'};
197              backups.hostID, backups.num  
198        };          if (length($q) > 0) {
199        my $st = $dbh -> prepare( $sql );                  $q =~ s/(.)/$1 /g;
200        my @ret = ();  
201        $st -> execute();                  # set the search phrase to the search condition object
202                    $cond->set_phrase($q);
203        while ( my $tmp = $st -> fetchrow_hashref() )          }
204          {            
205              push(@ret, {          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
206                           'host'     => $tmp->{'host'},  
207                           'hostid'   => $tmp->{'hostID'},          $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
208                           'backupno' => $tmp->{'backupno'},          $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
209                           'type'     => $tmp->{'type'},  
210                           'date'     => $tmp->{'date'}          $cond->add_attr("date NUMGE $files_from") if ($files_from);
211                         }          $cond->add_attr("date NUMLE $files_to") if ($files_to);
212              );  
213            $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
214    
215    #       $cond->set_max( $offset + $on_page );
216            $cond->set_options( $HyperEstraier::Condition::SURE );
217            $cond->set_order( 'date NUMA' );
218    
219            # get the result of search
220            my $result = $db->search($cond, 0);
221    
222            my @res;
223            my $hits = $result->size;
224    
225            # for each document in result
226            for my $i ($offset .. ($offset + $on_page - 1)) {
227                    last if ($i >= $hits);
228    
229                    my $id = $result->get($i);
230                    my $doc = $db->get_doc($id, 0);
231    
232                    my $row;
233                    foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
234                            $row->{$c} = $doc->attr($c);
235                    }
236                    push @res, $row;
237            }
238    
239            return ($hits, \@res);
240    }
241    
242    sub getBackupsNotBurned() {
243    
244            my $dbh = get_dbh();
245            my $sql = q{
246            SELECT
247                    backups.hostID          AS hostid,
248                    min(hosts.name)         AS host,
249                    backups.num             AS backupnum,
250                    min(backups.type)       AS type,
251                    min(backups.date)       AS date,
252                    min(backups.size)       AS size
253            FROM files
254                    INNER JOIN shares       ON files.shareID=shares.ID
255                    INNER JOIN hosts        ON hosts.ID = shares.hostID
256                    INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
257            GROUP BY
258                    backups.hostID, backups.num
259            ORDER BY min(backups.date)
260            };
261            my $sth = $dbh->prepare( $sql );
262            my @ret;
263            $sth->execute();
264    
265            while ( my $row = $sth->fetchrow_hashref() ) {
266                    $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
267                    $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
268                    push @ret, $row;
269          }          }
270                
271        return @ret;                return @ret;      
272    }  }
273    
274  sub displayBackupsGrid()  sub displayBackupsGrid()
275    {    {
276        my $retHTML = "";        my $retHTML = "";
277        my $addForm = 1;        my $addForm = 1;
278                
279        if ($addForm)        if ($addForm) {
         {  
280    
281              $retHTML .= <<EOF3;              $retHTML .= <<EOF3;
282  <script language="javascript" type="text/javascript">  <script language="javascript" type="text/javascript">
# Line 268  sub displayBackupsGrid() Line 299  sub displayBackupsGrid()
299  //-->  //-->
300  </script>        </script>      
301  EOF3  EOF3
302                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=burn\"";                $retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";
303                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
304                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
305          }          }
306        $retHTML .= "<table style=\"fview\">";          $retHTML .= qq{
307        $retHTML .= "<tr> ";                  <table style="fview" border="1" cellspacing="0" cellpadding="3">
308        if ($addForm)                  <tr class="tableheader">
309          {          };
310    
311            if ($addForm) {
312              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
313          }          }
314        $retHTML .=  "<td class=\"tableheader\">Host</td> <td class=\"tableheader\">Backup no</td> <td class=\"tableheader\">Type</td> <td class=\"tableheader\">date</td></tr>";          $retHTML .=  qq{
315        my @backups = getBackupsNotBurned();                  <td align="center">Host</td>
316        my $backup;                  <td align="center">Backup no</td>
317                    <td align="center">Type</td>
318        if ($addForm)                  <td align="center">date</td>
319          {                  <td align="center">age/days</td>
320              $retHTML .= "<tr>";                  <td align="center">size/MB</td>
321              $retHTML .= "<td colspan=7 style=\"tableheader\">";                  </tr>
322              $retHTML .= "<input type=\"submit\" value=\"Burn selected backups on medium\" name=\"submitBurner\">";          };
323              $retHTML .= "</td>";  
324              $retHTML .= "</tr>";          my @backups = getBackupsNotBurned();
325                        my $backup;
326    
327            if ($addForm) {
328                    $retHTML .= qq{
329                            <tr><td colspan=7 style="tableheader">
330                            <input type="submit" value="Burn selected backups on medium" name="submitBurner">
331                            </td></tr>
332                    };
333          }          }
334        foreach $backup(@backups)  
335          {          foreach $backup(@backups) {
336              my $ftype = "";  
337                    my $ftype = "";
338                            
339              $retHTML .= "<tr>";                  $retHTML .= "<tr>";
340              if ($addForm)                  if ($addForm) {
341                {                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
342                    $retHTML .= "<td class=\"fview\"> <input type=\"checkbox\" name=\"fcb"                                  $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
343                      .$backup->{'hostid'}."_".$backup->{'backupno'}                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
344                    ."\" value=\"".$backup->{'hostid'}."_".$backup->{'backupno'}."\"> </td>";                                  '"></td>';
345                }                      }          
346                            
347              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'host'} . "</td>";                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
348              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'backupno'} . "</td>";                          '<td class="fviewborder">' . $backup->{'backupnum'} . '</td>' .
349              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'type'} . "</td>";                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .
350              $retHTML .= "<td class=\"fviewborder\">" . $backup->{'date'} . "<td>";                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
351              $retHTML .= "</tr>";                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
352          }                          '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
353        $retHTML .= "</table>";                          '</tr>';
354        if ($addForm)          }
        {  
            $retHTML .= "</form>";  
        }  
         
       return $retHTML;  
     
     
   }        
355    
356  sub displayGrid($$$)          $retHTML .= "</table>";
357    {  
358        my ($where, $addForm, $offset) = @_;          if ($addForm) {
359        my $retHTML = "";                  $retHTML .= "</form>";
360            }
361                
362        if ($addForm)          return $retHTML;
363          {  }      
364                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=search\"";  
365                $retHTML.= q{<input type="hidden" value="search" name="action">};  sub displayGrid($) {
366                $retHTML .= q{<input type="hidden" value="results" name="search_results">};          my ($param) = @_;
367    
368            my $offset = $param->{'offset'};
369            my $hilite = $param->{'search_filename'};
370    
371            my $retHTML = "";
372    
373            my $start_t = time();
374    
375            my ($results, $files);
376            if ($param->{'use_hest'} && length($hilite) > 0) {
377                    ($results, $files) = getFilesHyperEstraier($param);
378            } else {
379                    ($results, $files) = getFiles($param);
380          }          }
381        $retHTML .= "<table style=\"fview\">";  
382        $retHTML .= "<tr> ";          my $dur_t = time() - $start_t;
383        $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 $dur = sprintf("%0.4fs", $dur_t);
384        my @files = getFiles($where, $offset);  
385        my $file;          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
386    
387        foreach $file(@files)          if ($results <= 0) {
388          {                  $retHTML .= qq{
389              my $ftype = "";                          <p style="color: red;">No results found...</p>
390                                };
391              if ($file->{'type'} == BPC_FTYPE_DIR)                  return $retHTML;
392                {          } else {
393                    $ftype = "dir";                  # DEBUG
394                }                  #use Data::Dumper;
395              else                  #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
               {  
                   $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>";  
396          }          }
       $retHTML .= "</table>";  
397    
         
398    
399        $retHTML .= "<INPUT TYPE=\"hidden\" VALUE=\"\" NAME=\"offset\">";          $retHTML .= qq{
400        for (my $ii = 1; $ii <= $#files; $ii++)          <div>
401        {          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
402            $retHTML .= "<a href = \"#\" onclick=\"document.forma.offset.value=$ii;document.forma.submit();\">$ii</a>";          </div>
403            if ($ii < $#files)          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
404              {                  <tr class="fviewheader">
405                  $retHTML .= " | ";                  <td></td>
406              }                  <td align="center">Share</td>
407        }                  <td align="center">Type and Name</td>
408                    <td align="center">#</td>
409                    <td align="center">Size</td>
410                    <td align="center">Date</td>
411                    <td align="center">Media</td>
412                    </tr>
413            };
414    
415            my $file;
416    
417         if ($addForm)          sub hilite_html($$) {
418         {                  my ($html, $search) = @_;
419             $retHTML .= "</form>";                  $html =~ s#($search)#<b>$1</b>#gis;
420         }                  return $html;
421                  }
422        return $retHTML;  
423    }          sub restore_link($$$$$$) {
424                    my $type = shift;
425                    my $action = 'RestoreFile';
426                    $action = 'browse' if (lc($type) eq 'dir');
427                    return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
428            }
429    
430            my $i = $offset * $on_page;
431    
432            foreach $file (@{ $files }) {
433                    $i++;
434    
435                    my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
436                    $retHTML .= qq{<tr class="fviewborder">};
437    
438                    $retHTML .= qq{<td class="fviewborder">$i</td>};
439    
440                    $retHTML .=
441                            qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
442                            qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
443                            qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{</td>} .
444                            qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
445                            qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
446                            qq{<td class="fviewborder">} . '?' . qq{</td>};
447    
448                    $retHTML .= "</tr>";
449            }
450            $retHTML .= "</table>";
451    
452            # all variables which has to be transfered
453            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/) {
454                    $retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
455            }
456    
457            my $del = '';
458            my $max_page = int( $results / $on_page );
459            my $page = 0;
460    
461            sub page_link($$$) {
462                    my ($param,$page,$display) = @_;
463    
464                    $param->{'offset'} = $page;
465    
466                    my $html = '<a href = "' . $MyURL;
467                    my $del = '?';
468                    foreach my $k (keys %{ $param }) {
469                            if ($param->{$k}) {
470                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
471                                    $del = '&';
472                            }
473                    }
474                    $html .= '">' . $display . '</a>';
475            }
476    
477            $retHTML .= '<div style="text-align: center;">';
478    
479            if ($offset > 0) {
480                    $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
481            }
482    
483            while ($page <= $max_page) {
484                    if ($page == $offset) {
485                            $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
486                    } else {
487                            $retHTML .= $del . page_link($param, $page, $page + 1);
488                    }
489    
490                    if ($page < $offset - $pager_pages && $page != 0) {
491                            $retHTML .= " ... ";
492                            $page = $offset - $pager_pages;
493                            $del = '';
494                    } elsif ($page > $offset + $pager_pages && $page != $max_page) {
495                            $retHTML .= " ... ";
496                            $page = $max_page;
497                            $del = '';
498                    } else {
499                            $del = ' | ';
500                            $page++;
501                    }
502            }
503    
504            if ($offset < $max_page) {
505                    $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
506            }
507    
508            $retHTML .= "</div>";
509    
510            return $retHTML;
511    }
512    
513  1;  1;
Legend:
Removed from v.16  
changed lines
  Added in v.88
  ViewVC Help
Powered by ViewVC 1.1.26