You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.2 KiB
56 lines
1.2 KiB
#!/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 $@;
|
|
|