X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=bin%2FBackupPC_archive;h=9a8cd3294c93ebd39a2207ed1f38068a821576d5;hb=e560b163a4a8b37d45204da70b60b1ba07199afe;hp=7d38e818d0303fb26dd363a30dd1e7e06a15d767;hpb=fda25dc88a63ccac1c80efa2e4994bf0725ca9b7;p=BackupPC.git diff --git a/bin/BackupPC_archive b/bin/BackupPC_archive index 7d38e81..9a8cd32 100644 --- a/bin/BackupPC_archive +++ b/bin/BackupPC_archive @@ -1,4 +1,4 @@ -#!/bin/perl +#!/usr/bin/perl #============================================================= -*-perl-*- # # BackupPC_archive: Archive files for an archive client. @@ -29,7 +29,7 @@ # #======================================================================== # -# Version 3.1.0, released 25 Nov 2007. +# Version 3.2.0beta0, released 5 April 2009. # # See http://backuppc.sourceforge.net. # @@ -64,7 +64,7 @@ if ( @ARGV != 3 ) { } $user = $1 if ( $ARGV[0] =~ /(.+)/ ); $client = $1 if ( $ARGV[1] =~ /(.+)/ ); -if ( $ARGV[2] !~ /^([\w.]+)$/ ) { +if ( $ARGV[2] !~ /^([\w\.\s-]+)$/ ) { print("$0: bad reqFileName (arg #3): $ARGV[2]\n"); exit(1); }