Run.pm

# // USE THIS INSTEAD OF RUN.BAT //

use strict;
use warnings;

require 'Configuration/Config.pl';

use vars qw($loginConfig $gameConfig $dbConfig);

use Module::Find;

use Utils::Tools;
use Utils::Logger;
use Utils::Cryptography;

use Drivers::MySQL;
use Drivers::Socket;

use Misc::Crumbs;
use Misc::Matches;

use Server::CPPlugins;
use Server::CPCommands;

usesub Server::Systems;
usesub Server::Plugins;

use Server::ClubPenguin;
use Server::CPUser;

my $objLoginServer = ClubPenguin->new($loginConfig, $dbConfig);
my $objGameServer = ClubPenguin->new($gameConfig, $dbConfig);

$objLoginServer->initializeSource;
$objGameServer->initializeSource;

do {
   $objLoginServer->{modules}->{base}->serverLoop;
   $objGameServer->{modules}->{base}->serverLoop;
} while (1);