X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_archive;h=16902d67cfa2cff88f81d4cd691498735c82f2a4;hp=ad10f1fca205315d5879d093321ac885868bb105;hb=488bb662f6d144d42376b3d14e9b1e438e00e6f8;hpb=df717077755b9331fa245f72933ef03add7a3710;ds=sidebyside diff --git a/bin/BackupPC_archive b/bin/BackupPC_archive old mode 100644 new mode 100755 index ad10f1f..16902d6 --- 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. @@ -11,7 +11,7 @@ # Josh Marshall # # COPYRIGHT -# Copyright (C) 2001-2004 Craig Barratt +# Copyright (C) 2001-2009 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 @@ -29,7 +29,7 @@ # #======================================================================== # -# Version 3.0.0beta1, released 30 Jul 2006. +# Version 3.2.0, released 31 Jul 2010. # # 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); }