*** empty log message ***

docs/VERSION.txt

@@ -1,6 +1,8 @@
 0.355
 --
 
+* Customizable Monitor-ing
+* Graceful failure of Win32 plugins on *NIX
 * Fixed a dependency bug in Tk-BList (thanks Dan)
 * Customizable themes
 * Errors are handled a little more smoothly

mb.conf

@@ -1,8 +1,8 @@
 # mb.conf - milkbone global configuration file
 
 Goodbye sorry, gotta, go
-Modules Tk-PluginsConf, Net-OSCAR, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo
-Plugins Sound, XAMP, Templog, Monitor, Counterstrike
+Modules Tk-PluginsConf, Net-OSCAR, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo, Tk-Conf
+Plugins XAMP, Monitor, Counterstrike, Win32X
 Port 5190
 HeavyLogging 0
 SoundsWhileAway 0
@@ -10,3 +10,6 @@ AwayTimeout 60
 TrayIcon 1
 HideBListLogo 0
 ThemeColor lightblue
+# MonitorServer smptauth.earthlink.net
+# MonitorUser batkins86@earthlink.net
+# MonitorPass superfly

plugins/Monitor/Monitor.pl

@@ -0,0 +1,37 @@
+use Milkbone;
+use Net::SMTP;
+
+use strict;
+use warnings;
+
+sub sendmail
+{
+    print "sending message";;
+    my ($sub, $text, $user) = @_;
+    $user =~ s/ /_/g;
+    my $smtp = Net::SMTP->new(option('MonitorServer'), 
+                              Hello => 'milkbone.org', Debug => 1);
+
+    $smtp->auth(option("MonitorUser"), option("MonitorPass")) if option("MonitorUser");
+    $smtp->mail("$user\@milkbone.org");
+    $smtp->to('savannah@batkins.com');
+
+    $text =~ s/<.*?>//g;
+
+    $smtp->data();
+    $smtp->datasend("To: \n");
+    $smtp->datasend("From: Milkbone Monitor <$user\@milkbone.org>\n");
+    $smtp->datasend("Subject: $user - $sub \n");
+    $smtp->datasend("\n");
+    $smtp->datasend("$user - $text");
+    $smtp->dataend();
+
+    $smtp->quit;
+}
+
+register_hook("msg_in", sub {
+        return unless hook("protocol_away_status");
+        sendmail('Message Received', "Received the following message from $ARGS{-user}:\n\n$ARGS{-msg}", $ARGS{-user});
+});
+
+1;

plugins/Tk-BList/Milkbone/BList.pm

@@ -174,7 +174,7 @@ sub on_rclick
 	return if @temp == 1;
 	$self->select_buddy($self->{tree}->nearest($y));
 	
-	my $offset = ($^O =~ /Win32/) ? 10 : -30;
+	my $offset = ($^O =~ /Win32/) ? 20 : -30;
 
 	$self->{buddy_menu}->Post($self->x + $x, $self->y + $self->height - $self->{tree}->height + $y + $offset);
 }
@@ -258,6 +258,7 @@ sub init
 	$self->{menu_file}->command(-label => 'Add Buddy Group ...', -command => [$self, "on_add_group_menu"]);
 	$self->{menu_file}->separator;
 	$self->{menu_file}->command(-label => 'Plugins ...', -command => sub { hook("dlg_plugins", -parent => hook("tk_getmain"));	 });
+	$self->{menu_file}->command(-label => 'Edit Configuration...', -command => sub { hook("dlg_edit_conf", -parent => hook("tk_getmain"));	 });
 	$self->{menu_file}->command(-label => 'Reload Core', -command => 
             sub { reload_core(); });
 	$self->{menu_file}->separator;

plugins/Tk-Conf/Milkbone/Conf.pm

@@ -0,0 +1,48 @@
+package Milkbone::Conf;
+
+use Milkbone;
+
+our $VERSION = '1.0';
+
+use Tk::widgets qw(Frame);
+use base qw(Tk::Toplevel);
+use strict;
+use warnings;
+
+Construct Tk::Widget 'MBConf';
+
+sub ClassInit
+{
+    my ($class, $mw) = @_;
+    $class->SUPER::ClassInit($mw);
+}
+
+sub init
+{
+    my ($self) = @_;
+
+    $self->{text} = $self->Frame->pack(-expand => 1, -fill => 'both')->Scrolled(
+                                                                                "TextUndo", -scrollbars => 'oe', -background => 'white', -wrap => 'word', -font => "times 12")->
+                                                                                pack(-expand => 1, -fill => 'both');
+    
+    $self->Button(-text => "Close", -command => [$self, "destroy"])->pack(-side => 'right');
+    $self->Button(-text => "Save", -command => [$self, "on_save"])->pack(-side => 'right');
+
+    $self->{text}->bind('<MouseWheel>', 
+                        [ sub { $_[0]->yview('scroll', -($_[1] / 120), 'units') }, Tk::Ev('D')]);
+
+    $self->{text}->Load('mb.conf')
+
+        $self->{text}->focus;
+    hook("tk_seticon", -wnd => $self);
+}
+
+sub on_save
+{
+    my ($self) = @_;
+    
+    $self->{text}->Save;
+    hook("load_options");
+    
+    $self->destroy;
+}

plugins/Tk-Conf/Tk-Conf.pl

@@ -0,0 +1,18 @@
+package TkConf;
+
+use Milkbone;
+use Milkbone::Conf;
+use Tk;
+
+use warnings;
+use strict;
+
+my $mw = hook("tk_getmain");
+
+register_hook "dlg_edit_conf", sub {
+    my $file = $mw->MBConf;
+    $file->init;
+    $file->focus;
+};
+
+1;