From 2c835fefb850a3d02add14e9e8aafe13e06a17bb Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 28 Jan 2011 17:41:54 +0100 Subject: [PATCH] move html and javascipt in __DATA__ --- lib/BackupPC/Search.pm | 819 +++++++++++++++++++++-------------------- 1 file changed, 410 insertions(+), 409 deletions(-) diff --git a/lib/BackupPC/Search.pm b/lib/BackupPC/Search.pm index 5e45f35..ad27bb1 100644 --- a/lib/BackupPC/Search.pm +++ b/lib/BackupPC/Search.pm @@ -420,346 +420,18 @@ sub displayBackupsGrid($) { my $max_archive_size = $Conf{ArchiveMediaSize} || die "no ArchiveMediaSize"; my $max_archive_file_size = $Conf{ArchiveChunkSize} || die "no MaxFileInSize"; - my $retHTML .= q{ -
- }; - - $retHTML .= <<'EOF3'; - - -
- - -Size: kB - -
-
 
-
 
-
0%
-
-
- -
 
-Note: - + |; - + { local $/ = undef; $retHTML .= } -
- -EOF3 $retHTML .= q{ @@ -955,113 +627,442 @@ sub displayGrid($) { return $html; } - my $i = $offset * $on_page; + my $i = $offset * $on_page; + + foreach $file (@{ $files }) { + $i++; + + my $typeStr = BackupPC::Attrib::fileType2Text(undef, $file->{'type'}); + $retHTML .= qq{}; + + $retHTML .= qq{$i}; + + $retHTML .= + qq{} . $file->{'hname'} . ':' . $file->{'sname'} . qq{} . + qq{$typeStr } . hilite_html( $file->{'filepath'}, $hilite ) . qq{} . + qq{} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{} . + qq{} . $file->{'size'} . qq{} . + qq{} . epoch_to_iso( $file->{'date'} ) . qq{} . + qq{} . check_archived( $file->{'hname'}, $file->{'sname'}, $file->{'backupnum'} ) . qq{}; + + $retHTML .= ""; + } + $retHTML .= ""; + + # all variables which has to be transfered + 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/) { + $retHTML .= qq{\n}; + } + + my $del = ''; + my $max_page = int( $results / $on_page ); + my $page = 0; + + sub page_uri($) { + my $param = shift || die "no param?"; + + my $uri = $MyURL; + my $del = '?'; + foreach my $k (keys %{ $param }) { + if ($param->{$k}) { + $uri .= $del . $k . '=' . ${EscURI( $param->{$k} )}; + $del = '&'; + } + } + return $uri; + } + + sub page_link($$$) { + my ($param,$page,$display) = @_; + + $param->{'offset'} = $page if (defined($page)); + + my $html = '' . $display . ''; + } + + $retHTML .= '
'; + + if ($offset > 0) { + $retHTML .= page_link($param, $offset - 1, '<<') . ' '; + } + + while ($page <= $max_page) { + if ($page == $offset) { + $retHTML .= $del . '' . ($page + 1) . ''; + } else { + $retHTML .= $del . page_link($param, $page, $page + 1); + } + + if ($page < $offset - $pager_pages && $page != 0) { + $retHTML .= " ... "; + $page = $offset - $pager_pages; + $del = ''; + } elsif ($page > $offset + $pager_pages && $page != $max_page) { + $retHTML .= " ... "; + $page = $max_page; + $del = ''; + } else { + $del = ' | '; + $page++; + } + } + + if ($offset < $max_page) { + $retHTML .= ' ' . page_link($param, $offset + 1, '>>'); + } + + $retHTML .= "
"; + + return $retHTML; +} + +my @units = qw/b k M G/; +sub unit { + my $v = shift; + + my $o = 0; + + while ( ( $v / 10000 ) >= 1 ) { + $o++; + $v /= 1024; + } + + if ( $v >= 1 ) { + return sprintf("%d%s", $v, $units[$o]); + } elsif ( $v == 0 ) { + return 0; + } else { + return sprintf("%.1f%s", $v, $units[$o]); + } +} + +1; + +__DATA__ + + + + +
+ + +Size: kB + +
+
 
+
 
+
0%
+
+
+ +
 
+ +Note: + + + + +
+ + -- 2.20.1