#
#========================================================================
#
-# Version 3.0.0alpha, released 23 Jan 2006.
+# Version 3.0.0beta2, released 11 Nov 2006.
#
# See http://backuppc.sourceforge.net.
#
use BackupPC::CGI::Lib qw(:all);
use Data::Dumper;
use File::Path;
+use Encode;
sub action
{
$hiddenStr .= <<EOF;
<input type="hidden" name="fcb$i" value="$In{'fcb' . $i}">
EOF
+ $name = decode_utf8($name);
$fileListStr .= <<EOF;
<li> ${EscHTML($name)}
EOF
#
# Tell the user what options they have
#
+ $pathHdr = decode_utf8($pathHdr);
$content .= eval("qq{$Lang->{Restore_Options_for__host2}}");
if ( @hosts == 1 ) {
(my $strippedShareDest = $In{shareDest}) =~ s/^\///;
substr($targetFile, 0, length($pathHdr)) = "/$In{pathHdr}/";
$targetFile =~ s{//+}{/}g;
+ $strippedShareDest = decode_utf8($strippedShareDest);
+ $targetFile = decode_utf8($targetFile);
+ $strippedShare = decode_utf8($strippedShare);
+ $f = decode_utf8($f);
$fileListStr .= <<EOF;
<tr><td>$host:/$strippedShare$f</td><td>$In{hostDest}:/$strippedShareDest$targetFile</td></tr>
EOF
}
+ $In{shareDest} = decode_utf8($In{shareDest});
+ $In{pathHdr} = decode_utf8($In{pathHdr});
my $content = eval("qq{$Lang->{Are_you_sure}}");
Header(eval("qq{$Lang->{Restore_Confirm_on__host}}"), $content);
Trailer();