projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* checkin with 3.2.0beta0 release header
[BackupPC.git]
/
lib
/
BackupPC
/
CGI
/
RestoreFile.pm
diff --git
a/lib/BackupPC/CGI/RestoreFile.pm
b/lib/BackupPC/CGI/RestoreFile.pm
index
eebf67a
..
9af2df1
100644
(file)
--- a/
lib/BackupPC/CGI/RestoreFile.pm
+++ b/
lib/BackupPC/CGI/RestoreFile.pm
@@
-10,7
+10,7
@@
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2003 Craig Barratt
+# Copyright (C) 2003
-2007
Craig Barratt
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-28,7
+28,7
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 3.
1.0beta0, released 3 Sep 2007
.
+# Version 3.
2.0beta0, released 5 April 2009
.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-183,8
+183,8
@@
sub restoreFile
my $fileName = $1 if ( $dir =~ /.*\/(.*)/ );
$fileName =~ s/"/\\"/g;
my $fileName = $1 if ( $dir =~ /.*\/(.*)/ );
$fileName =~ s/"/\\"/g;
- print "Content-Type: $contentType\n";
- print "Content-Transfer-Encoding: binary\n";
+ print "Content-Type: $contentType\
r\
n";
+ print "Content-Transfer-Encoding: binary\
r\
n";
if ( $ENV{HTTP_USER_AGENT} =~ /\bmsie\b/i
&& $ENV{HTTP_USER_AGENT} !~ /\bopera\b/i ) {
if ( $ENV{HTTP_USER_AGENT} =~ /\bmsie\b/i
&& $ENV{HTTP_USER_AGENT} !~ /\bopera\b/i ) {
@@
-196,7
+196,7
@@
sub restoreFile
from_to($fileName, "utf8", "cp1252")
if ( $Conf{ClientCharset} ne "" );
}
from_to($fileName, "utf8", "cp1252")
if ( $Conf{ClientCharset} ne "" );
}
- print "Content-Disposition: attachment; filename=\"$fileName\"\
n
\n";
+ print "Content-Disposition: attachment; filename=\"$fileName\"\
r\n\r
\n";
while ( $f->read(\$data, 1024 * 1024) > 0 ) {
print STDOUT $data;
}
while ( $f->read(\$data, 1024 * 1024) > 0 ) {
print STDOUT $data;
}