1#!/usr/bin/perl
2
3# Strip out stuff that doesn't belong in the Gimp distribution.
4
5foreach $file (@ARGV) {
6    $output = "";
7    $do_output = 1;
8    $tmpfile = "$file.tmp";
9    open INPUT, $file or die "Can't open $file: $!\n";
10    while (<>) {
11	if (/@-@-@-@-@ NO-GIMP @-@-@-@-@/) {
12	    $do_output = 0;
13	} elsif (/@-@-@-@-@ YES-GIMP @-@-@-@-@/) {
14	    $do_output = 1;
15	} elsif ($do_output) {
16	    $output .= $_;
17	}
18    }
19    close INPUT;
20    open OUTPUT, ">$tmpfile" or die "Can't open $tmpfile: $!\n";
21    print OUTPUT $output or die "Can't write to $tmpfile: $!\n";
22    close OUTPUT or die "Can't close $tmpfile: $!\n";
23    rename $tmpfile, $file or die "Can't rename $tmpfile to $file: $!\n";
24}
25
26