""

Milkbone.pm

@@ -319,7 +319,7 @@ sub pre_mainloop
 
 sub error
 {
-	unlink "errlog.txt" and warn "errlog.txt has exceeded 500K." if -s "errlog.txt" > 500 * 1024;
+	unlink "errlog.txt" and warn "errlog.txt has exceeded 500K." if -e "errlog.txt" && -s "errlog.txt" > 500 * 1024;
 	open(LOG, ">>errlog.txt") or die "Can't open error file: $!";
 	print LOG $ARGS{-short} . "\n" if $ARGS{-short};
 	print LOG $ARGS{-long} . "\n" if $ARGS{-long};
@@ -408,6 +408,9 @@ sub user_file
 	my ($file) = @_;
 	my $user = data("me");
 
+        $ENV{HOME} ||= '';
+        $ENV{APPDATA} ||= '';
+
         my $dir = (nix()  ? "$ENV{HOME}/.milkbone" : 
             (nt() ? "$ENV{APPDATA}/milkbone" : "profiles"));
 

docs/BUGS.txt

@@ -1,9 +1,9 @@
+warnings emitted (eg the bug in Tk::Browser)
+multiple styles in browseedit
+border around browseedit
+flashing
+loading/unloading of GUI plugins
 periods in screen names
-fatal error garbage
-deregister might need some work
 if you have the buddy group minused so it doesnt show the members and when someone logs on after it is minused, they show up listed under the list still even though it is minimized
-might not log on easily after getting booted
-weird double convos
 typing goes away when you send
-mobile icons = buggy
-graceful failing on linux (and vice-versa)
+mobile icons = buggy

docs/VERSION.txt

@@ -1,6 +1,7 @@
 0.355
 --
 
+* Browser option in the conf
 * Configuration dialog
 * Customizable Monitor-ing
 * Graceful failure of Win32 plugins on *NIX (so graceful it'll bring a tear to your eye)

mb.conf

@@ -9,7 +9,7 @@ SoundsWhileAway 0
 AwayTimeout 60
 TrayIcon 1
 HideBListLogo 0
-ThemeColor lightblue
-MonitorServer smtpauth.earthlink.net
-MonitorUser batkins86@earthlink.net
-MonitorPass superfly
+# ThemeColor lightblue
+# MonitorServer smtpauth.earthlink.net
+# MonitorUser batkins86@earthlink.net
+# MonitorPass xxxxxxxxxxxxxxxxxx

milkbone

@@ -0,0 +1,3 @@
+#!/bin/sh
+cd /home/bill/milkbone
+/home/bill/milkbone/mos.pl

mosh

@@ -0,0 +1,3 @@
+#!/bin/sh
+cd /home/bill/milkbone
+/home/bill/milkbone/mosh.pl

plugins/Tk-Conf/Milkbone/Conf.pm

@@ -4,7 +4,7 @@ use Milkbone;
 
 our $VERSION = '1.0';
 
-use Tk::widgets qw(Frame);
+use Tk::widgets qw(Frame TextUndo);
 use base qw(Tk::Toplevel);
 use strict;
 use warnings;

plugins/Tk-Convo/Tk-Convo.pl

@@ -18,16 +18,12 @@ register_hook("create_convo", sub {
  	return if(exists $convos{$buddy});
         $convos{$buddy} = 1;
 
-        print " is new";
-        print %convos;
-
 	$convo = $mw->MBConvo;
 	$convo->init($mw, hook("protocol_get_realname", -user => $buddy) || $buddy);
 
 	$convos{$buddy} = $convo;
 
 	register_hook("msg_in_$buddy", sub {
-            print "message $ARGS{-msg} received \n\n";
 		if(!$convos{$ARGS{-user}})
 		{
 			hook("create_convo", -user => hook("protocol_get_realname", -user => $ARGS{-user}));

plugins/Tk-GUI/Tk/Browser.pm

@@ -122,8 +122,8 @@ sub a_begin
 
 	$self->tagBind($tag, '<ButtonPress-1>', [sub {
 		my $cmd;
-		$cmd = "\"c:\\program files\\internet explorer\\iexplore.exe\"" if $^O =~ m/Win32/;
-		$cmd = "opera" if $^O !~ m/Win32/;
+		$cmd = option("Browser") or "\"c:\\program files\\internet explorer\\iexplore.exe\"" if $^O =~ m/Win32/;
+		$cmd = option("Browser") or "opera" if $^O !~ m/Win32/;
 		if($^O !~ m/Win32/)
 		{
 			exec("$cmd $_[1]") unless fork;

plugins/Tk-Logon/Tk-Logon.pl

@@ -16,6 +16,7 @@ register_hook("create_logon_prompt", sub {
 	register_hook("signed_in", sub { 
 		Milkbone::Logon::on_signed_in($ARGS{-self});
 		$logged = 1;
+                  $ARGS{-self}->destroy;
 	} , {-self => $log});
 
 	register_hook("protocol_signoff", sub {

plugins/Win32-Tray.pl

@@ -52,7 +52,7 @@ sub NI_RightClick
 
 sub Tray_Exit_Click
 {
-	abort;
+	exit;
 }
 
 sub Tray_Head

plugins/XAMP.pl

@@ -81,7 +81,6 @@ sub update
     $last_text = $text;
 
     my ($artist, $title) = (get_artist(), get_title());
-    print "artist = $artist; song = $title;\n";
     hook('protocol_mod_prof', -name => '%a', -value => $artist);
     hook('protocol_mod_prof', -name => '%s', -value => $title);