From 26d05f0437dc2d29cf67cf8e04e89b7c23196df1 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 15 May 2017 18:21:59 -0700
Subject: [PATCH] Add --exclude flag

---
 create-module.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/create-module.pl b/create-module.pl
index 945a2e06a..c86163370 100755
--- a/create-module.pl
+++ b/create-module.pl
@@ -5,9 +5,11 @@
 
 @ARGV >= 2 || die "usage: create-module.pl [--dir name] <file.wbm> <module>[/version] ..";
 
+my $pwd;
 chop($pwd = `pwd`);
 
 # Parse command-line options
+my @exclude;
 while(@ARGV) {
 	if ($ARGV[0] eq "--dir") {
 		shift(@ARGV);
@@ -17,17 +19,21 @@ while(@ARGV) {
 		shift(@ARGV);
 		$createsig = 1;
 		}
+	elsif ($ARGV[0] eq "--exclude") {
+		shift(@ARGV);
+		push(@exclude, shift(@ARGV));
+		}
 	else {
 		last;
 		}
 	}
 
-$file = shift(@ARGV);
+my $file = shift(@ARGV);
 if ($file !~ /^\//) {
 	$file = "$pwd/$file";
 	}
 unlink($file);
-foreach $m (@ARGV) {
+foreach my $m (@ARGV) {
 	# Parse module and forced version
 	$m =~ s/\/$//;
 	if ($m =~ /^(.*)\/(.*)$/) {
@@ -46,6 +52,9 @@ foreach $m (@ARGV) {
 	$copydir = "/tmp/create-module/$subdir";
 	system("rm -rf $copydir");
 	system("cp -r -L $mod $copydir 2>/dev/null || cp -R -L $mod $copydir");
+	foreach my $e (@exclude) {
+		system("find $copydir -name ".quotemeta($e)." | xargs rm -rf");
+		}
 
 	# Find type from .info file
 	undef(%minfo);