use strict;
use warnings;
use File::Glob ':glob';
use Archive::Zip;
use Archive::Zip::MemberRead;

#---------------------------------------------------------
# Enter Directory of File to be changed
#---------------------------------------------------------
print "\n\nEnter Directory (eg. config or masterdata):\n\n";
chomp (my $DIR = <STDIN>);
$DIR = lc $DIR;

#---------------------------------------------------------
# Enter File to be changed
#---------------------------------------------------------
print "\n\nEnter File to be changed (pixx.cfg):\n\n";
chomp (my $FILE = <STDIN>);

#---------------------------------------------------------
# Zipping Files 
#--------------------------------------------------------
my @jar_name = glob ("*.jar");
foreach my $jar_name (@jar_name){
           my $zip = new Archive::Zip($jar_name);
           my $member1 = $zip->removeMember( "$DIR/$FILE" );
           my $member = $zip->addFile(".\\$DIR\\$FILE");
$zip->overwrite("$jar_name");
print "\nChanging $FILE in DIRECTORY $DIR on $jar_name \n";

#---------------------------------------------------------
# Signing JAR
#--------------------------------------------------------
print "Signing $jar_name\n";
system ("D:\\WIN32APP\\SDK_142_03\\bin\\jarsigner -keystore pKeystore -storepass noname -keypass noname $jar_name otto");
print "Signing $jar_name DONE!\n";
   }
 }
exit
}