diff --git a/mb.conf b/mb.conf index 3a4f4e6..d10fef8 100644 --- a/mb.conf +++ b/mb.conf @@ -10,6 +10,6 @@ AwayTimeout 60 TrayIcon 1 HideBListLogo 0 ThemeColor lightblue -# MonitorServer smptauth.earthlink.net -# MonitorUser batkins86@earthlink.net -# MonitorPass xxxxxxxxxxxxxxxxxxxx \ No newline at end of file +MonitorServer smptauth.earthlink.net +MonitorUser batkins86@earthlink.net +MonitorPass superfly \ No newline at end of file diff --git a/plugins/Win32-Tray.pl b/plugins/Win32-Tray.pl index 5483c42..9d00b29 100644 --- a/plugins/Win32-Tray.pl +++ b/plugins/Win32-Tray.pl @@ -1,12 +1,12 @@ -BEGIN { return 1 unless $^O =~ /win32/i; } - package Win32Tray; +return 1 unless $^O =~ /win32/i; + use strict; use warnings; use Milkbone; -use Win32::GUI; +eval 'use Win32::GUI'; use Tk; my $icon = new Win32::GUI::Icon(path("images/mbone.ico")) or die "Couldn't load icon."; @@ -27,7 +27,7 @@ register_hook("signed_in", sub { ); hook("tk_getmain")->repeat(500, [sub { - Win32::GUI::DoEvents; + Win32::GUI::DoEvents(); }, $parent]); register_hook("post_mainloop", sub { diff --git a/plugins/Win32X.pl b/plugins/Win32X.pl index c8d148c..57874fc 100644 --- a/plugins/Win32X.pl +++ b/plugins/Win32X.pl @@ -1,9 +1,9 @@ -return 1 unless $^O =~ /win32/i; - package Win32X; +return 1 unless $^O =~ /win32/i; + use Milkbone; -use Win32::API; +eval 'use Win32::API'; use strict; use warnings;