Automated search for licenses....

[Sam Ruby]

I'm attaching the Perl script I wrote to search for license files in case it inspires any suggestions...

- Sam Ruby

#!/usr/bin/perl
$path = "/home/rubys/jakarta";

for $file (@ARGV) {
        open FILE, "<$file";
        @LINE = <FILE>;
        close FILE;

        ($module) = ($LINE[0] =~ /module\s+name="([-\w]+)"/);
        next unless $module;
        next unless -d "$path/$module";

        $license="";
        $license="license.txt" if -e "$path/$module/license.txt";
        $license="LICENSE.TXT" if -e "$path/$module/LICENSE.TXT";
        $license="LICENSE.txt" if -e "$path/$module/LICENSE.txt";
        $license="LICENSE" if -e "$path/$module/LICENSE";

        next unless $license;

        $lastjar = 0;
        for ($i=0; $i<=$#LINE; $i++) {
                ($lastjar,$indent) = ($i,$1) if ($LINE[$i] =~ /^(\s*)<jar/);
                last if $LINE[$i] =~ "</project>";
        }

        next unless $lastjar;

        if ($LINE[$lastjar+1] =~ /^\s*$/) {
                splice(@LINE,$lastjar+1,0,("\n", "$indent<license 
name=\"$license\"/>\n"));
        } else {
                splice(@LINE,$lastjar+1,0,("$indent<license name=\"$license\"/>\n"));
        }

        print "$file\n";
        open FILE, ">$file";
        print FILE join("",@LINE);
        close FILE;
}


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]