/[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 4 by dpavlin, Wed Jun 22 19:22:51 2005 UTC revision 87 by dpavlin, Sun Aug 28 14:05:08 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=$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;  
   
       
     
       
     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'}  ."\"");  
     }  
98    
99      if ( defined( $param->{'search_day_from'} )   && $param->{'search_day_from'} ne "" ) {          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
         push( @conditions,  
             ' strftime("%d", datetime(files.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_day_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_month_from'} ) && $param->{'search_month_from'} ne "") {  
         push( @conditions,  
             ' strftime("%m", datetime(files.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_month_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_year_from'} ) && $param->{'search_year_from'} ne "") {  
         push( @conditions,  
             ' strftime("%Y", datetime(files.date, "unixepoch","localtime")) >= "'  
               . $param->{'search_year_from'}  ."\"");  
     }  
     if ( defined( $param->{'search_day_to'} )   && $param->{'search_day_to'} ne "" ) {  
         push( @conditions,  
             ' strftime("%d", datetime(files.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_day_to'}  ."\"");  
     }  
     if ( defined( $param->{'search_month_to'} ) && $param->{'search_month_to'} ne "" ) {  
         push( @conditions,  
             ' strftime("%m", datetime(files.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_month_to'} ."\"" );  
     }  
     if ( defined( $param->{'search_year_to'} )&& $param->{'search_year_to'} ne "" )  {  
         push( @conditions,  
             ' strftime("%Y", datetime(files.date, "unixepoch","localtime")) <= "'  
               . $param->{'search_year_to'} ."\"");  
     }  
100    
101      if ( defined( $param->{'search_host'} ) && $param->{'search_host'} ne "") {          my @conditions;
102        push( @conditions, ' backups.hostID = ' . $param->{'search_host'} );          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
103      }          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
104            push @conditions, qq{ files.date >= $files_from } if ($files_from);
105            push @conditions, qq{ files.date <= $files_to } if ($files_to);
106    
107      if ( defined ($param->{'search_filename'}) && $param->{'search_filename'} ne "") {          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
108          push (@conditions, " files.name LIKE '".$param->{'search_filename'}."%'");  
109          }          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'});
     $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) = @_;          my ($param) = @_;
118          
119        my $dbh = DBI->connect( "dbi:SQLite:dbname=$Conf{SearchDB}",          my $offset = $param->{'offset'} || 0;
120          "", "", { RaiseError => 1, AutoCommit => 1 } );          $offset *= $on_page;
121        my $sql =            
122          q{            my $dbh = get_dbh();
123                SELECT files.id                       AS fid,  
124                       hosts.name                     AS hname,          my $sql_cols = qq{
125                       shares.name                    AS sname,                  files.id                        AS fid,
126                       shares.share                   AS sharename,                  hosts.name                      AS hname,
127                       backups.num                    AS backupNum,                  shares.name                     AS sname,
128                       files.name                     AS filename,                  files.backupnum                 AS backupnum,
129                       files.path                     AS filepath,                  files.path                      AS filepath,
130                       shares.share||files.fullpath AS networkPath,                  files.date                      AS date,
131                       date(files.date, 'unixepoch', 'localtime') AS date,                  files.type                      AS type,
132                       files.type                     AS filetype,                  files.size                      AS size
133                       files.size                     AS size,          };
134                       dvds.name                      AS dvd  
135                    FROM          my $sql_from = qq{
136                       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.hostID = hosts.ID                          INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = files.shareID
140                          LEFT  JOIN dvds    ON dvds.ID = files.dvdid          };
141                        
142            };          my $sql_where;
143            my $where = getWhere($param);
144        if (defined($where) && $where ne "")          $sql_where = " WHERE ". $where if ($where);
145          {  
146              $sql .= " WHERE ". $where;                my $sql_order = qq{
147                    ORDER BY files.date
148                    LIMIT $on_page
149                    OFFSET ?
150            };
151    
152            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    
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            my @ret;
169                
170        my $st = $dbh->prepare(          while (my $row = $sth->fetchrow_hashref()) {
171            $sql                  push @ret, $row;
172            );              }
173        
174            $sth->finish();
175            return ($results, \@ret);
176    }
177    
178        $st->execute;  sub getFilesHyperEstraier($) {
179                  my ($param) = @_;
180        my @ret = ();  
181        my $tmp;          my $offset = $param->{'offset'} || 0;
182                  $offset *= $on_page;
183        while ($tmp = $st->fetchrow_hashref())  
184          {          die "no index_path?" unless ($index_path);
185              push(@ret, {  
186                             'hname'       => $tmp->{'hname'},          use HyperEstraier;
187                             'sname'       => $tmp->{'sname'},  
188                             'sharename'   => $tmp->{'sharename'},          # open the database
189                             'backupno'    => $tmp->{'backupNum'},          my $db = HyperEstraier::Database->new();
190                             'fname'       => $tmp->{'filename'},          $db->open($index_path, $HyperEstraier::ESTDBREADER);
191                             'fpath'       => $tmp->{'filepath'},  
192                             'networkpath' => $tmp->{'networkPath'},          # create a search condition object
193                             'date'        => $tmp->{'date'},          my $cond = HyperEstraier::Condition->new();
194                             'type'        => $tmp->{'filetype'},  
195                             'size'        => $tmp->{'size'},          my $q = $param->{'search_filename'};
196                             'id'          => $tmp->{'fid'},          my $shareid = $param->{'search_share'};
197                             'dvd'         => $tmp->{'dvd'}  
198                         }          if ($q) {
199              );                  $q =~ s/(.)/$1 /g;
200                                    
201                    # set the search phrase to the search condition object
202                    $cond->set_phrase($q);
203          }          }
         
       $st->finish();  
       $dbh->disconnect();  
       return @ret;  
   }  
