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

Tools again

Browse Source 
--Upd doxygen version_number to github link, for easier comparaison
--Fix convert_sql calling case, now doesn't care from where perl script
is called.
This commit is contained in:
lighta 2013-11-28 02:44:52 -05:00
parent 6236b7dc6a
commit 1d485ca934
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/build_doc.pl
View File

@ -126,10 +126,12 @@ sub UpdDoxyConf { my ($repoversion) = @_;
if(($chked&1)==0 && $_ =~ /^PROJECT_NUMBER/) {
chomp($_);
@line = split('=',$_);
my $old_version = $line[1];
@line = split('/',$line[1]);
my $old_version = $line[scalar(@line)-1];
print "old_version found=$old_version, current version=$repoversion \n";
if($old_version == $repoversion) { $sSkipBuild=1; }
elsif($sNoUpd==0) { print "Updated project number\n"; }
print FHOUT "PROJECT_NUMBER = $repoversion\n";
print FHOUT "PROJECT_NUMBER = http://github.com/rathena/rathena/commit/$repoversion\n";
$chked &=1;
}
elsif(($chked&2)==0 && $_ =~ /^OUTPUT_DIRECTORY/){

2
tools/check-doc.pl
View File

@ -15,7 +15,7 @@ my $sTarget = "All";
my $sValidTarget = "All|Script|Atc";
my($filename, $dir, $suffix) = fileparse($0);
chdir $dir; #put ourself like was called in main folder
chdir $dir; #put ourself like was called in tool folder
GetArgs();
Main($sTarget);

6
tools/convert_sql.pl
View File

@ -18,6 +18,7 @@
use strict;
use warnings;
use Getopt::Long;
use File::Basename;
my $sFilein = "";
my $sFileout = "";
@ -75,6 +76,8 @@ sub GetArgs {
sub Main {
GetArgs();
my($filename, $dir, $suffix) = fileparse($0);
chdir $dir; #put ourself like was called in tool folder
BuildDataForType($sTarget,$sType);
ConvertFile($sFilein,$sFileout,$sType);
print "Conversion ended.\n";
@ -371,4 +374,5 @@ CREATE TABLE `$db` (
) ENGINE=MyISAM;
";
}
}
}