/[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 6 by dpavlin, Thu Jun 23 09:47:59 2005 UTC revision 9 by dpavlin, Thu Jun 23 12:36:22 2005 UTC
# Line 117  sub getWhere($) { Line 117  sub getWhere($) {
117      return $retSQL;      return $retSQL;
118  }  }
119    
120  sub getFiles($)  sub getFiles($$)
121    {    {
122        my ($where) = @_;        my ($where, $offset) = @_;
123          
124                
125        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",
126          "", "", { RaiseError => 1, AutoCommit => 1 } );          "", "", { RaiseError => 1, AutoCommit => 1 } );
# Line 143  sub getFiles($) Line 144  sub getFiles($)
144                          INNER JOIN hosts   ON hosts.ID = shares.hostID                          INNER JOIN hosts   ON hosts.ID = shares.hostID
145                          INNER JOIN backups ON backups.hostID = hosts.ID                          INNER JOIN backups ON backups.hostID = hosts.ID
146                          LEFT  JOIN dvds    ON dvds.ID = files.dvdid                          LEFT  JOIN dvds    ON dvds.ID = files.dvdid
147                                    
148            };            };
149    
150        if (defined($where) && $where ne "")        if (defined($where) && $where ne "")
# Line 151  sub getFiles($) Line 152  sub getFiles($)
152              $sql .= " WHERE ". $where;                    $sql .= " WHERE ". $where;      
153          }          }
154    
155          $sql .=
156            q{          
157                ORDER BY files.id
158                  LIMIT 100
159                  OFFSET ? * 100 + 1
160            };
161          
162          
163                
164        my $st = $dbh->prepare(        my $st = $dbh->prepare(
165            $sql            $sql
166            );                );    
167          if (!defined($offset) && $offset ne "")
168          {
169            $st->bind_param(1, $offset);
170          }
171          else
172          {
173            $st->bind_param(1,0);
174          }
175        $st->execute;        $st->execute;
176                
177        my @ret = ();        my @ret = ();
# Line 307  EOF3 Line 323  EOF3
323        
324    }          }      
325    
326  sub displayGrid($$)  sub displayGrid($$$)
327    {    {
328        my ($where, $addForm) = @_;        my ($where, $addForm, $offset) = @_;
329        my $retHTML = "";        my $retHTML = "";
330                
331        if ($addForm)        if ($addForm)
332          {          {
333        $retHTML .= <<EOF3;                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=search\"";
334  <script language="javascript" type="text/javascript">                $retHTML.= q{<input type="hidden" value="search" name="action">};
 <!--  
   
     function checkAll(location)  
     {  
       for (var i=0;i<document.forma.elements.length;i++)  
       {  
         var e = document.forma.elements[i];  
         if ((e.checked || !e.checked) && e.name != \'all\') {  
             if (eval("document.forma."+location+".checked")) {  
                 e.checked = true;  
             } else {  
                 e.checked = false;  
             }  
         }  
       }  
     }  
   
   
 //-->  
 </script>        
 EOF3  
               $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=burn\"";  
               $retHTML.= q{<input type="hidden" value="burn" name="action">};  
335                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
336          }          }
337        $retHTML .= "<table style=\"fview\">";        $retHTML .= "<table style=\"fview\">";
338        $retHTML .= "<tr> ";        $retHTML .= "<tr> ";
       if ($addForm)  
         {  
             $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";  
         }  
339        $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>";        $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>";
340        my @files = getFiles($where);        my @files = getFiles($where, $offset);
341        my $file;        my $file;
342    
       if ($addForm)  
         {  
             $retHTML .= "<tr>";  
             $retHTML .= "<td colspan=7 style=\"tableheader\">";  
             $retHTML .= "<input type=\"submit\" value=\"Burn selected files on medium\" name=\"submitBurner\">";  
             $retHTML .= "</td>";  
             $retHTML .= "</tr>";  
               
         }  
343        foreach $file(@files)        foreach $file(@files)
344          {          {
345              my $ftype = "";              my $ftype = "";
# Line 373  EOF3 Line 353  EOF3
353                    $ftype = "file";                    $ftype = "file";
354                }                }
355              $retHTML .= "<tr>";              $retHTML .= "<tr>";
             if ($addForm)  
               {  
                   $retHTML .= "<td class=\"fview\"> <input type=\"checkbox\" name=\"fcb"  
                     .$file->{'id'}  
                   ."\" value=\"".$file->{'id'}."\"> </td>";  
               }      
               
356              $retHTML .= "<td class=\"fviewborder\">" . $file->{'hname'} ."</td>";              $retHTML .= "<td class=\"fviewborder\">" . $file->{'hname'} ."</td>";
357              $retHTML .= "<td class=\"fviewborder\">" . $file->{'fname'} . "</td>";              $retHTML .= "<td class=\"fviewborder\">" . $file->{'fname'} . "</td>";
358              $retHTML .= "<td class=\"fviewborder\">" . $ftype . "</td>";              $retHTML .= "<td class=\"fviewborder\">" . $ftype . "</td>";
# Line 390  EOF3 Line 363  EOF3
363              $retHTML .= "</tr>";              $retHTML .= "</tr>";
364          }          }
365        $retHTML .= "</table>";        $retHTML .= "</table>";
366        if ($addForm)  
367          
368    
369          $retHTML .= "<INPUT TYPE=\"hidden\" VALUE=\"\" NAME=\"offset\">";
370          for (my $ii = 1; $ii <= $#files; $ii++)
371          {
372              $retHTML .= "<a href = \"#\" onclick=\"document.forma.offset.value=$ii;document.forma.submit();\">$ii</a>";
373              if ($ii < $#files)
374                {
375                    $retHTML .= " | ";
376                }
377          }
378    
379    
380           if ($addForm)
381         {         {
382             $retHTML .= "</form>";             $retHTML .= "</form>";
383         }         }
Legend:
Removed from v.6  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26