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

@@ -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/){

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);
 

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;
 ";
 	}
-}
+}
+