#!/usr/bin/perl -w

use lib 'modules';
use ChatUtils;
use strict;
use CGI qw(fatalsToBrowser);
use warnings;
use diagnostics;


my $q = new CGI;
print $q->header( "text/plain" );#C:\WEB_ROOT\PerlChat\userdir

my $UtilObj = new ChatUtils({
	UserDirectory => '/userdir'
});

my %userProps = (
	LoginName => 'Ikkon',
	LoginPass => 'Chaos',
	UserName => 'Ben'
);

my $userDir = $UtilObj->{'UserDirectory'};
$UtilObj->RegisterUser(\%userProps);

my %getUserInfo = $UtilObj->getUserInfo($userDir);
while ( my ($key, $value) = each(%getUserInfo) ) {
     print "$key => $value\n";
}