From 1d485ca934f54a6e5255c269cc5bb27e8ad8039b Mon Sep 17 00:00:00 2001
From: lighta <lightaisme@gmail.com>
Date: Thu, 28 Nov 2013 02:44:52 -0500
Subject: [PATCH] Tools again

--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.
---
 tools/build_doc.pl   | 6 ++++--
 tools/check-doc.pl   | 2 +-
 tools/convert_sql.pl | 6 +++++-
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/tools/build_doc.pl b/tools/build_doc.pl
index 6a9c5f5c54..1d31e7d4a7 100644
--- a/tools/build_doc.pl
+++ b/tools/build_doc.pl
@@ -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/){
diff --git a/tools/check-doc.pl b/tools/check-doc.pl
index 3cf14b247e..704139fc55 100755
--- a/tools/check-doc.pl
+++ b/tools/check-doc.pl
@@ -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);
 
diff --git a/tools/convert_sql.pl b/tools/convert_sql.pl
index 871c2d05ef..4dacdd3d0e 100755
--- a/tools/convert_sql.pl
+++ b/tools/convert_sql.pl
@@ -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;
 ";
 	}
-}
\ No newline at end of file
+}
+