#!/usr/bin/perl

use warnings;
use strict;

use lib '../lib';

use Data::Dumper;

use POE qw(SAPI);
use POE::SAPI::HandySubs qw(pad);

POE::Session->create(
        inline_states => {
                _start  => \&init,
                comm    => \&comm,
        },
);

POE::Kernel->run();
exit;

sub init {
        my ($kernel,$session,$heap) = @_[KERNEL,SESSION,HEAP];
        $heap->{SAPI} = POE::SAPI->new({ });            # Note no options yet
}
sub comm {
        my ($kernel,$session,$heap,$req) = @_[KERNEL,SESSION,HEAP,ARG0];

        $req->{src} = "UNKNOWN" if (!$req->{src});

        if (!$req->{type}) { $kernel->yield('comm',{ type=>"debug", level=>"critical", msg=>"Just passed a request with no type!", original=
        else {
                print "[" . pad($req->{src},12," ") . "], $req->{type}: $req->{msg}\n";
        }

        return if (!$req->{code});

        if ($req->{code} eq 'N_COREREADY') {
                $kernel->yield('comm',{ type=>"debug", level=>"debug", msg=>"Core Ready - Initilizing config" } );
                $kernel->post('SAPI','config',{ type=>"init" });
        }

#       $kernel->post("LocalAuth","auth",{username=>'Auser',password=>'MyPassword'});
}