1 files changed, 29 insertions, 0 deletions
diff --git a/make/install-extras.pl b/make/install-extras.pl
new file mode 100755
index 000000000..f0e2dd0e2
--- /dev/null
+++ b/make/install-extras.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $mode = shift;
+my %installed;
+
+for my $dir (qw(src src/modules)) {
+	opendir(DIRHANDLE, $dir);
+	for my $file (sort readdir(DIRHANDLE)) {
+		next unless $file =~ /\.cpp$/;
+		open CPP, '<', "$dir/$file" or die "Can't open $dir/$file to scan it: $!";
+		while (<CPP>) {
+			if (/\/\* \$CopyInstall: (\S+) (\S+) \*\//i) {
+				my($ifile, $idir) = ($1,$2);
+				next if exists $installed{$1.' '.$2};
+				$installed{$1.' '.$2}++;
+				$idir =~ s/\$\(([^)]+)\)/$ENV{$1}/eg;
+				if ($mode eq 'install') {
+					system "install $ifile $idir";
+				} else {
+					$ifile =~ s/.*\///g;
+					system "rm $idir/$ifile";
+				}
+			}
+		}
+	}
+	closedir(DIRHANDLE);
+}