milkbone/mos.pl

#!/usr/bin/perl

# -----------------------------------------------------------------------------
# Author(s)	:	Bill Atkins and Eric Thul
# Title		:	MOS Core
# Date		:	12.21.02
# 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;

use warnings;
use strict;

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

use Tk;

$SIG{CHLD} = 'IGNORE';

use Milkbone;

$| = 1;

sub main
{
	Milkbone->init();

	for(@ARGV)
	{
		if($_ eq '--load' or $_ eq '-l')
		{
			hook("load_options");
			hook("load_plugins");
			
			exit;
		}
	}

	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();