From 2c127ee627ea27a4006c454de100ddb394c6b0b8 Mon Sep 17 00:00:00 2001 From: milkbone57 Date: Sat, 19 Jul 2003 03:03:55 +0000 Subject: [PATCH] *** empty log message *** --- docs/VERSION.txt | 2 ++ mb.conf | 9 ++++-- plugins/Monitor/Monitor.pl | 37 +++++++++++++++++++++++ plugins/Tk-BList/Milkbone/BList.pm | 3 +- plugins/Tk-Conf/Milkbone/Conf.pm | 48 ++++++++++++++++++++++++++++++ plugins/Tk-Conf/Tk-Conf.pl | 18 +++++++++++ 6 files changed, 113 insertions(+), 4 deletions(-) create mode 100644 plugins/Monitor/Monitor.pl create mode 100644 plugins/Tk-Conf/Milkbone/Conf.pm create mode 100644 plugins/Tk-Conf/Tk-Conf.pl diff --git a/docs/VERSION.txt b/docs/VERSION.txt index 3a9a677..c6ec41b 100644 --- a/docs/VERSION.txt +++ b/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 diff --git a/mb.conf b/mb.conf index db8f4cb..aafc99e 100644 --- a/mb.conf +++ b/mb.conf @@ -1,12 +1,15 @@ # 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 AwayTimeout 60 TrayIcon 1 HideBListLogo 0 -ThemeColor lightblue \ No newline at end of file +ThemeColor lightblue +# MonitorServer smptauth.earthlink.net +# MonitorUser batkins86@earthlink.net +# MonitorPass superfly \ No newline at end of file diff --git a/plugins/Monitor/Monitor.pl b/plugins/Monitor/Monitor.pl new file mode 100644 index 0000000..4331130 --- /dev/null +++ b/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; diff --git a/plugins/Tk-BList/Milkbone/BList.pm b/plugins/Tk-BList/Milkbone/BList.pm index da7fd0b..08a9cef 100644 --- a/plugins/Tk-BList/Milkbone/BList.pm +++ b/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; diff --git a/plugins/Tk-Conf/Milkbone/Conf.pm b/plugins/Tk-Conf/Milkbone/Conf.pm new file mode 100644 index 0000000..6ce04e1 --- /dev/null +++ b/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('', + [ 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; +} diff --git a/plugins/Tk-Conf/Tk-Conf.pl b/plugins/Tk-Conf/Tk-Conf.pl new file mode 100644 index 0000000..d08e4da --- /dev/null +++ b/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;