/[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 87 by dpavlin, Sun Aug 28 14:05:08 2005 UTC revision 122 by dpavlin, Fri Sep 16 14:11:00 2005 UTC
# Line 175  sub getFiles($) { Line 175  sub getFiles($) {
175          return ($results, \@ret);          return ($results, \@ret);
176  }  }
177    
178    sub getHyperEstraier_url($) {
179            my ($use_hest) = @_;
180    
181            return unless $use_hest;
182    
183            use HyperEstraier;
184            my ($index_path, $index_node_url);
185    
186            if ($use_hest =~ m#^http://#) {
187                    $index_node_url = $use_hest;
188            } else {
189                    $index_path = $TopDir . '/' . $index_path;
190                    $index_path =~ s#//#/#g;
191            }
192            return ($index_path, $index_node_url);
193    }
194    
195  sub getFilesHyperEstraier($) {  sub getFilesHyperEstraier($) {
196          my ($param) = @_;          my ($param) = @_;
197    
# Line 185  sub getFilesHyperEstraier($) { Line 202  sub getFilesHyperEstraier($) {
202    
203          use HyperEstraier;          use HyperEstraier;
204    
205            my ($index_path, $index_node_url) = getHyperEstraier_url($index_path);
206    
207          # open the database          # open the database
208          my $db = HyperEstraier::Database->new();          my $db;
209          $db->open($index_path, $HyperEstraier::ESTDBREADER);          if ($index_path) {
210                    $db = HyperEstraier::Database->new();
211                    $db->open($index_path, $HyperEstraier::ESTDBREADER);
212            } elsif ($index_node_url) {
213                    $db ||= HyperEstraier::Node->new($index_node_url);
214                    $db->set_auth('admin', 'admin');
215            } else {
216                    die "BUG: unimplemented";
217            }
218    
219          # create a search condition object          # create a search condition object
220          my $cond = HyperEstraier::Condition->new();          my $cond = HyperEstraier::Condition->new();
# Line 195  sub getFilesHyperEstraier($) { Line 222  sub getFilesHyperEstraier($) {
222          my $q = $param->{'search_filename'};          my $q = $param->{'search_filename'};
223          my $shareid = $param->{'search_share'};          my $shareid = $param->{'search_share'};
224    
225          if ($q) {          if (length($q) > 0) {
226                  $q =~ s/(.)/$1 /g;                  # exact match
227                    $cond->add_attr("filepath ISTRINC $q");
228    
229                    $q =~ s/(.)/$1 /g;
230                  # set the search phrase to the search condition object                  # set the search phrase to the search condition object
231                  $cond->set_phrase($q);                  $cond->set_phrase($q);
232          }          }
# Line 217  sub getFilesHyperEstraier($) { Line 246  sub getFilesHyperEstraier($) {
246          $cond->set_order( 'date NUMA' );          $cond->set_order( 'date NUMA' );
247    
248          # get the result of search          # get the result of search
         my $result = $db->search($cond, 0);  
   
249          my @res;          my @res;
250          my $hits = $result->size;          my ($result, $hits);
251    
252            if ($index_path) {
253                    $result = $db->search($cond, 0);
254                    $hits = $result->size;
255            } elsif ($index_node_url) {
256                    $result = $db->search($cond, 0);
257                    $hits = $result->doc_num;
258            } else {
259                    die "BUG: unimplemented";
260            }
261    
262          # for each document in result          # for each document in result
263          for my $i ($offset .. ($offset + $on_page - 1)) {          for my $i ($offset .. ($offset + $on_page - 1)) {
264                  last if ($i >= $hits);                  last if ($i >= $hits);
265    
266                  my $id = $result->get($i);                  my $doc;
267                  my $doc = $db->get_doc($id, 0);                  if ($index_path) {
268                            my $id = $result->get($i);
269                            $doc = $db->get_doc($id, 0);
270                    } elsif ($index_node_url) {
271                            $doc = $result->get_doc($i);
272                    } else {
273                            die "BUG: unimplemented";
274                    }
275    
276                  my $row;                  my $row;
277                  foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {                  foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
# Line 239  sub getFilesHyperEstraier($) { Line 283  sub getFilesHyperEstraier($) {
283          return ($hits, \@res);          return ($hits, \@res);
284  }  }
285    
286    sub getGzipName($$$)
287    {
288            my ($host, $share, $backupnum) = @_;
289            my $ret = $Conf{GzipSchema};
290            
291            $share =~ s/\//_/g;
292            $ret =~ s/\\h/$host/ge;
293            $ret =~ s/\\s/$share/ge;
294            $ret =~ s/\\n/$backupnum/ge;
295            
296            return $ret;
297            
298    }
299    
300  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
301    
302          my $dbh = get_dbh();          my $dbh = get_dbh();
303          my $sql = q{  
304          SELECT          my $sql = q{
305                  backups.hostID          AS hostid,                  SELECT
306                  min(hosts.name)         AS host,                          backups.hostID AS hostID,
307                  backups.num             AS backupnum,                          hosts.name AS host,
308                  min(backups.type)       AS type,                          shares.name AS share,
309                  min(backups.date)       AS date,                          backups.id AS backupnum,
310                  min(backups.size)       AS size                          backups.type AS type,
311          FROM files                          backups.date AS date,
312                  INNER JOIN shares       ON files.shareID=shares.ID                          backups.size AS size
313                  INNER JOIN hosts        ON hosts.ID = shares.hostID                  FROM backups
314                  INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = shares.ID                  INNER JOIN shares       ON backups.shareID=shares.ID
315          GROUP BY                  INNER JOIN hosts        ON backups.hostID = hosts.ID
316                  backups.hostID, backups.num                  LEFT OUTER JOIN archive_backup ON archive_backup.backup_id = backups.id AND archive_backup.backup_id IS NULL
317          ORDER BY min(backups.date)                  WHERE backups.size > 0
318                    GROUP BY
319                            backups.hostID,
320                            hosts.name,
321                            shares.name,
322                            backups.num,
323                            backups.shareid,
324                            backups.id,
325                            backups.type,
326                            backups.date,
327                            backups.size
328                    ORDER BY backups.date
329          };          };
330          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
331          my @ret;          my @ret;
# Line 265  sub getBackupsNotBurned() { Line 334  sub getBackupsNotBurned() {
334          while ( my $row = $sth->fetchrow_hashref() ) {          while ( my $row = $sth->fetchrow_hashref() ) {
335                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
336                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
337                    my (undef,undef,undef,undef,undef,undef,undef,$fs_size,undef,undef,undef,undef,undef) =
338                            stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.
339                                    getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}));
340                    $row->{'fs_size'} = $fs_size;
341                  push @ret, $row;                  push @ret, $row;
342          }          }
343                
# Line 274  sub getBackupsNotBurned() { Line 347  sub getBackupsNotBurned() {
347  sub displayBackupsGrid()  sub displayBackupsGrid()
348    {    {
349        my $retHTML = "";        my $retHTML = "";
       my $addForm = 1;  
350                
351        if ($addForm) {          $retHTML .= <<EOF3;
   
             $retHTML .= <<EOF3;  
352  <script language="javascript" type="text/javascript">  <script language="javascript" type="text/javascript">
353  <!--  <!--
354    
# Line 296  sub displayBackupsGrid() Line 366  sub displayBackupsGrid()
366          }          }
367        }        }
368      }      }
369        
370        function sumiraj()
371        {
372            var suma = 0;
373            for (var i = 0; i < document.forma.elements.length; i++)    
374                    {
375                            var e = document.forma.elements[i];
376                            if ((e.checked || !e.checked) && e.name != \'all\')
377                            {
378                                    if (e.checked)
379                                    {
380                                            var ret = e.name.match("fcb(.*)");
381                                            suma += parseInt(eval("document.forma.fss"+ret[1]+".value"));
382                                            
383                                    }
384                            }
385            }
386            document.forma.totalsize.value = suma;
387            return suma;
388        }
389  //-->  //-->
390  </script>        </script>      
391  EOF3  EOF3
392                $retHTML .= q{<form name="forma" method="GET" action="}."$MyURL"."?action=burn\"";          $retHTML .= q{
393                $retHTML.= q{<input type="hidden" value="burn" name="action">};                  <form name="forma" method="GET" action=};
394                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                  $retHTML .= "\"".$MyURL."\"";
395          }                  $retHTML .= q{?action=burn>
396          $retHTML .= qq{                          <input type="hidden" value="burn" name="action">
397                  <table style="fview" border="1" cellspacing="0" cellpadding="3">                          <input type="hidden" value="results" name="search_results">
398                  <tr class="tableheader">                          <table style="fview" border="0" cellspacing="0" cellpadding="2">
399          };                          <tr class="tableheader">
400                            <td class="tableheader">
401                                    <input type="checkbox" name="allFiles" onClick="checkAll('allFiles');">
402                            </td>
403                            <td align="center">Share</td>
404                            <td align="center">Backup no</td>
405                            <td align="center">Type</td>
406                            <td align="center">date</td>
407                            <td align="center">age/days</td>
408                            <td align="center">size/MB</td>
409                            <td align="center">gzip size</td>
410                            </tr>
411    
         if ($addForm) {  
             $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";  
         }  
         $retHTML .=  qq{  
                 <td align="center">Host</td>  
                 <td align="center">Backup no</td>  
                 <td align="center">Type</td>  
                 <td align="center">date</td>  
                 <td align="center">age/days</td>  
                 <td align="center">size/MB</td>  
                 </tr>  
         };  
   
         my @backups = getBackupsNotBurned();  
         my $backup;  
   
         if ($addForm) {  
                 $retHTML .= qq{  
412                          <tr><td colspan=7 style="tableheader">                          <tr><td colspan=7 style="tableheader">
413                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">
414                          </td></tr>                          </td></tr>
415                  };          };
         }  
416    
417          foreach $backup(@backups) {          my @color = (' bgcolor="#e0e0e0"', '');
418    
419            my $i = 0;
420            my $host = '';
421    
422            foreach my $backup ( getBackupsNotBurned() ) {
423    
424                    if ($host ne $backup->{'host'}) {
425                            $i++;
426                            $host = $backup->{'host'};
427                    }
428                  my $ftype = "";                  my $ftype = "";
429                            
430                  $retHTML .= "<tr>";                  $retHTML .= "<tr" . $color[$i %2 ] . ">";
431                  if ($addForm) {                  $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
432                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .                                                                                          $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
433                                  $backup->{'hostid'}.'_'.$backup->{'backupnum'} .                                                                                          '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
434                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .                                                                                          '" onClick="sumiraj();"></td>';
                                 '"></td>';  
                 }            
435                            
436                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .                  $retHTML .=
437                          '<td class="fviewborder">' . $backup->{'backupnum'} . '</td>' .                          '<td align="right">' . $backup->{'host'} . ':' . $backup->{'share'} . '</td>' .
438                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .                          '<td align="center">' . $backup->{'backupnum'} . '</td>' .
439                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .                          '<td align="center">' . $backup->{'type'} . '</td>' .
440                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
441                          '<td class="fviewborder">' . $backup->{'size'} . '</td>' .                          '<td align="center">' . $backup->{'age'} . '</td>' .
442                          '</tr>';                          '<td align="right">' . $backup->{'size'} . '</td>' .
443          }                          '<td align="right">' . $backup->{'fs_size'} .
444                            '<input type="hidden" name="fss'.$backup->{'hostid'}.'_'.$backup->{'backupnum'} . '"'.
445                            'value="'. $backup->{'fs_size'} .'"'.'</td>' .
446                            "</tr>\n";
447    
         $retHTML .= "</table>";  
448    
         if ($addForm) {  
                 $retHTML .= "</form>";  
449          }          }
450    
451            $retHTML .= "</table>";
452            $retHTML .= "total gzip size:<input type=\"text\" name=\"totalsize\"><br>";
453            $retHTML .= "Note:<input type=\"text\" name=\"note\">";
454            $retHTML .= "</form>";
455                
456          return $retHTML;          return $retHTML;
457  }        }      
# Line 373  sub displayGrid($) { Line 467  sub displayGrid($) {
467          my $start_t = time();          my $start_t = time();
468    
469          my ($results, $files);          my ($results, $files);
470          if ($param->{'use_hest'}) {          if ($param->{'use_hest'} && length($hilite) > 0) {
471                  ($results, $files) = getFilesHyperEstraier($param);                  ($results, $files) = getFilesHyperEstraier($param);
472          } else {          } else {
473                  ($results, $files) = getFiles($param);                  ($results, $files) = getFiles($param);
# Line 435  sub displayGrid($) { Line 529  sub displayGrid($) {
529                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
530                  $retHTML .= qq{<tr class="fviewborder">};                  $retHTML .= qq{<tr class="fviewborder">};
531    
532                  $retHTML .= qq{<td>$i</td>};                  $retHTML .= qq{<td class="fviewborder">$i</td>};
533    
534                  $retHTML .=                  $retHTML .=
535                          qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .                          qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
Legend:
Removed from v.87  
changed lines
  Added in v.122
  ViewVC Help
Powered by ViewVC 1.1.26