From: Ansgar Burchardt Date: Thu, 6 Dec 2012 11:32:02 +0000 (+0100) Subject: debianqueued: only start processing files with a sane name X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9bbcad51a6bc29e1e2387bede844f3e937295225;p=dak debianqueued: only start processing files with a sane name --- diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued index 4d2daa09..4c77e2af 100755 --- a/tools/debianqueued-0.9/debianqueued +++ b/tools/debianqueued-0.9/debianqueued @@ -490,6 +490,7 @@ sub check_dir() { # look for *.commands and *.dak-commands files but not in delayed queues if ( $adelay == -1 ) { foreach $file (<*.commands>) { + next unless $file =~ /$re_file_safe/; init_mail($file); block_signals(); process_commands($file); @@ -499,6 +500,7 @@ sub check_dir() { finish_mail(); } ## end foreach $file (<*.commands>) foreach $file (<*.dak-commands>) { + next unless $file =~ /$re_file_safe/; init_mail($file); block_signals(); process_dak_commands($file); @@ -522,6 +524,7 @@ sub check_dir() { @changes = grep /\.changes$/, @files; push( @keep_files, @changes ); # .changes files aren't stray foreach $file (@changes) { + next unless $file =~ /$re_file_safe/; init_mail($file); # wrap in an eval to allow jumpbacks to here with die in case @@ -562,6 +565,7 @@ sub check_dir() { my ( $maint, $pattern, @job_files ); if ( $file =~ /^junk-for-writable-test/ || $file !~ m,$conf::valid_files, + || $file !~ /$re_file_safe/ || $age >= $conf::stray_remove_timeout ) { msg( "log",