X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_archive;h=16902d67cfa2cff88f81d4cd691498735c82f2a4;hp=f1fb9bd655d3756ba4b7096c25e538851f6f9340;hb=488bb662f6d144d42376b3d14e9b1e438e00e6f8;hpb=b81d2da5e16975674f011e4833337ac0fa24e0ea diff --git a/bin/BackupPC_archive b/bin/BackupPC_archive old mode 100644 new mode 100755 index f1fb9bd..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.0beta2, released 11 Nov 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); }