2011-09-23 02:00:03 +03:00
|
|
|
#!/usr/bin/perl -w
|
|
|
|
# yes, I know that this task can be done by more simple .bat, but perl script is more portable between OS
|
|
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use Archive::Extract;
|
|
|
|
use Archive::Zip;
|
|
|
|
use File::Copy;
|
|
|
|
use File::Path;
|
|
|
|
|
|
|
|
print "Start compiling...\n";
|
|
|
|
chdir("..");
|
2012-02-13 01:48:28 +04:00
|
|
|
system("mvn clean install -DskipTests");
|
2011-09-23 02:00:03 +03:00
|
|
|
chdir("Mage.Client");
|
|
|
|
system("mvn assembly:assembly");
|
|
|
|
chdir("../Mage.Server");
|
|
|
|
system("mvn assembly:assembly");
|
|
|
|
chdir("..");
|
|
|
|
mkdir("temp");
|
|
|
|
chdir("temp");
|
|
|
|
move("../Mage.Client/target/mage-client.zip", "client.zip");
|
|
|
|
move("../Mage.Server/target/mage-server.zip", "server.zip");
|
|
|
|
copy("../Utils/release/startMage.bat", "startMage.bat");
|
2013-06-08 16:56:23 +02:00
|
|
|
copy("../Utils/release/startMageWin7.bat", "startMageWin7.bat");
|
2014-10-11 01:02:56 +02:00
|
|
|
copy("../Utils/release/startMage.sh", "startMage.sh");
|
2011-09-23 02:00:03 +03:00
|
|
|
|
|
|
|
my $f = Archive::Extract->new( archive => "client.zip");
|
|
|
|
$f->extract( to => "client/");
|
|
|
|
$f = Archive::Extract->new( archive => "server.zip");
|
|
|
|
$f->extract( to => "server/");
|
|
|
|
unlink("client.zip");
|
|
|
|
unlink("server.zip");
|
|
|
|
|
|
|
|
my $zip = Archive::Zip->new();;
|
2012-05-29 21:25:49 +03:00
|
|
|
$zip->addTree("client", "mage-client");
|
|
|
|
$zip->addTree("server", "mage-server");
|
2011-09-23 02:00:03 +03:00
|
|
|
$zip->addFile("startMage.bat");
|
2013-06-08 16:56:23 +02:00
|
|
|
$zip->addFile("startMageWin7.bat");
|
2014-10-09 16:24:49 +02:00
|
|
|
$zip->addFile("startMage.sh");
|
2011-09-23 02:00:03 +03:00
|
|
|
$zip->writeToFileNamed("../mage-bundle.zip");
|
|
|
|
chdir("..");
|
|
|
|
|
|
|
|
rmtree("temp");
|