#!/usr/bin/perl

# ----------------------------------------------------------------------
# Author(s)	:	Bill Atkins
# Title		:	Default guidance script
# Desc		:	the core for Milkbone
# QoTP		:	got milkbone?
# Notes		:	for more information see the plugin documentation	
# License	:	it's on our TODO list...
# -----------------------------------------------------------------------

use 5.006;	# milkbone might work on 5.004 or lower; someone should find out...

use warnings;
use strict;

use lib 'lib';
use lib '.';

use Tk;

$SIG{CHLD} = 'IGNORE';		# this is so forked processes don't become zombies

use Milkbone;

$| = 1;

sub main
{
    Milkbone->init();

    hook("load_options");

    require "plugins/Tk-Splash.pl" unless option("NoSplash");

    hook("load_plugins");
    hook("pre_mainloop");

    hook("create_logon_prompt");

    MOSLoop;

    hook("post_mainloop");
}

# off it goes...
main();