diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/.mtn2git_empty | 0 | ||||
| -rwxr-xr-x | scripts/package-strip.pl | 28 |
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; +} + |