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.
48 lines
886 B
48 lines
886 B
#!/usr/bin/perl |
|
|
|
# ---------------------------------------------------------------------- |
|
# Author(s) : Bill Atkins |
|
# 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; # 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();
|
|
|