#!/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();