X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=bin%2FBackupPC_link;h=44dbccb162ad03704021353f77270cee68a052b7;hb=e4a233559926fe41888b2f6c5cc716401b715162;hp=85a93887834b12488c1b219a687abfe197bb3fb8;hpb=1ce7d1541ea1279aaa0a75c16986a3fd40b608ec;p=BackupPC.git diff --git a/bin/BackupPC_link b/bin/BackupPC_link index 85a9388..44dbccb 100755 --- a/bin/BackupPC_link +++ b/bin/BackupPC_link @@ -39,14 +39,14 @@ # #======================================================================== # -# Version 1.5.0, released 2 Aug 2002. +# Version 2.0.0beta2, released 13 Apr 2003. # # See http://backuppc.sourceforge.net. # #======================================================================== use strict; -use lib "__INSTALLDIR__/lib"; +use lib "/usr/local/BackupPC/lib"; use BackupPC::Lib; use BackupPC::Attrib; use BackupPC::PoolWrite; @@ -70,7 +70,7 @@ if ( @ARGV != 1 ) { print("usage: $0 \n"); exit(1); } -if ( $ARGV[0] !~ /^([\w\.-]+)$/ ) { +if ( $ARGV[0] !~ /^([\w\.\s-]+)$/ ) { print("$0: bad host name '$ARGV[0]'\n"); exit(1); } @@ -105,7 +105,7 @@ while ( 1 ) { # $CurrDumpDir = "$Dir/$Backups[$num]{num}"; $Compress = $Backups[$num]{compress}; - if ( open(NEW, "$Dir/NewFileList.$Backups[$num]{num}") ) { + if ( open(NEW, "<", "$Dir/NewFileList.$Backups[$num]{num}") ) { while ( ) { chomp; next if ( !/(\w+) (\d+) (.*)/ );