From 87d14d029ffcf90065c56747854b475d9beba187 Mon Sep 17 00:00:00 2001 From: jp30 Date: Wed, 27 Jul 2005 07:10:02 +0000 Subject: upload-unslung-modules target --- scripts/.mtn2git_empty | 0 scripts/package-strip.pl | 28 ++++++++++++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 scripts/.mtn2git_empty create mode 100755 scripts/package-strip.pl (limited to 'scripts') diff --git a/scripts/.mtn2git_empty b/scripts/.mtn2git_empty new file mode 100644 index 0000000000..e69de29bb2 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 = ; +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 [output filename]\nRemember to escape wildcard characters for the shell."; + die if $cack; +} + -- cgit v1.2.3