/[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 102 by dpavlin, Tue Aug 30 22:43:01 2005 UTC revision 121 by iklaric, Thu Sep 15 13:54:29 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 219  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 241  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    
304          my $sql = q{          my $sql = q{
305          SELECT                  SELECT
306                  backups.hostID          AS hostid,                          backups.hostID AS hostID,
307                  min(hosts.name)         AS host,                          hosts.name AS host,
308                  min(shares.name)        AS share,                          shares.name AS share,
309                  backups.num             AS backupnum,                          backups.id AS backupnum,
310                  min(backups.type)       AS type,                          backups.type AS type,
311                  min(backups.date)       AS date,                          backups.date AS date,
312                  min(backups.size)       AS size                          backups.size AS size
313          FROM files                  FROM backups
314                  INNER JOIN shares       ON files.shareID=shares.ID                  WHERE id not in( select id from backups,archive_backup where archive_backup.backup_id=backups.id)
315                  INNER JOIN hosts        ON hosts.ID = shares.hostID                  ORDER BY backups.date
                 INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = shares.ID  
         GROUP BY  
                 backups.hostID, backups.num, backups.shareid  
         ORDER BY min(backups.date)  
316          };          };
317          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
318          my @ret;          my @ret;
# Line 268  sub getBackupsNotBurned() { Line 321  sub getBackupsNotBurned() {
321          while ( my $row = $sth->fetchrow_hashref() ) {          while ( my $row = $sth->fetchrow_hashref() ) {
322                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
323                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
324                    my (undef,undef,undef,undef,undef,undef,undef,$fs_size,undef,undef,undef,undef,undef) =
325                            stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.
326                                    getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}));
327                    $row->{'fs_size'} = $fs_size;
328                  push @ret, $row;                  push @ret, $row;
329          }          }
330                
# Line 296  sub displayBackupsGrid() Line 353  sub displayBackupsGrid()
353          }          }
354        }        }
355      }      }
356        
357        function sumiraj()
358        {
359            var suma = 0;
360            for (var i = 0; i < document.forma.elements.length; i++)    
361                    {
362                            var e = document.forma.elements[i];
363                            if ((e.checked || !e.checked) && e.name != \'all\')
364                            {
365                                    if (e.checked)
366                                    {
367                                            var ret = e.name.match("fcb(.*)");
368                                            suma += parseInt(eval("document.forma.fss"+ret[1]+".value"));
369                                            
370                                    }
371                            }
372            }
373            document.forma.totalsize.value = suma;
374            return suma;
375        }
376  //-->  //-->
377  </script>        </script>      
378  EOF3  EOF3
379          $retHTML .= q{          $retHTML .= q{
380                  <form name="forma" method="GET" action="$MyURL?action=burn">                  <form name="forma" method="GET" action=};
381                  <input type="hidden" value="burn" name="action">                  $retHTML .= "\"".$MyURL."\"";
382                  <input type="hidden" value="results" name="search_results">                  $retHTML .= q{?action=burn>
383                  <table style="fview" border="0" cellspacing="0" cellpadding="2">                          <input type="hidden" value="burn" name="action">
384                  <tr class="tableheader">                          <input type="hidden" value="results" name="search_results">
385                  <td class="tableheader">                          <table style="fview" border="0" cellspacing="0" cellpadding="2">
386                          <input type="checkbox" name="allFiles" onClick="checkAll('allFiles');">                          <tr class="tableheader">
387                  </td>                          <td class="tableheader">
388                  <td align="center">Share</td>                                  <input type="checkbox" name="allFiles" onClick="checkAll('allFiles');">
389                  <td align="center">Backup no</td>                          </td>
390                  <td align="center">Type</td>                          <td align="center">Share</td>
391                  <td align="center">date</td>                          <td align="center">Backup no</td>
392                  <td align="center">age/days</td>                          <td align="center">Type</td>
393                  <td align="center">size/MB</td>                          <td align="center">date</td>
394                  </tr>                          <td align="center">age/days</td>
395                            <td align="center">size/MB</td>
396                  <tr><td colspan=7 style="tableheader">                          <td align="center">gzip size</td>
397                  <input type="submit" value="Burn selected backups on medium" name="submitBurner">                          </tr>
398                  </td></tr>  
399                            <tr><td colspan=7 style="tableheader">
400                            <input type="submit" value="Burn selected backups on medium" name="submitBurner">
401                            </td></tr>
402          };          };
403    
404          my @color = (' bgcolor="#e0e0e0"', '');          my @color = (' bgcolor="#e0e0e0"', '');
# Line 336  EOF3 Line 416  EOF3
416                            
417                  $retHTML .= "<tr" . $color[$i %2 ] . ">";                  $retHTML .= "<tr" . $color[$i %2 ] . ">";
418                  $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .                  $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
419                                  $backup->{'hostid'}.'_'.$backup->{'backupnum'} .                                                                                          $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
420                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .                                                                                          '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
421                                  '"></td>';                                                                                          '" onClick="sumiraj();"></td>';
422                            
423                  $retHTML .=                  $retHTML .=
424                          '<td align="right">' . $backup->{'host'} . ':' . $backup->{'share'} . '</td>' .                          '<td align="right">' . $backup->{'host'} . ':' . $backup->{'share'} . '</td>' .
# Line 347  EOF3 Line 427  EOF3
427                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .                          '<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
428                          '<td align="center">' . $backup->{'age'} . '</td>' .                          '<td align="center">' . $backup->{'age'} . '</td>' .
429                          '<td align="right">' . $backup->{'size'} . '</td>' .                          '<td align="right">' . $backup->{'size'} . '</td>' .
430                            '<td align="right">' . $backup->{'fs_size'} .
431                            '<input type="hidden" name="fss'.$backup->{'hostid'}.'_'.$backup->{'backupnum'} . '"'.
432                            'value="'. $backup->{'fs_size'} .'"'.'</td>' .
433                          "</tr>\n";                          "</tr>\n";
434    
435    
436          }          }
437    
438          $retHTML .= "</table>";          $retHTML .= "</table>";
439            $retHTML .= "total gzip size:<input type=\"text\" name=\"totalsize\"><br>";
440            $retHTML .= "Note:<input type=\"text\" name=\"note\">";
441          $retHTML .= "</form>";          $retHTML .= "</form>";
442                
443          return $retHTML;          return $retHTML;
Legend:
Removed from v.102  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.26