#!/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...
# -----------------------------------------------------------------------

eval {

  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;
  use Milkbone::Hooks qw(load_options pre_mainloop post_mainloop 
                         protocol_signon load_plugins create_logon_prompt);

  $| = 1;

  sub main
    {
      Milkbone->init();

      load_options;

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

      load_plugins;
      pre_mainloop;

      protocol_signon -user => 'test', -pass => 'test';
      data("me") = "test";

      #create_logon_prompt;

      MOSLoop;
      post_mainloop;
    }

  # off it goes...
  main();
};

print $@ if $@;