/[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 227 by dpavlin, Mon Oct 24 15:04:45 2005 UTC revision 254 by dpavlin, Mon Dec 12 16:07:27 2005 UTC
# Line 257  sub getHyperEstraier_url($) { Line 257  sub getHyperEstraier_url($) {
257          if ($use_hest =~ m#^http://#) {          if ($use_hest =~ m#^http://#) {
258                  $index_node_url = $use_hest;                  $index_node_url = $use_hest;
259          } else {          } else {
260                  $index_path = $TopDir . '/' . $index_path;                  $index_path = $TopDir . '/' . $use_hest;
261                  $index_path =~ s#//#/#g;                  $index_path =~ s#//#/#g;
262          }          }
263          return ($index_path, $index_node_url);          return ($index_path, $index_node_url);
# Line 377  sub get_tgz_size_by_name($) { Line 377  sub get_tgz_size_by_name($) {
377    
378          my $size = -1;          my $size = -1;
379    
380          if (-f $tgz) {          if (-f "${tgz}.tar.gz") {
381                  $size = (stat($tgz))[7];                  $size = (stat("${tgz}.tar.gz"))[7];
382          } elsif (-d $tgz) {          } elsif (-d $tgz) {
383                  opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";                  opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";
384                  my @parts = grep { !/^\./ && -f "$tgz/$_" } readdir($dir);                  my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);
385                  $size = 0;                  $size = 0;
386                  foreach my $part (@parts) {                  foreach my $part (@parts) {
387                          $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";                          $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";
388                  }                  }
389                  closedir $dir;                  closedir $dir;
390            } else {
391                    return -1;
392          }          }
393    
394          return $size;          return $size;
# Line 480  sub displayBackupsGrid($) { Line 482  sub displayBackupsGrid($) {
482    
483          my $param = shift;          my $param = shift;
484    
485            my $max_archive_size = $Conf{MaxArchiveSize} || die "no MaxArchiveSize";
486            my $max_archive_file_size = $Conf{MaxArchiveFileSize}  || die "no MaxFileInSize";
487    
488          my $retHTML .= q{          my $retHTML .= q{
489                  <form id="forma" method="POST" action="}.$MyURL.q{?action=burn">                  <form id="forma" method="POST" action="}.$MyURL.q{?action=burn">
490          };          };
# Line 603  var debug_div = null; Line 608  var debug_div = null;
608  EOF3  EOF3
609    
610          # take maximum archive size from configuration          # take maximum archive size from configuration
611          $retHTML .= 'var media_size = '. $Conf{MaxArchiveSize} .';';          $retHTML .= qq{
612    var media_size = $max_archive_size ;
613    var max_file_size = $max_archive_file_size;
614    
615    };
616    
617          $retHTML .= <<'EOF3';          $retHTML .= <<'EOF3';
618    
# Line 683  function sumiraj(e) { Line 692  function sumiraj(e) {
692                  }                  }
693    
694                  var parts = parseInt( element_id("prt" + e.name.substr(3)).value);                  var parts = parseInt( element_id("prt" + e.name.substr(3)).value);
695                  if (suma > media_size && suma == size && parts > 1) {                  if (suma > max_file_size && suma == size && parts > 1) {
696                          element_id("parts").innerHTML = "This will take "+parts+" mediums!";                          element_id("parts").innerHTML = "This will take "+parts+" mediums!";
697                          element_id("parts").style.display = 'block';                          element_id("parts").style.display = 'block';
698                          update_sum(media_size, suma);                          update_sum(media_size, suma);
# Line 918  sub displayGrid($) { Line 927  sub displayGrid($) {
927          sub sort_header($$$$) {          sub sort_header($$$$) {
928                  my ($param, $display, $name, $align) = @_;                  my ($param, $display, $name, $align) = @_;
929    
930                  my ($sort_what, $sort_dir) = split(/_/,$param->{'sort'},2);                  my ($sort_what, $sort_direction) = split(/_/,$param->{'sort'},2);
931    
932                  my $old_sort = $param->{'sort'};                  my $old_sort = $param->{'sort'};
933    
934                  my $html = qq{<td align="$align"};                  my $html = qq{<td align="$align"};
935                    my $arrow = '';
936    
937                  if (lc($sort_what) eq lc($name)) {                  if (lc($sort_what) eq lc($name)) {
938                          my $dir = lc($sort_dir);                          my $direction = lc($sort_direction);
939                          $dir =~ tr/ad/da/;  
940                          $param->{'sort'} = $name . '_' . $dir;                          # swap direction or fallback to default
941                            $direction =~ tr/ad/da/;
942                            $direction = 'a' unless ($direction =~ /[ad]/);
943    
944                            $param->{'sort'} = $name . '_' . $direction;
945                          $html .= ' style="border: 1px solid #808080;"';                          $html .= ' style="border: 1px solid #808080;"';
946                    
947                            # add unicode arrow for direction
948                            $arrow .= '&nbsp;';
949                            $arrow .= $direction eq 'a'  ?  '&#9650;'
950                                    : $direction eq 'd'  ?  '&#9660;'
951                                    :                       ''
952                                    ;
953    
954                  } else {                  } else {
955                          $param->{'sort'} = $name . '_a';                          $param->{'sort'} = $name . '_a';
956                  }                  }
957                  $html .= '><a href="' . page_uri($param) . '">' . $display . '</a></td>';  
958                    $html .= '><a href="' . page_uri($param) . '">' . $display . '</a>' . $arrow . '</td>';
959                  $param->{'sort'} = $old_sort;                  $param->{'sort'} = $old_sort;
960    
961                  return $html;                  return $html;
Legend:
Removed from v.227  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.26