X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FBrowse.pm;h=d9f4b8a5db8b1e48a9b8702514993e149447ba3a;hp=df4f4d07a5d499d3ec5a5c324a812f27b976a821;hb=b81d2da5e16975674f011e4833337ac0fa24e0ea;hpb=79e0593c501fd58046feeca20c315cc4ac283435 diff --git a/lib/BackupPC/CGI/Browse.pm b/lib/BackupPC/CGI/Browse.pm index df4f4d0..d9f4b8a 100644 --- a/lib/BackupPC/CGI/Browse.pm +++ b/lib/BackupPC/CGI/Browse.pm @@ -28,7 +28,7 @@ # #======================================================================== # -# Version 2.1.0beta2, released 23 May 2004. +# Version 3.0.0beta2, released 11 Nov 2006. # # See http://backuppc.sourceforge.net. # @@ -37,6 +37,7 @@ package BackupPC::CGI::Browse; use strict; +use Encode; use BackupPC::CGI::Lib qw(:all); use BackupPC::View; use BackupPC::Attrib qw(:all); @@ -106,6 +107,7 @@ sub action $attr = $view->dirAttrib($num, $share, $relDir); if ( !defined($attr) ) { + $relDir = decode_utf8($relDir); ErrorExit(eval("qq{$Lang->{Can_t_browse_bad_directory_name2}}")); } @@ -156,6 +158,7 @@ sub action } my $dirName = $f; $dirName =~ s/ / /g; + $dirName = decode_utf8($dirName); push(@DirStr, {needTick => 1, tdArgs => " class=\"$tdStyle\"", link => <{type}); my $modeStr = sprintf("0%o", $a->{mode} & 07777); $iconStr = < + EOF $attrStr .= <$typeStr @@ -215,6 +218,7 @@ EOF $attrStr .= " \n"; } (my $fDisp = "${EscHTML($f)}") =~ s/ / /g; + $fDisp = decode_utf8($fDisp); if ( $gotDir ) { $fileStr .= < @@ -251,7 +255,7 @@ EOF } } $share = $currDir; - my $dirDisplay = "$share/$dir"; + my $dirDisplay = decode_utf8("$share/$dir"); $dirDisplay =~ s{//+}{/}g; $dirDisplay =~ s{/+$}{}g; $dirDisplay = "/" if ( $dirDisplay eq "" ); @@ -297,6 +301,7 @@ EOF } $filledBackup .= eval("qq{$Lang->{Visit_this_directory_in_backup}}"); } + $dir = decode_utf8($dir); my $content = eval("qq{$Lang->{Backup_browse_for__host}}"); Header(eval("qq{$Lang->{Browse_backup__num_for__host}}"), $content); Trailer();