#!/usr/bin/perl

$bncdb = "bncdb";

if (scalar(@ARGV) != 1) {
    &usage;
    exit;
}

&header;

# remove a trailing /
$dirpath = $ARGV[0];
$dirpath =~ s!(.*)/$!$1!;

opendir FILEDIR, $dirpath or die "Error opening filedir!\n";

while ($filename = readdir FILEDIR) {
    if ($filename =~ m/^\./) { next; } #ignore . and ..

    if ( ! (($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
    $atime,$mtime,$ctime,$blksize,$blocks) = stat "$dirpath/$filename" )) {
        print STDERR "Error stat-ing the file $pathdir/$filename!\n" ; next; }

    $type = ($mode & 070000) >> 12;
    
    if ($type != 0) {
	print STDERR "File $dirpath/$filename its not regular\n";
	next;
    }
    convert_cdb2sql("$dirpath/$filename");
}

closedir FILEDIR;

sub convert_cdb2sql {
    my $filen = shift;
    my ($userid, $count, $alist);

    $pid  = open(FILE, "$bncdb -d \"".$filen."\" |");
    print STDERR "Converting file $filen ... ";

    $count = 0;
    $userid = ""; undef @alist;
    while($line = <FILE>) {
	if ($line =~ m/:.*->.*/) {
	    $line =~ m/^\+([0-9]+),([0-9]+):([A-Za-z0-9]+)\\(.*)$/;

	    # key length and value length
	    $keylen = $1; $vallen = $2;

	    $tab = $3;
	    $tab =~ tr/A-Z/a-z/;
	    $str = $4;

	    # skip Team as we now have another team structure
	    if ($tab =~ m/^team$/i) {
		print STDERR "WARNING: skipping Team information!\n";
	    	next;
	    } elsif ($tab =~ m/^\s*$/) {
		print STDERR "WARNING: skipping empty tab!\n";
		next;
	    }

	    $alist[$count]{tab} = $tab;
	    $alist[$count]{col} = &escape_key(substr($str, 0, $keylen - length($tab) - 1));
	    $alist[$count]{val} = substr($str, $keylen - length($tab) + 1);

	    if ($alist[$count]{col} =~ m!userid$!) {
		$userid = $alist[$count]{val};
	    }
	    $count++;
	}
    }
    if ($userid ne "") {
	&db_set($dbh, $userid, $alist);
    }
    close FILE;
    waitpid $pid, 0;
    print STDERR "done\n";
}

sub header {
    print STDERR "Account files to db accounts converting tool.\n";
    print STDERR " Copyright (C) 2002,2005 Dizzy (dizzy\@roedu.net)\n";
    print STDERR " Player Versus Player Gaming Network (www.pvpgn.org)\n\n";
}

sub usage {
    &header;
    print STDERR "Usage:\n\n\tcdb2sql.pl <filedir>\n\n";
    print STDERR "\t <filedir>\t: directory with the account files\n";
}

sub db_set {
    my $dbh = shift;
    my $userid = shift;
    my $alist = shift;
    my ($i);

    print("INSERT INTO BNET (uid) VALUES ($userid);\n");
    print("INSERT INTO profile (uid) VALUES ($userid);\n");
    print("INSERT INTO Record (uid) VALUES ($userid);\n");
    print("INSERT INTO friend (uid) VALUES ($userid);\n");
    for($i=0; $i<scalar(@alist);$i++) {
        my $tab = $alist[$i]{tab};
        my $col = $alist[$i]{col};
        my $val = $alist[$i]{val};

        $nval = &add_slashes($val);
        print("ALTER TABLE $tab ADD COLUMN '$col' VARCHAR(128);\n");
        print("UPDATE $tab SET '$col' = '$nval' WHERE uid = $userid;\n");
    }
}

sub add_slashes {
    my $str = shift;

    $str =~ s/\'/\'\'/g;

    return $str;
}

sub escape_key {
	my $str = shift;

	$str =~ tr/A-Z/a-z/;
	$str =~ s/[^0-9a-zA-Z]/_/g;
	return $str;
}