#*******************************************************************************
# Jalview - A Sequence Alignment Editor and Viewer (Version 2.7)
# Copyright (C) 2011 J Procter, AM Waterhouse, G Barton, M Clamp, S Searle
#
# This file is part of Jalview.
#
# Jalview is free software: you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
#
# Jalview is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with Jalview. If not, see .
#*******************************************************************************
#!/usr/bin/perl
use strict;
# Jalview - A Sequence Alignment Editor and Viewer (Version 2.7)
# Copyright (C) 2011 J Procter, AM Waterhouse, G Barton, M Clamp, S Searle
#
# This file is part of Jalview.
#
# Jalview is free software: you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
#
# Jalview is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with Jalview. If not, see .
# perverse script to get rid of unwanted jar signatures
use Cwd qw(abs_path);
use File::Temp qw(tempdir);
my $tempdir = tempdir( CLEANUP => 1);
my $jarfile;
my @jarfiles;
while (scalar @ARGV) {
my $jarfile = shift @ARGV;
((-f $jarfile) and $jarfile=~/.+\.jar/)
and push @jarfiles, abs_path($jarfile);
}
my $pwdir = `pwd`;
chdir($tempdir);
while (scalar @jarfiles) {
$jarfile = shift @jarfiles;
system("rm -Rf *");
system("jar xf $jarfile");
system("mv $jarfile $jarfile.bak");
system("find META-INF \\( -name \"*.SF\" \\) -exec rm -f \\{\\} \\;");
system("find META-INF \\( -name \"*.RSA\" \\) -exec rm -f \\{\\} \\;");
system("find META-INF \\( -name \"*.DSA\" \\) -exec rm -f \\{\\} \\;");
system("jar cf $jarfile *");
}
chdir($pwdir);