#!/usr/bin/perl
 
use strict;
use File::Basename;
use Getopt::Long;
use Scalar::Util qw(looks_like_number);
 
my $sItem_db_re = "db/re/item_db.txt";
my $sItem_db_pre = "db/pre-re/item_db.txt";
my $sSort_opt = "id";
my $sOpt = "none";
 
Main();
 
sub Main {
    my($filename, $dir, $suffix) = fileparse($0);
    chdir $dir; 
    chdir ".."; #put ourself like was called in main folder
    GetArgs();
    
    my %hDB_re_ID;
    my %hDB_pre_ID;
    my $nb_columns = 22;
    my $line_format = "([^\,]*),"x($nb_columns-3)."(\{.*\}),"x(2)."(\{.*\})"; #Last 3 columns are scripts.
        
    ParseItemDBFile($sItem_db_re,\%hDB_re_ID,$line_format);
    ParseItemDBFile($sItem_db_pre,\%hDB_pre_ID,$line_format);
    #DisplayIDFound("RE",\%hDB_re_ID);
    #DisplayIDFound("pRE",\%hDB_pre_ID);
    SearchAndDisplayMissing($sItem_db_re,$sItem_db_pre,\%hDB_re_ID,\%hDB_pre_ID);
    SearchAndDisplayMissing($sItem_db_pre,$sItem_db_re,\%hDB_pre_ID,\%hDB_re_ID);
}
 
sub GetArgs {
    my $sHelp;
    my $sValidSort = "id|line";
    my $sValidOpt = "none|bad_def|dup_def|warn_comment|all";
    GetOptions(
    'dbre=s' => \$sItem_db_re, #re item db file
    'dbpre=s' => \$sItem_db_pre, #pre item db file
    'sort=s' => \$sSort_opt, #sorting option by line or id
    'opt=s' => \$sOpt, #display stuff option
    'help!' => \$sHelp,
    ) or $sHelp=1; #display help if invalid option  
    
    if( $sHelp ) {
    print "Incorect option specified, available option are:\n"
        ."\t --dbre filename => specify wich item re db file to use\n"
        ."\t --dbpre filename => specify wich item pre db file to use\n"
        ."\t --sort id|line => sort result by src id or src line number\n"
        ."\t --opt none|dup_def|bad_def => Diplay infos about DB parsing\n";
    exit;
    }
    unless($sSort_opt =~ /$sValidSort/i){
        print "ERROR: Incorrect sort option specified. Available sort option:\n"
            ."\t id: sort missing ID by src ID \n"
            ."\t line: sort missing ID by src line number \n"
            ."\t --sort='$sValidSort' => sort result by src id or src line number\n";
        exit;
    }
    unless($sOpt =~ /$sValidOpt/i){
        print "ERROR: Incorrect option specified. Available option:\n"
            ."\t none: Don't display definition error \n"
            ."\t bad_def: Display detected line error \n"
            ."\t dup_def: Display duplicated itemid def in DB \n"
            ."\t warn_comment: Display found but commented in other DB \n"
            ."\t all: enable bad_def,dup_def,warn_comment \n"
            ."\t --opt='$sValidOpt' => Diplay infos about DB parsing \n";
        exit;
    }
}
 
sub DisplayIDFound { my ($sFilename,$rHash) = @_;
    my @aDB_ID = keys %$rHash;
    print "Found $sFilename = [ @aDB_ID ] \n";
}
 
sub ParseItemDBFile { my ($sFilename,$rHash,$sLine_format) = @_;
    open FILE, "<$sFilename" or die "couldn't open file $sFilename \n";
    my $sLineNumber=0;
    while(my $ligne=<FILE>){
    $sLineNumber++;
    if ($ligne =~ /^\s*$/ ) { next; } #skip empty line
        if ($ligne =~ /[^\r\n]+/) {
                my $sIscom = 0;
                my $sDataType = 0; # 0 all fine, 1 bad line format
                my @champ = ();
                
                $ligne = $&;
                if ($ligne =~ /^\/\//) { $sIscom = 1; }
                if ($ligne =~ $sLine_format) {
                    @champ = ($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22);
                    $sDataType = 0;
                }
                else {
                        @champ = split(',',$ligne);
                        $sDataType = 1; #mark bad line format
                }
                
                if(scalar(@champ) && $sIscom){ $champ[0] =~ s!^\/\/!!; }
                if(looks_like_number($champ[0])){ #ensure it's an number
                    if($sOpt =~ /dup_def|all/i && $$rHash{$champ[0]} && $$rHash{$champ[0]}{"line"} == $sLineNumber){
                        print "Duplicate definition on: line=$sLineNumber, content='$ligne'\n";
                        $sDataType = 3; #duplicate def
                    }
                    $$rHash{$champ[0]} = {
                        "line" => $sLineNumber,
                        "content" => $ligne,
                        "iscomment" => $sIscom,
                        "data_type" => $sDataType,
                    };
                }
                else { $sDataType = 2; } #mark bad id def
                
                if($sDataType && $sDataType != 3 && $sOpt =~ /bad_def|all/i ) {
                    print "Bad definition on: line=$sLineNumber, content='$ligne'\n";
                }
        }
    }
    close FILE;
}
 
sub SearchAndDisplayMissing { my($sNameSrc,$sNameChk,$rhSrc,$rhChk) = @_;
    print "Checking ID from $sNameSrc are into $sNameChk \n";
    my $sCount = 0;
    my %hChkData = %$rhChk;
    my %hSrcData = %$rhSrc;
    my @aListID = keys %hSrcData;
    my @aSortedArray = ();
    
    if($sSort_opt =~ /ID/i){
        @aSortedArray = sort {$a <=> $b} @aListID; # sort by ID
    }
    elsif($sSort_opt =~ /line/i){ #found how to optimize this
        my %hTmp;
        my @aTmp;
        foreach my $sID(@aListID){
            $hTmp{$hSrcData{$sID}{"line"}} = $sID;
        }
        @aTmp = keys %hTmp;
        @aTmp = sort {$a <=> $b} @aTmp; # sort by lineID
        foreach my $sLine (@aTmp){
            push(@aSortedArray,$hTmp{$sLine});
        } 
    } 
    
    foreach my $sID(@aSortedArray){
        if($sOpt =~ /warn_comment|all/i && $hChkData{$sID} && $hChkData{$sID}{"iscomment"}){ #warn found but commented
            print "Found but commented in $sNameChk => ID : ".$sID." src line = ".$hChkData{$sID}{"line"}." with line : '".$hChkData{$sID}{"content"}."' \n\n";
        }
        unless($hChkData{$sID}){
            print "Didn't found in $sNameChk => ID : ".$sID." src line = ".$hSrcData{$sID}{"line"}." with line : '".$hSrcData{$sID}{"content"}."' \n\n";
            $sCount++;
        }
    }
    unless($sCount){
        print "No missing ID found \n";
    }
}