X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=cgi-bin%2FBackupPC_Admin;h=5dd2ba9ba4a47b00429416aa58d81589b083b679;hb=8d7768574bb328c669a44c6efbff01e8a7e93d7e;hp=906b4bbb6cbaf62c54ca1bcf6c7426016e0c07fb;hpb=74dc9d456332757127d5eda4ce32f29377133fa2;p=BackupPC.git diff --git a/cgi-bin/BackupPC_Admin b/cgi-bin/BackupPC_Admin index 906b4bb..5dd2ba9 100755 --- a/cgi-bin/BackupPC_Admin +++ b/cgi-bin/BackupPC_Admin @@ -39,13 +39,14 @@ # #======================================================================== # -# Version 2.0.0beta3, released 1 Jun 2003. +# Version 2.0.0, released 14 Jun 2003. # # See http://backuppc.sourceforge.net. # #======================================================================== use strict; +no utf8; use CGI; use lib "/usr/local/BackupPC/lib"; use BackupPC::Lib; @@ -388,6 +389,7 @@ sub Action_View } elsif ( $type eq "docs" ) { $file = "$BinDir/../doc/BackupPC.html"; if ( open(LOG, $file) ) { + binmode(LOG); Header($Lang->{BackupPC__Documentation}); print while ( ); close(LOG); @@ -1018,6 +1020,7 @@ EOF [qw(*RestoreReq)]); $dump->Indent(1); if ( open(REQ, ">$TopDir/pc/$hostDest/$reqFileName") ) { + binmode(REQ); print(REQ $dump->Dump); close(REQ); } else {