remove p+3 < query.length
[jalview.git] / utils / jarunsigner.pl
1 #!/usr/bin/perl
2 use strict;
3
4 # perverse script to get rid of unwanted jar signatures
5 use Cwd qw(abs_path);
6 use File::Temp qw(tempdir);
7
8 my $tempdir = tempdir( CLEANUP => 1);
9
10 my $jarfile;
11
12 my @jarfiles;
13
14 while (scalar @ARGV) {
15     my $jarfile = shift @ARGV;
16     ((-f $jarfile) and $jarfile=~/.+\.jar/) 
17         and push @jarfiles, abs_path($jarfile);
18 }
19 my $pwdir = `pwd`;
20 chdir($tempdir);
21
22 while (scalar @jarfiles) {
23     $jarfile = shift @jarfiles;
24     system("rm -Rf *");
25     system("jar xf $jarfile");
26     system("mv $jarfile $jarfile.bak");
27     system("find META-INF \\( -name \"*.SF\" \\) -exec rm \\{\\} \\;");
28     system("find META-INF \\( -name \"*.RSA\" \\) -exec rm \\{\\} \\;");
29     system("jar cf $jarfile *");
30 }
31
32 chdir($pwdir);