204    
205  sub getBackupsNotBurned()          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
206    {  
207        my $dbh = DBI->connect( "dbi:SQLite:dbname=$Conf{SearchDB}",          $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
208          "", "", { RaiseError => 1, AutoCommit => 1 } );                $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
209        my $sql = q{  
210            SELECT          $cond->add_attr("date NUMGE $files_from") if ($files_from);
211              hosts.ID         AS hostID,          $cond->add_attr("date NUMLE $files_to") if ($files_to);
212              hosts.name       AS host,  
213              backups.num      AS backupno,          $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
214              backups.type     AS type,  
215              backups.date     AS date  #       $cond->set_max( $offset + $on_page );
216            FROM backups, shares, files, hosts          $cond->set_options( $HyperEstraier::Condition::SURE );
217            WHERE          $cond->set_order( 'date NUMA' );
218              backups.num    = files.backupNum  AND  
219              shares.ID      = files.shareID    AND                    # get the result of search
220              backups.hostID = shares.hostID    AND          my $result = $db->search($cond, 0);
221              hosts.ID       = backups.hostID   AND  
222              files.dvdid    IS NULL          my @res;
223            GROUP BY          my $hits = $result->size;
224              backups.hostID, backups.num  
225        };          # for each document in result
226        my $st = $dbh -> prepare( $sql );          for my $i ($offset .. ($offset + $on_page - 1)) {
227        my @ret = ();                  last if ($i >= $hits);
228        $st -> execute();  
229                    my $id = $result->get($i);
230        while ( my $tmp = $st -> fetchrow_hashref() )                  my $doc = $db->get_doc($id, 0);
231          {            
232              push(@ret, {                  my $row;
233                           'host'     => $tmp->{'host'},                  foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
234                           'hostid'   => $tmp->{'hostID'},                          $row->{$c} = $doc->attr($c);
235                           'backupno' => $tmp->{'backupno'},                  }
236                           'type'     => $tmp->{'type'},                  push @res, $row;
237                           'date'     => $tmp->{'date'}          }
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 255  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) = @_;          if ($addForm) {
359        my $retHTML = "";                  $retHTML .= "</form>";
360            }
361                
362        if ($addForm)          return $retHTML;
363          {  }      
       $retHTML .= <<EOF3;  
 <script language="javascript" type="text/javascript">  
 <!--  
364    
365      function checkAll(location)  sub displayGrid($) {
366      {          my ($param) = @_;
       for (var i=0;i<document.forma.elements.length;i++)  
       {  
         var e = document.forma.elements[i];  
         if ((e.checked || !e.checked) && e.name != \'all\') {  
             if (eval("document.forma."+location+".checked")) {  
                 e.checked = true;  
             } else {  
                 e.checked = false;  
             }  
         }  
       }  
     }  
367    
368            my $offset = $param->{'offset'};
369            my $hilite = $param->{'search_filename'};
370    
371  //-->          my $retHTML = "";
372  </script>        
373  EOF3          my $start_t = time();
374                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=burn\"";  
375                $retHTML.= q{<input type="hidden" value="burn" name="action">};          my ($results, $files);
376                $retHTML .= q{<input type="hidden" value="results" name="search_results">};          if ($param->{'use_hest'}) {
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        if ($addForm)          my $dur = sprintf("%0.4fs", $dur_t);
384          {  
385              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
386    
387            if ($results <= 0) {
388                    $retHTML .= qq{
389                            <p style="color: red;">No results found...</p>
390                    };
391                    return $retHTML;
392            } else {
393                    # DEBUG
394                    #use Data::Dumper;
395                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
396          }          }
397        $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>";  
398        my @files = getFiles($where);  
399        my $file;          $retHTML .= qq{
400            <div>
401        if ($addForm)          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
402          {          </div>
403              $retHTML .= "<tr>";          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
404              $retHTML .= "<td colspan=7 style=\"tableheader\">";                  <tr class="fviewheader">
405              $retHTML .= "<input type=\"submit\" value=\"Burn selected files on medium\" name=\"submitBurner\">";                  <td></td>
406              $retHTML .= "</td>";                  <td align="center">Share</td>
407              $retHTML .= "</tr>";                  <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            sub hilite_html($$) {
418                    my ($html, $search) = @_;
419                    $html =~ s#($search)#<b>$1</b>#gis;
420                    return $html;
421          }          }
422        foreach $file(@files)  
423          {          sub restore_link($$$$$$) {
424              my $ftype = "";                  my $type = shift;
425                                my $action = 'RestoreFile';
426              if ($file->{'type'} == BPC_FTYPE_DIR)                  $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                    $ftype = "dir";          }
429                }  
430              else          my $i = $offset * $on_page;
431                {  
432                    $ftype = "file";          foreach $file (@{ $files }) {
433                }                  $i++;
434              $retHTML .= "<tr>";  
435              if ($addForm)                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
436                {                  $retHTML .= qq{<tr class="fviewborder">};
437                    $retHTML .= "<td class=\"fview\"> <input type=\"checkbox\" name=\"fcb"  
438                      .$file->{'id'}                  $retHTML .= qq{<td>$i</td>};
439                    ."\" value=\"".$file->{'id'}."\"> </td>";  
440                }                      $retHTML .=
441                                        qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
442              $retHTML .= "<td class=\"fviewborder\">" . $file->{'hname'} ."</td>";                          qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
443              $retHTML .= "<td class=\"fviewborder\">" . $file->{'fname'} . "</td>";                          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              $retHTML .= "<td class=\"fviewborder\">" . $ftype . "</td>";                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
445              $retHTML .= "<td class=\"fviewborder\">" . $file->{'backupno'} . "</td>";                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
446              $retHTML .= "<td class=\"fviewborder\">" . $file->{'size'} . "</td>";                          qq{<td class="fviewborder">} . '?' . qq{</td>};
447              $retHTML .= "<td class=\"fviewborder\">" . $file->{'date'} . "</td>";  
448              $retHTML .= "<td class=\"fviewborder\">" . $file->{'dvd'} . "</td>";                  $retHTML .= "</tr>";
449              $retHTML .= "</tr>";          }
450          }          $retHTML .= "</table>";
451        $retHTML .= "</table>";  
452        if ($addForm)          # 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 .= "</form>";                  $retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
455         }          }
456          
457        return $retHTML;          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.4  
changed lines
  Added in v.87
  ViewVC Help
Powered by ViewVC 1.1.26