Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tools update

Browse Source 
Upd .gitignore to ignore object everywhere
Add update.pl, a small perl script to auto git update and apply db
update in sql.
Add setup_perl.sh, to setup perl environnement for module used by perl.
Move some function into rA_common.pm
This commit is contained in:
Lighta 2014-12-18 20:14:48 -05:00
parent 4d5fc9604c
commit af0da61426
6 changed files with 415 additions and 158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored
View File

@ -22,6 +22,9 @@ Thumbs.db
/*.sdf /*.sdf
/*.stackdump /*.stackdump
/*.suo /*.suo
*.o
*.a
*.yml
/char-server /char-server
/char-server /char-server
/config.log /config.log
@ -124,4 +127,3 @@ Thumbs.db
/vcproj-9/login-server /vcproj-9/login-server
/vcproj-9/map-server /vcproj-9/map-server
/vcproj-9/mapcache /vcproj-9/mapcache
/conf/.tmp-desd_conf.yml

216
tools/config.pl
View File

@ -11,6 +11,7 @@ use Cwd;
use Getopt::Long; use Getopt::Long;
use Net::Ping; use Net::Ping;
use strict; use strict;
use rA_Common;
use constant { use constant {
SERV_UID => "Serv_userid", SERV_UID => "Serv_userid",
@ -35,14 +36,6 @@ use constant {
MIN_PORT => 2000, #below are usually reserved for system MIN_PORT => 2000, #below are usually reserved for system
MAX_PORT => 65535, MAX_PORT => 65535,
}; };
#BEGIN { #check and install module
# my @aCheckModule = ("File::Basename","DBI","DBD::mysql","YAML","YAML::XS","Cwd","Getopt::Long","Net::Ping");
# my @aMarkInst = ();
# foreach(@aCheckModule) { eval "require $_" or push(@aMarkInst,$_); }
# CPAN::install("@aMarkInst") if(@aMarkInst > 0);
# foreach(@aCheckModule) { $_->import(); }
#}
# setup my defaults option # setup my defaults option
my $sDsdFile = DESD_CONF_FILE; my $sDsdFile = DESD_CONF_FILE;
my $sAutoyes = 0; my $sAutoyes = 0;
@ -73,7 +66,7 @@ sub GetArgs {
."\t --auto => auto-yes to question ? \n" ."\t --auto => auto-yes to question ? \n"
."\t --C => Clean (remove file, db, user before adding new)\n" ."\t --C => Clean (remove file, db, user before adding new)\n"
."\t --target => target (specify wich setup to run [$sValidTarget])\n" ."\t --target => target (specify wich setup to run [$sValidTarget])\n"
."\t --Force => Force (bypass verification)\n"; ."\t --Force => Force (bypass verification)\n"
."\t --OS => (specify the os you wish to use and avoid check)"; ."\t --OS => (specify the os you wish to use and avoid check)";
exit; exit;
} }
@ -109,40 +102,40 @@ sub Main {
SQL_LOG_DB => ,"ragnarok", SQL_LOG_DB => ,"ragnarok",
); );
my $sBasedir = getcwd; #for setupdb my $sBasedir = getcwd; #for setupdb
if($sTarget =~ /All|Inst/i){ InstallSoft(); } if($sTarget =~ /All|Inst/i){ InstallSoft(); }
if($sTarget =~ /All|Conf/i) { ConfigConf(\%hDefConf); chdir "$sBasedir"; } if($sTarget =~ /All|Conf/i) { ConfigConf(\%hDefConf); chdir "$sBasedir"; }
if($sTarget =~ /All|DB/i) { ConfigDB(\%hDefConf); chdir "$sBasedir"; } if($sTarget =~ /All|DB/i) { ConfigDB(\%hDefConf); chdir "$sBasedir"; }
if($sTarget =~ /All|Dump/i) { chdir "~"; EnableCoredump(); } if($sTarget =~ /All|Dump/i) { chdir "~"; EnableCoredump(); }
print "Config done, you should be able to launch and connect server now\n"; print "Config done, you should be able to launch and connect server now\n";
print "NB : Don't forget to update your client clieninfo.xml to match change\n"; print "NB : Don't forget to update your client clieninfo.xml to match change\n";
} }
sub EnableCoredump { sub EnableCoredump {
print "\n Starting Enabling coredump \n"; print "\n Starting Enabling coredump \n";
my $sCurfile = "~/.bashrc"; my $sCurfile = "~/.bashrc";
my @lines = (); my @lines = ();
my $sJump = .0; my $sJump = .0;
open PIPE,"sudo less $sCurfile |" or die $!; open PIPE,"sudo less $sCurfile |" or die $!;
foreach(<PIPE>){ foreach(<PIPE>){
if($_ =~ /ulimit -c unlimited/){ if($_ =~ /ulimit -c unlimited/){
$sJump = 1; #already in here nothing to do $sJump = 1; #already in here nothing to do
last; last;
} }
push(@lines,$_) if /ulimit/; push(@lines,$_) if /ulimit/;
} }
if(scalar(@lines)>0){ if(scalar(@lines)>0){
print "ulimit instruction found in file=$sCurfile\n" print "ulimit instruction found in file=$sCurfile\n"
."\t lines= \n @lines \n" ."\t lines= \n @lines \n"
."are you sure you want to continue ? [y/n] \n"; ."are you sure you want to continue ? [y/n] \n";
$sJump=1 if(GetValidAnwser("y|o|n") =~ /n/i); $sJump=1 if(GetValidAnwser("y|o|n",$sAutoyes) =~ /n/i);
} }
system("sudo echo \"ulimit -c unlimited\" >> $sCurfile") if $sJump==0; system("sudo echo \"ulimit -c unlimited\" >> $sCurfile") if $sJump==0;
$sJump=0; $sJump=0;
$sOS = GetOS() unless($sOS); $sOS = GetOS() unless($sOS);
if($sOS =~ /Fedora|CentOs/i){; if($sOS =~ /Fedora|CentOs/i){;
open FILE, "</etc/security/limits.conf" || die; open FILE, "</etc/security/limits.conf" || die;
open FILE_TMP, ">tmp_limits.conf" || die; open FILE_TMP, ">tmp_limits.conf" || die;
while(<FILE>){ while(<FILE>){
@ -160,24 +153,24 @@ sub EnableCoredump {
unlink "tmp_limits.conf"; unlink "tmp_limits.conf";
} }
$sCurfile = "/etc/sysctl.conf"; $sCurfile = "/etc/sysctl.conf";
@lines = (); @lines = ();
open PIPE,"sudo less $sCurfile |" or die $!; open PIPE,"sudo less $sCurfile |" or die $!;
foreach(<PIPE>){ foreach(<PIPE>){
push(@lines,$_) if /^kernel.core/; push(@lines,$_) if /^kernel.core/;
} }
if(scalar(@lines)>0){ if(scalar(@lines)>0){
print "ulimit instruction found in file=$sCurfile\n" print "ulimit instruction found in file=$sCurfile\n"
."\t line= \n @lines \n" ."\t line= \n @lines \n"
."are you sure you want to continue ? [y/n] \n"; ."are you sure you want to continue ? [y/n] \n";
$sJump=2 if(GetValidAnwser("y|o|n") =~ /n/i); $sJump=2 if(GetValidAnwser("y|o|n",$sAutoyes) =~ /n/i);
} }
unless($sJump==2){ unless($sJump==2){
system('sudo su root -c "echo \"echo kernel.core_uses_pid = 1 >> /etc/sysctl.conf\" | sudo bash"'); system('sudo su root -c "echo \"echo kernel.core_uses_pid = 1 >> /etc/sysctl.conf\" | sudo bash"');
system('sudo su root -c "echo \"echo kernel.core_pattern = /tmp/core-%e-%s-%u-%g-%p-%t >> /etc/sysctl.conf\" | sudo bash"'); system('sudo su root -c "echo \"echo kernel.core_pattern = /tmp/core-%e-%s-%u-%g-%p-%t >> /etc/sysctl.conf\" | sudo bash"');
system('sudo su root -c "echo \"echo fs.suid_dumpable = 1 >> /etc/sysctl.conf\" | sudo bash"'); system('sudo su root -c "echo \"echo fs.suid_dumpable = 1 >> /etc/sysctl.conf\" | sudo bash"');
system('sudo su root -c "sysctl -p"'); system('sudo su root -c "sysctl -p"');
} }
} }
sub GetOS { sub GetOS {
@ -213,7 +206,7 @@ sub InstallSoft {
system("sudo apt-get install @aListSoft"); system("sudo apt-get install @aListSoft");
} }
elsif($sOS =~ /Fedora|CentOs/i){ #tested on fedora 18,19,20 /centos 5,6,7 elsif($sOS =~ /Fedora|CentOs/i){ #tested on fedora 18,19,20 /centos 5,6,7
my @aListSoft = ("gcc","gdb","zlib","zlib-devel","make","git","mariadb-server","maria","mariadb-devel","phpmyadmin","pcre-devel"); my @aListSoft = ("gcc","gdb","zlib","zlib-devel","make","git","mariadb-server","mariadb","mariadb-devel","phpmyadmin","pcre-devel");
# my @aListSoft = ("gcc","gdb","zlib","zlib-devel","make","git","mysql-server","mysql-devel","phpmyadmin","pcre-devel"); # my @aListSoft = ("gcc","gdb","zlib","zlib-devel","make","git","mysql-server","mysql-devel","phpmyadmin","pcre-devel");
system("sudo yum install @aListSoft"); system("sudo yum install @aListSoft");
} }
@ -247,10 +240,10 @@ sub ConfigDB { my ($rhDefConf) = @_;
print "\n Starting ConfigDB \n"; print "\n Starting ConfigDB \n";
my $rhUserConf; my $rhUserConf;
while(1) { while(1) {
$rhUserConf = GetDesiredConf($rhDefConf); $rhUserConf = GetDesiredConf($rhDefConf);
print "SetupDb using conf : \n"; print "SetupDb using conf : \n";
ShowConfig($rhUserConf); ShowConfig($rhUserConf);
last if($sForce || AutoCheckConf($rhUserConf)); last if($sForce || AutoCheckConf($rhUserConf));
} }
ApplySetupDB($rhUserConf); ApplySetupDB($rhUserConf);
} }
@ -268,7 +261,7 @@ sub ApplySetupConf { my ($rhConfig) = @_;
YAML::XS::DumpFile(DESD_CONF_FILE,$rhConfig); YAML::XS::DumpFile(DESD_CONF_FILE,$rhConfig);
unless(-d "$sUserConfDir") { unless(-d "$sUserConfDir") {
print "conf/import directory doesn't exist, create it ? [y/n] (will be generated by compilation otherwise) \n"; print "conf/import directory doesn't exist, create it ? [y/n] (will be generated by compilation otherwise) \n";
if(GetValidAnwser("y|o|n") =~ /n/i) { die "Couldn't apply conf without import folder\n"; } if(GetValidAnwser("y|o|n",$sAutoyes) =~ /n/i) { die "Couldn't apply conf without import folder\n"; }
mkdir "$sUserConfDir"; mkdir "$sUserConfDir";
} }
chdir $sUserConfDir; chdir $sUserConfDir;
@ -284,7 +277,7 @@ sub ApplySetupConf { my ($rhConfig) = @_;
if(-e -r $sCurfile) { if(-e -r $sCurfile) {
print "Yes\n"; print "Yes\n";
print "$sCurfile seem to exist, overwritte it [y/n] ?\n"; print "$sCurfile seem to exist, overwritte it [y/n] ?\n";
if(GetValidAnwser("y|o|n") =~ /n/i) { if(GetValidAnwser("y|o|n",$sAutoyes) =~ /n/i) {
print "Only overwritte option supported atm skip file\n\n"; print "Only overwritte option supported atm skip file\n\n";
next; next;
} }
@ -388,18 +381,14 @@ sub AutoCheckConf { my ($rhConfig) = @_;
sub CheckDupPort { my ($rhConfig,$sChkKeys) = @_; sub CheckDupPort { my ($rhConfig,$sChkKeys) = @_;
my $sChkport = $$rhConfig{$sChkKeys}; my $sChkport = $$rhConfig{$sChkKeys};
foreach my $sKeys (keys %$rhConfig){ foreach my $sKeys (keys %$rhConfig){
next if($sKeys eq $sChkKeys); #skip ourself next if($sKeys eq $sChkKeys); #skip ourself
my $sVal = $$rhConfig{$sKeys}; my $sVal = $$rhConfig{$sKeys};
return 1 if($sChkport eq $sVal); return 1 if($sChkport eq $sVal);
} }
return 0; return 0;
} }
sub CheckUsedPort { my($sPort) = @_;
open PIPE,"netstat -nat |" or die $!;
my @line = grep { /$sPort/ } <PIPE>;
return scalar(@line);
}
#Db function #Db function
sub ApplySetupDB { my($rhConfig) = @_; sub ApplySetupDB { my($rhConfig) = @_;
@ -417,25 +406,7 @@ sub ApplySetupDB { my($rhConfig) = @_;
print "SetupDb done \n"; print "SetupDb done \n";
} }
sub RootCo { my($rhConfig) = @_;
print "\n Entering RootCo \n";
my $sDbH;
my $sDsn = $$rhConfig{"Dsn"}; #mysql server dest
my $sUser = $$rhConfig{SQL_UID}; #verify desired user
print "My dsn = $sDsn \n";
if($sUser eq "root"){
my $sPw = $$rhConfig{SQL_PW};
$sDbH = DBI->connect($sDsn, "root", $sPw);
unless($sDbH) { warn "Your root password doesn't seem valid for mysql, your desired-conf is wrong \n"; }
}
while($sDbH == 0) { #if can't use user to connect user root
print "Please inser DB root passeword (this won't be saved in any configuration file, needed to create dbs and user)\n";
my $sRPw = <>; chop($sRPw);
$sDbH = DBI->connect($sDsn, "root", $sRPw);
}
return $sDbH;
}
sub CreateDB { my($sDbH,$rhConfig) = @_; sub CreateDB { my($sDbH,$rhConfig) = @_;
print "\n Entering CreateDB \n"; print "\n Entering CreateDB \n";
@ -459,7 +430,7 @@ sub CreateDB { my($sDbH,$rhConfig) = @_;
sub ValidateDBMerge { my($sDBn) = @_; sub ValidateDBMerge { my($sDBn) = @_;
warn "Database: '$sDBn' seem to already exist exiting\n"; warn "Database: '$sDBn' seem to already exist exiting\n";
warn "Continue will load data in existing db would you like to continue ? [y/n] \n"; warn "Continue will load data in existing db would you like to continue ? [y/n] \n";
if(GetValidAnwser("y|o|n") =~ /n/i) { if(GetValidAnwser("y|o|n",$sAutoyes) =~ /n/i) {
print "Exiting setup, please either setup with another dbname or manually\n"; print "Exiting setup, please either setup with another dbname or manually\n";
exit; exit;
} }
@ -505,28 +476,14 @@ sub LoadSqlFile { my($sDbH,$rhConfig) = @_;
chdir "../$sSqldir"; chdir "../$sSqldir";
print "Checking if target files exist :\n\tMain: [@aMainFiles]\n\tLog: [@aLogFiles]\n"; print "Checking if target files exist :\n\tMain: [@aMainFiles]\n\tLog: [@aLogFiles]\n";
CheckAndLoad(\@aMainFiles,$rhConfig,$sDBn); CheckAndLoadSQL(\@aMainFiles,$rhConfig,$sDBn);
CheckAndLoad(\@aLogFiles,$rhConfig,$sLogDBn); CheckAndLoadSQL(\@aLogFiles,$rhConfig,$sLogDBn);
# my $raMainQuerys = CheckAndAddQuery(\@aMainFiles,$rhConfig); # my $raMainQuerys = CheckAndAddQuery(\@aMainFiles,$rhConfig);
# my $raLogQuerys = CheckAndAddQuery(\@aLogFiles,$rhConfig); # my $raLogQuerys = CheckAndAddQuery(\@aLogFiles,$rhConfig);
# ExeQuery($sDbH,"use $sDBn;",@$raMainQuerys,"use $sLogDBn;", @$raLogQuerys); # ExeQuery($sDbH,"use $sDBn;",@$raMainQuerys,"use $sLogDBn;", @$raLogQuerys);
} }
sub CheckAndLoad { my ($raFiles,$rhConfig,$sDBn) = @_;
my $sHost = $$rhConfig{SQL_HOST};
my $sPw = $$rhConfig{SQL_PW};
my $sUser = $$rhConfig{SQL_UID};
foreach(@$raFiles) {
unless(-f -r $_){
print "File : $_ doesn't seem to exist or was unreadable skipped\n";
next;
}
my $sFileFullPath = Cwd::abs_path($_);
system("mysql -u $sUser --password=$sPw -h $sHost $sDBn < $sFileFullPath");
}
}
# query failure atm (shitty perl) # query failure atm (shitty perl)
#sub CheckAndAddQuery { my ($raFiles) = @_; #sub CheckAndAddQuery { my ($raFiles) = @_;
@ -556,61 +513,6 @@ sub CreateServUser { my($sDbH,$rhConfig) = @_;
ExeQuery($sDbH,@aQuery); ExeQuery($sDbH,@aQuery);
} }
sub ExeQuery { my $sDbH = shift;
my @aQuery = @_;
print "my querys are = [ @aQuery ]\n";
foreach(@aQuery) {
unless($sDbH->do($_)){ print "Failed to execute query : $_ => $DBI::errstr \n"; }
}
}
#Common
sub GetValidateConf { my($rhConfig) = @_;
my $rhUserConf;
while (1) {
$rhUserConf = GetUserConf($rhConfig);
print "\n Please Check desired conf \n";
ShowConfig($rhUserConf);
print "Would you like to apply those setting ? [y/n] ";
last if(GetValidAnwser("y|o|n") =~ /y|o/i);
print "\n Restarting configuration sequence \n";
}
return $rhUserConf;
}
sub GetUserConf { my ($rhDefConf) = @_;
my %hConf;
my @sortedkeys = sort keys (%$rhDefConf);
foreach my $sKey (@sortedkeys){
my $sVal = $$rhDefConf{$sKey};
print "$sKey : [$sVal] ";
my $sAnwser = <>; chop($sAnwser);
$hConf{"$sKey"} = $sAnwser || $sVal;
}
return \%hConf;
}
sub ShowConfig { my ($rhUserConf) = @_;
my @sortedkeys = sort keys (%$rhUserConf);
foreach my $sKey (@sortedkeys){
my $sVal = $$rhUserConf{$sKey};
if(ref($sVal) eq 'ARRAY') { print " $sKey => [@$sVal] \n";}
else { print " $sKey => [$sVal] \n"; }
}
}
sub GetValidAnwser { my($sOptReg) = @_;
my $sAnwser = "";
if($sAutoyes) { $sAnwser="y"; print "\n"; }
else {
while(!($sAnwser =~ /$sOptReg/i)) {
$sAnwser = <>; chop($sAnwser);
print "Please enter a valid option : $sOptReg " unless($sAnwser =~ /$sOptReg/i);
}
}
return $sAnwser;
}
sub GetDesiredConf { my ($rhDefConf) = @_; sub GetDesiredConf { my ($rhDefConf) = @_;
print "Please enter desired confiration\n"; print "Please enter desired confiration\n";
my $rhUserConf; my $rhUserConf;
@ -629,7 +531,7 @@ sub GetDesiredConf { my ($rhDefConf) = @_;
else { else {
ShowConfig($rhUserConf); ShowConfig($rhUserConf);
print "Would you like to apply those setting ? [y/n] "; print "Would you like to apply those setting ? [y/n] ";
if(GetValidAnwser("y|o|n") =~ /n/i) { #no take user entry if(GetValidAnwser("y|o|n",$sAutoyes) =~ /n/i) { #no take user entry
print "DesiredConf not applyed, please enter config\n"; print "DesiredConf not applyed, please enter config\n";
$rhUserConf=GetValidateConf($rhDefConf); $rhUserConf=GetValidateConf($rhDefConf);
} }

109
tools/rA_Common.pm Normal file
View File

@ -0,0 +1,109 @@
package rA_Common;
use strict;
use warnings;
use Exporter;
our @ISA= qw( Exporter );
# these CAN be exported.
our @EXPORT_OK = qw( GetValidateConf GetUserConf ExeQuery GetUserConf
GetValidAnwser GetValidateConf RootCo ShowConfig CheckUsedPort CheckAndLoadSQL);
# these are exported by default.
our @EXPORT = @EXPORT_OK; # qw( GetValidateConf GetUserConf ExeQuery GetUserConf GetValidAnwser GetValidateConf RootCo ShowConfig CheckUsedPort CheckAndLoadSQL);
sub GetValidateConf { my($rhConfig) = @_;
my $rhUserConf;
while (1) {
$rhUserConf = GetUserConf($rhConfig);
print "\n Please Check desired conf \n";
ShowConfig($rhUserConf);
print "Would you like to apply those setting ? [y/n] ";
last if(GetValidAnwser("y|o|n") =~ /y|o/i);
print "\n Restarting configuration sequence \n";
}
return $rhUserConf;
}
#remplis tous un hash
sub GetUserConf { my ($rhDefConf) = @_;
my %hConf;
my @sortedkeys = sort keys (%$rhDefConf);
foreach my $sKey (@sortedkeys){
my $sVal = $$rhDefConf{$sKey};
print "$sKey : [$sVal] ";
my $sAnwser = <>; chop($sAnwser);
$hConf{"$sKey"} = $sAnwser || $sVal;
}
return \%hConf;
}
sub ShowConfig { my ($rhUserConf) = @_;
my @sortedkeys = sort keys (%$rhUserConf);
foreach my $sKey (@sortedkeys){
my $sVal = $$rhUserConf{$sKey};
if(ref($sVal) eq 'ARRAY') { print " $sKey => [@$sVal] \n";}
else { print " $sKey => [$sVal] \n"; }
}
}
sub GetValidAnwser { my($sOptReg,$sAutoyes) = @_;
my $sAnwser = "";
if($sAutoyes) { $sAnwser="y"; print "\n"; }
else {
while(!($sAnwser =~ /$sOptReg/i)) {
$sAnwser = <>; chop($sAnwser);
print "Please enter a valid option : $sOptReg " unless($sAnwser =~ /$sOptReg/i);
}
}
return $sAnwser;
}
sub CheckUsedPort { my($sPort) = @_;
open PIPE,"netstat -nat |" or die $!;
my @line = grep { /$sPort/ } <PIPE>;
return scalar(@line);
}
sub RootCo { my($rhConfig) = @_;
print "\n Entering RootCo \n";
my $sDbH = 0;
my $sDsn = $$rhConfig{"Dsn"}; #mysql server dest
my $sUser = $$rhConfig{SQL_UID}; #verify desired user
print "My dsn = $sDsn \n";
if($sUser eq "root"){
my $sPw = $$rhConfig{SQL_PW};
$sDbH = DBI->connect($sDsn, "root", $sPw);
unless($sDbH) { warn "Your root password doesn't seem valid for mysql, your desired-conf is wrong \n"; }
}
while($sDbH == 0) { #if can't use user to connect user root
print "Please inser DB root passeword (this won't be saved in any configuration file, needed to create dbs and user)\n";
my $sRPw = <>; chop($sRPw);
$sDbH = DBI->connect($sDsn, "root", $sRPw);
}
return $sDbH;
}
sub CheckAndLoadSQL { my ($raFiles,$rhConfig,$sDBn) = @_;
my $sHost = $$rhConfig{SQL_HOST};
my $sPw = $$rhConfig{SQL_PW};
my $sUser = $$rhConfig{SQL_UID};
foreach(@$raFiles) {
unless(-f -r $_){
print "File : $_ doesn't seem to exist or was unreadable skipped\n";
next;
}
my $sFileFullPath = Cwd::abs_path($_);
system("mysql -u $sUser --password=$sPw -h $sHost $sDBn < $sFileFullPath");
}
}
sub ExeQuery { my $sDbH = shift;
my @aQuery = @_;
print "my querys are = [ @aQuery ]\n";
foreach(@aQuery) {
unless($sDbH->do($_)){ print "Failed to execute query : $_ => $DBI::errstr \n"; }
}
}

3
tools/setup_perl.sh Executable file
View File

@ -0,0 +1,3 @@
#!/bin/sh
#simple script to setupperl environnement with all module dependancy needed
cpan install File::Basename Getopt::Long DBI DBD::mysql YAML YAML:XS Cwd Net::Ping Scalar::Util Git::Repository;

1
tools/stackdump
View File

@ -1,4 +1,5 @@
#!/bin/bash #!/bin/bash
# !TODO upd me
case "$1" in case "$1" in
map|char|login) map|char|login)

240
tools/update.pl Executable file
View File

@ -0,0 +1,240 @@
#!/usr/bin/perl
# upgrading rA emulator, (src,npc,db..).
# perform sql db update
# perform binary recompilation
use strict;
use Getopt::Long;
use Cwd;
use Git::Repository;
use File::Copy;
use DBI;
use DBD::mysql;
use YAML::XS;
use lib "./"; #use current path for out lib as well
use rA_Common;
#prgm option
my $sHelp = 0;
my $sValidTarget = "All|DB|Compile|Restart|Upd";
my $srABaseGitHttp = 'https://github.com/rathena/rathena.git';
my $srABaseGitSSH = 'git@github.com:rathena/rathena.git';
use constant {
STATE_FILE => "SQL_Status.yml",
ST_OLD => "old",
ST_SK => "skipped",
SQL_HOST => "SQL_host",
SQL_PORT => "SQL_port",
SQL_UID => "SQL_userid",
SQL_PW => "SQL_userpass",
SQL_MAIN_DB => "SQL_maindb",
SQL_LOG_DB => ,"SQL_logdb"
};
my %hFileState = ();
#those following could be edited by user
my $sAutoDB = 0; #by default we ask for db setting
my $sTarget = "Upd|DB|Compile"; #default target doesn't restart
my %hDefConf = (
SQL_HOST => "localhost",
SQL_PORT => "3306",
SQL_UID => "ragnarok",
SQL_PW => "ragnarok",
SQL_MAIN_DB => "ragnarok",
SQL_LOG_DB => ,"ragnarok",
);
GetArgs();
Main();
sub GetArgs {
GetOptions(
'target=s' => \$sTarget, #Target (wich setup to run)=
'help!' => \$sHelp,
) or $sHelp=1; #display help if invalid option
if( $sHelp ) {
print "Incorect option specified, available option are:\n"
."\t --target => target (specify wich check to ignore [$sValidTarget])\n";
exit;
}
if(!$sTarget || !($sTarget =~ /$sValidTarget/i)){
print "Incorect target specified, available target are:\n"
."\t --target => target (specify wich check to ignore [(default)$sValidTarget])\n
NB restart is compiling dependant\n";
exit;
}
}
sub Main {
my $sCurdir = getcwd;
chdir "..";
UpdateSQL($sCurdir,1,\%hFileState);
if($sTarget =~ "All|Upd") { GitUpdate($sCurdir); }
if($sTarget =~ "All|DB") { UpdateSQL($sCurdir,0,\%hFileState); }
if($sTarget =~ "All|Compile") { RunCompilation($sCurdir,$sTarget); }
}
sub UpdateSQL { my($sBaseDir,$sInit,$rhFileState) = @_;
#my @aMapDBFiles;
my @aCharDBFiles; #for now we assum they all in same DB
#my @aLoginDBFiles;
my @aLogDBFiles;
chdir "sql-files/upgrades";
opendir (DIR, "./") or die $!;
my @aFiles
= grep {
/^(?!\.)/ # not begins with a period
&& /\.sql$/ # finish by .sql
&& -f "./$_" # and is a file
} readdir(DIR);
print "Preparing SQL folder\n" if($sInit==1);
if(-e -r STATE_FILE) {
print "Reading file status \n";
$rhFileState = YAML::XS::LoadFile(STATE_FILE);
}
foreach my $sFile (@aFiles){
#print "Cur file = $sFile \n";
next if(exists($rhFileState->{$sFile}) ); #either old or skipped
if($sInit==1){ #move all file into old
if( $sFile =~ /_opt_/){
$$rhFileState{$sFile} = ST_SK;
next; # by default optional updated are put in skipped dir
}
$$rhFileState{$sFile} = ST_OLD;
}
else {
if( $sFile =~ /_log.sql$/) {
print "Found log file = $sFile \n";
push(@aLogDBFiles,$sFile);
}
else {
print "Found file = $sFile \n";
push(@aCharDBFiles,$sFile);
}
# This part is for distributed DB, not supported yet
# proposed nomenclature [lighta] : update_date_{opt_}(map|chr|acc|log).sql
# (e.g : update_20141218_opt_map.sql or update_20141218_acc.sql
# if( $sFile =~ /_map.sql$/) {
# print "Found log file = $sFile \n";
# push(@aMapDBFiles,$sFile);
#
# }
# elsif( $sFile =~ /_acc.sql$/) {
# print "Found log file = $sFile \n";
# push(@aLoginDBFiles,$sFile);
#
# }
# elsif( $sFile =~ /_chr.sql$/) {
# print "Found log file = $sFile \n";
# push(@aCharDBFiles,$sFile);
#
# }
}
}
if($sInit==1){
print "Saving stateFile \n";
YAML::XS::DumpFile(STATE_FILE,$rhFileState);
}
else{ #apply update
if( scalar(@aCharDBFiles)==0 and scalar(@aLogDBFiles)==0
# and scalar(@aMapDBFiles)==0 and scalar(@aLoginDBFiles)==0
){
print "No SQL Update to perform\n";
}
else {
print "Updating DB \n";
my $rhUserConf;
if($sAutoDB==0){
$rhUserConf=GetValidateConf(\%hDefConf);
print "To make this step auto you can edit hDefConf and set sAutoDB to 1.
both parameter at the begining of file for the moment\n";
}
else {
$rhUserConf=\%hDefConf; #we assum it's set correctly
}
#CheckAndLoadSQL(\@aMapDBFiles,$rhUserConf,$$rhUserConf{SQL_MAP_DB});
CheckAndLoadSQL(\@aCharDBFiles,$rhUserConf,$$rhUserConf{SQL_MAIN_DB});
#CheckAndLoadSQL(\@aLoginDBFiles,$rhUserConf,$$rhUserConf{SQL_ACC_DB});
CheckAndLoadSQL(\@aLogDBFiles,$rhUserConf,$$rhUserConf{SQL_LOG_DB});
}
}
chdir "../..";
}
sub RunCompilation { my($sBaseDir,$sTarget) = @_;
if($^O =~ "linux"){
print "Recompiling \n";
system('./configure && make clean server');
if($sTarget =~ "All|Restart") {
print "Restarting \n";
system('./athena-start restart');
}
}
else {
print "AutoCompilation ain't supported for this OS yet (OS detected=$^O \n";
}
}
sub GitUpdate { my($sBaseDir) = @_;
my $sGit = Git::Repository->new(
work_tree => "$sBaseDir/..",
);
my $sIsOrigin = CheckRemote($sGit);
if($sIsOrigin==0){
print "Saving current work\n";
$sGit->run( "stash" );
print "Fetching new content and merging\n";
$sGit->run( "pull" );
print "Attempt applying save work\n";
$sGit->run( "stash" => "pop" );
}
else { #it's a fork
print "Fetching upstream\n";
$sGit->run( "fetch" => "upstream" );
print "Switching to master branch\n";
$sGit->run( "checkout" => "master" );
print "Merging upstream with master\n";
$sGit->run( "merge" => "upstream/master" );
}
}
#Checking rA as a remote or origin
sub CheckRemote { my($sGit) = @_;
my $sRaOrigin=0;
my $sRaUpstream=0;
print "Checking remotes\n";
my @aRemotes = $sGit->run("remote" => "-v");
#print "My Remotes are\n";
foreach my $sCurRem (@aRemotes){
my @aCol = split(' ',$sCurRem);
#print "$sCurRem\n";
if( $aCol[1] =~ "$srABaseGitHttp" or $aCol[1] =~ "$srABaseGitSSH"){
#print "Has rA as origin\n";
if($aCol[0] =~ "origin") { $sRaOrigin = 1; }
if($aCol[0] =~ "upstream") { $sRaUpstream = 1; }
}
}
if($sRaOrigin==0 and $sRaUpstream==0){
print "Adding rA as a upstream\n";
$sGit->run("remote" => "add" => "upstream" => "$srABaseGitHttp");
}
return ($sRaOrigin==0);
}