upload-unslung-modules target

2 files changed, 28 insertions, 0 deletions

diff --git a/scripts/.mtn2git_empty b/scripts/.mtn2git_empty
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/scripts/.mtn2git_empty
diff --git a/scripts/package-strip.pl b/scripts/package-strip.pl
new file mode 100755
index 0000000000..45c64134f8
--- /dev/null
+++ b/scripts/package-strip.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+my $pat = shift(@ARGV) || usage(1);
+my $infile = shift(@ARGV) || usage(1);
+my $outfile = shift(@ARGV) || "-";
+print STDERR "Package-strip processing input file $infile\n";
+print STDERR "Output to " . ($outfile ne "-" ? $outfile : "stdout") . "\n";
+
+# massage the regexp to accept semi-shell-style *
+$pat =~ s/\*/.*/g;
+
+open (I,"<$infile") || die $@;
+open (O,">>$outfile") || die $@;
+undef $/;
+my $srctext = <I>;
+close(I);
+
+my @srclist = split(/\012\012\012/,$srctext);
+my @outlist = grep(/Package: $pat/,@srclist);
+print O join("\012\012\012",@outlist);
+print O "\012\012\012";
+
+sub usage {
+       my $cack = shift(@_);
+       print STDERR "usage: Package-strip <regexp> <filename> [output filename]\nRemember to escape wildcard characters for the shell.";
+       die if $cack;
+}
+