Doc and Tools update

Replace check-doc (shell) by perl equivalent and update it.
Now checking custom folder and restricted atcm, also check for unmatch
command in documentation as requested before.
Update documentation to match sources.
Update config.pl replace svn install by git.

doc/atcommands.txt

@@ -307,7 +307,7 @@ prontera (x= 165, y= 198) 01 00 00 00 00
 Displays monster information (rates, stats, drops, MVP data).
 
 Example:
-@monsterinfo Poring
+@mobinfo Poring
 
 Output:
 Monster: 'Poring'/'Poring'/'PORING' (1002)
@@ -875,9 +875,9 @@ Changes unused status or skill points by the specified amount.
 
 ---------------------------------------
 
-@streset
+@resetstat
 /resetstate
-@skreset
+@resetskill
 /resetskill
 @reset
 
@@ -1037,6 +1037,32 @@ Displays the message above the NPC's head (like the 'npctalk' script command).
 
 ---------------------------------------
 
+@vip <+/- time> <player name>
+
+Set a player in VIP mode for a limited time.
+Time could be reduced and if below now VIP mode is removed
+Time elements: y/a, m, d/j, h, mn, s
+
+Example:
+@vip +2h mychar
+-> set mychar's account as VIP for 2 hours.
+
+---------------------------------------
+
+@fullstrip <player name>
+
+Unequip all item from a player.
+
+---------------------------------------
+
+@cart <0-%d>
+
+Give or remove a cart to a player and also change the cart skin.
+0 = remove cart
+x = cart color
+
+---------------------------------------
+
 ==============================
 | 5. Administrative Commands |
 ==============================
@@ -1168,7 +1194,7 @@ Disconnects a user or all users from the server.
 @ban <+/- time> <player name>
 @unban <player name>
 
-Bans or unbans a player for a limited time.
+Bans or unbans a player account for a limited time.
 Time elements: y/a, m, d/j, h, mn, s
 
 Example:
@@ -1184,6 +1210,19 @@ Blocks or unblocks a player from logging in indefinitely.
 
 ---------------------------------------
 
+@charban <+/- time> <player name>
+@charunban <player name>
+
+Bans or unbans a player for a limited time. 
+(Very similar to @ban and but for 1 character only)
+Time elements: y/a, m, d/j, h, mn, s
+
+Example:
+@ban +2d Char2
+-> bans Char2's for 2 days.
+
+---------------------------------------
+
 @mapexit
 
 Sends quit signal to mapserver, saving all data and causing a graceful shutdown.

doc/script_commands.txt

@@ -4642,7 +4642,7 @@ storage or cart.
 ---------------------------------------
 
 *equip <item id>;
-*autoEquip <item id>,<option>;
+*autoequip <item id>,<option>;
 
 These commands are to equip a equipment on the attached character. 
 The equip function will equip the item ID given when the player has

src/map/atcommand.c

@@ -8938,7 +8938,7 @@ ACMD_FUNC(cart) {
 	clif_displaymessage(fd, msg_txt(sd,1392)); // Cart Added
 
 	return 0;
-	#undef MC_CART_MDFY
+#undef MC_CART_MDFY
 }
 
 /* Channel System [Ind] */

tools/check-doc

@@ -1,30 +0,0 @@
-#!/bin/sh
-# checking-doc script by trojal
-# modified by lighta
-
-case $1 in
-    'script')
-	#find which script commands are missing from doc/script_commands.txt
-	echo "Missing script documentation for function :"
-	awk '/BUILDIN_DEF\(.*\),/ {b=match($0,"BUILDIN_DEF(.*),");c=match($0,",");print substr($0,b+12,c-b-12);}' ../src/map/script.c | xargs -I{} sh -c '! grep -Lq {} ../doc/script_commands.txt && echo {}'
-	awk '/BUILDIN_DEF2\(.*\),/ {b=match($0,"BUILDIN_DEF2(.*),");c=match($0,",");d=match($0 ,"\",\"");print substr($0,c+2,d-c-2);}' ../src/map/script.c | xargs -I{} sh -c '! grep -Lq {} ../doc/script_commands.txt && echo {}'
-	;;
-
-    'atc')
-	#find which atcommands are missing from doc/atcommands.txt
-	echo "Missing atcommand documentation for function :"
-	awk '/ACMD_DEF\(.*\),/ {b=match($0,"ACMD_DEF(.*),");c=match($0,",");print substr($0,b+9,c-b-10);}' ../src/map/atcommand.c | xargs -I{} sh -c '! grep -Lq {} ../doc/atcommands.txt && echo {}'
-	awk '/ACMD_DEF2\(.*\),/ {b=match($0,"ACMD_DEF2(.*),");c=match($0,",");print substr($0,b+10,c-b-10);}' ../src/map/atcommand.c | xargs -I{} sh -c '! grep -Lq {} ../doc/atcommands.txt && echo {}'
-	;;
-     'both')
-	$0 script
-	$0 atc
-	;;
-
-	*)
-        	echo "Usage: check-doc { script | atc | both }"
-        	read -p "Enter a valid option: " readEnterKey
-        	$0 $readEnterKey
-	;;
-esac
-

