Anonymous

#!/usr/bin/perl

use lib qw(./);
use SQL;
use strict;

my $sql = SQL->new();
my $characters = $sql->ExtractHash("select * from characters");

my $characterid = '1000000';
foreach my $row (@{$characters}) {
    $characterid++;

    # Update characters table
    my $sqlupdate = $sql->Execute("update characters set obj_Id = '$characterid' where obj_Id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    # character_inventory {char_obj_id}
    my $sqlupdate = $sql->Execute("update character_inventory set char_obj_id = '$characterid' where char_obj_id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    # character_recipebook {char_id}
    my $sqlupdate = $sql->Execute("update character_recipebook set char_id = '$characterid' where char_id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    # character_shortcuts {char_obj_id}
    my $sqlupdate = $sql->Execute("update character_shortcuts set char_obj_id = '$characterid' where char_obj_id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    # character_skills {char_obj_id}
    my $sqlupdate = $sql->Execute("update character_skills set char_obj_id = '$characterid' where char_obj_id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    # character_warehouse {char_obj_id}
    my $sqlupdate = $sql->Execute("update character_warehouse set char_obj_id = '$characterid' where char_obj_id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    # clan_data {leader_id}
    my $sqlupdate = $sql->Execute("update clan_data set leader_id = '$characterid' where leader_id = '$characters->{'obj_Id'}'");
    if (!$sqlupdate) {  print "Failed to add entry for game server: ".$sql->{lasterror}; }

    print "$characterid - completed\n";

}