tools/check-doc.pl

@@ -0,0 +1,193 @@
+#!/usr/bin/perl
+# checking-doc original script by trojal
+# modified by lighta
+
+use strict;
+use File::Basename;
+use Getopt::Long;
+
+my $sHelp	= 0;
+my $sCmd = $1;
+my $sAtcf = "../doc/atcommands.txt";
+my $sSctf = "../doc/script_commands.txt";
+my $sLeftOverChk      = 0;
+my $sTarget	= "All";
+my $sValidTarget = "All|Script|Atc";
+
+my($filename, $dir, $suffix) = fileparse($0);
+chdir $dir; #put ourself like was called in main folder
+GetArgs();
+Main($sTarget);
+
+sub GetArgs {
+    GetOptions(
+    'atcf=s' => \$sAtcf, #atc doc file
+    'scriptf=s' => \$sSctf, #script doc file
+    'target=s'	=> \$sTarget,	 #Target (wich setup to run)
+    'leftover=i' => \$sLeftOverChk, #should we chk if all doc are linked to a src ?
+    'help!' => \$sHelp,
+    ) or $sHelp=1; #display help if invalid option	
+	
+    if( $sHelp ) {
+	print "Incorect option specified, available option are:\n"
+	    ."\t --atcf filename => file (specify atcommand doc to use)\n"
+	    ."\t --scriptf filename => file (specify script doc to use)\n"
+	    ."\t --target => target (specify wich check to run [$sValidTarget])\n";
+	exit;
+    }
+    unless($sTarget =~ /$sValidTarget/i){
+    	print "Incorect target specified, available target are:\n"
+	    ."\t --target => target (specify wich check to run [(default)$sValidTarget])\n";
+		exit;
+    }
+}
+
+
+sub Main { my ($sCmd) = @_;
+	if($sCmd=~/both|all/i){ #both is keep as backard compatibility here cf check-doc.sh
+		$sCmd = "script|atc";
+	}
+	if($sCmd=~/script/i){ #find which script commands are missing from doc/script_commands.txt
+		Script_Chk();
+	}
+	if($sCmd=~/atc/i){ #find which atcommands are missing from doc/atcommands.txt
+		Atc_Chk();
+	}
+}
+
+sub Chk { my($raA,$raB) = @_;
+	my @aMissing = ();
+	foreach my $sA (@$raA){
+		my $sFound = 0;
+		foreach my $sB (@$raB){
+			$sFound=1 if($sA eq $sB);
+		}
+		unless($sFound){
+			push(@aMissing,$sA);
+		}
+	}
+	return \@aMissing;
+}
+
+sub Script_Chk {
+	my @aSct_src = ("../src/map/script.c","../src/custom/script_def.inc");
+	my @aDef_sct = ();
+	my @aDoc_sct = ();
+	my $raMiss_sct;
+	foreach my $sSct_srcf (@aSct_src){
+		open FILE_SRC, "<$sSct_srcf" || die "couldn't open file $sSct_srcf \n";
+		while(<FILE_SRC>){
+			next if($_ =~ /^#/); #ignoe include, define or macro
+			if($_ =~ /BUILDIN_DEF|BUILDIN_DEF2/){
+				$_ =~ s/\s+$//; #Remove trailing spaces.
+				$_ =~ s/^\s+//; #Remove leading spaces.
+				if($_ =~ /^BUILDIN_DEF2/){
+					my @line = split('"',$_);
+					push(@aDef_sct,$line[1]);
+				}
+				elsif($_ =~ /^BUILDIN_DEF/){
+					my @line = split(',',$_);
+					@line = split('\(',$line[0]);
+					push(@aDef_sct,$line[1]);
+				}
+			}
+		}
+		close FILE_SRC;
+	}
+	open FILE_DOC, "$sSctf" || die "couldn't open file $sSctf \n";
+	while(<FILE_DOC>){
+		next if($_ =~ /^\*\*|^\*\s|^\s+/); #discard **, * foo, foo
+		next if(/^\s+/);
+		if($_ =~ /^\*/){
+			my @line = split(' ',$_);
+			@line = split('\(',$line[0]);
+			@line = split('\<',$line[0]);
+			$line[0] =~ s/\(|\{|\*|\r|\s|\;|\)|\"|\,//g; #todo please harmonize command definition for easier parse
+			
+			next if($line[0] eq "Name" || $line[0] eq "" || $line[0] eq "function" 
+			|| $line[0] eq "if" || $line[0] eq "while" || $line[0] eq "do"  || $line[0] eq "for" ); #exception list
+			
+			push(@aDoc_sct,$line[0]);
+		}
+	}
+	close FILE_DOC;
+	$raMiss_sct = Chk(\@aDef_sct,\@aDoc_sct); #check missing documentation
+	if(scalar(@$raMiss_sct)){
+		print "Missing script documentation for function :{\n";
+		foreach(@$raMiss_sct){
+			print "\t$_ \n";
+		}
+		print "}\n\n";
+	}
+	if($sLeftOverChk){
+		my $raLeftover_sct = Chk(\@aDoc_sct,\@aDef_sct); #we just inverse the chk for leftover
+		if(scalar(@$raLeftover_sct)){
+			print "Those script command was found in doc but no source associated, leftover ? :{\n";
+			foreach(@$raLeftover_sct){
+				print "\t$_ \n";
+			}
+			print "}\n\n";
+		}
+	}
+}
+
+sub Atc_Chk {
+	my @aAct_src = ("../src/map/atcommand.c","../src/custom/atcommand_def.inc");
+	my @aDef_act = ();
+	my @aDoc_act = ();
+	my $raMiss_act;
+	foreach my $sAct_srcf (@aAct_src){
+		open FILE_SRC, "<$sAct_srcf" || die "couldn't open file $sAct_srcf \n";
+		while(<FILE_SRC>){
+			next if($_ =~ /^#/); #ignoe include, define or macro
+			if($_ =~ /ACMD_DEF|ACMD_DEF2|ACMD_DEFR|ACMD_DEF2R/){
+				$_ =~ s/\s+$//; #Remove trailing spaces.
+				$_ =~ s/^\s+//; #Remove leading spaces.
+				
+				if($_ =~ /^ACMD_DEF2|^ACMD_DEF2R/){
+					my @line = split('"',$_);
+					push(@aDef_act,$line[1]);
+				}
+				elsif($_ =~ /^ACMD_DEF|^ACMD_DEFR/){
+					my @line = split(',',$_);
+					@line = split('\(',$line[0]);
+					$line[1] =~ s/\)//; #Remove closing brace
+					push(@aDef_act,$line[1]);
+				}
+			}
+		}
+		close FILE_SRC;
+	}
+	open FILE_DOC, "$sAtcf" || die "couldn't open file $sAtcf \n";
+	while(<FILE_DOC>){
+		next if($_ =~ /^\*\*|^\*\s|^\s+/); #discard **, * foo, foo
+		next if(/^\s+/);
+		if($_ =~ /^\@/){
+			my @line = split(' ',$_);
+			@line = split('\(',$line[0]);
+			@line = split('\<',$line[0]);
+			$line[0] =~ s/\(|\{|\@|\r|\s|\;|\)|\"|\,//g; #todo please harmonize command definition for easier parse
+			push(@aDoc_act,$line[0]);
+		}
+	}
+	close FILE_DOC;
+	
+	$raMiss_act = Chk(\@aDef_act,\@aDoc_act); #check missing documentation
+	if(scalar(@$raMiss_act)){
+		print "Missing atcommand documentation for function :{\n";
+		foreach(@$raMiss_act){
+			print "\t$_ \n";
+		}
+		print "}\n\n";
+	}
+	if($sLeftOverChk){
+		my $raLeftover_sct = Chk(\@aDoc_act,\@aDef_act); #we just inverse the chk for leftover
+		if(scalar(@$raLeftover_sct)){
+			print "Those atcommand command was found in doc but no source associated, leftover ? : {\n";
+			foreach(@$raLeftover_sct){
+				print "\t$_ \n";
+			}
+			print "}\n\n";
+		}
+	}
+}

tools/config.pl

@@ -159,17 +159,17 @@ sub InstallSoft {
     }
     if($sOS eq "quit"){ print "Skipping Software installation\n"; return; }
     elsif($sOS =~ /Ubuntu|Debian/i) { #tested on ubuntu 12.10
-	my @aListSoft = ("gcc","gdb","zlibc","zlib1g-dev","make","subversion","mysql-client","mysql-server","mysql-common","libmysqlclient-dev","phpmyadmin","libpcre3-dev");
+	my @aListSoft = ("gcc","gdb","zlibc","zlib1g-dev","make","git","mysql-client","mysql-server","mysql-common","libmysqlclient-dev","phpmyadmin","libpcre3-dev");
 	print "Going to install: @aListSoft\n";
 	system("sudo apt-get install @aListSoft");
     }
-    elsif($sOS =~ /Fedora|CentOs/i){ #tested on fedora 18
-	my @aListSoft = ("gcc","gdb","zlib","zlib-devel","make","subversion","mysql-server","mysql-devel","phpmyadmin","pcre-devel");
+    elsif($sOS =~ /Fedora|CentOs/i){ #tested on fedora 18 /centos 6
+	my @aListSoft = ("gcc","gdb","zlib","zlib-devel","make","git","mysql-server","mysql-devel","phpmyadmin","pcre-devel");
 	system("sudo yum install @aListSoft");
     }
     elsif($sOS =~ /FreeBSD/i){ #tested on FreeBSD 9.01
 	system("portsnap fetch extract && portsnap update"); #fetch port lib and extract
-	my @aDevel = ("binutils","subversion","autoconf","pcre","gmake","gdb");
+	my @aDevel = ("binutils","git","autoconf","pcre","gmake","gdb");
 	foreach(@aDevel){
 	    system("cd /usr/ports/devel/$_ && make install clean"); #install devels
 	}