From 6c925c65dffcfab01998a01981e40afeb01ea145 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Sat, 16 Aug 2003 16:45:56 +0000
Subject: [PATCH] ""

---
 Makefile                     |  4 +++-
 docs/VERSION.txt             |  1 +
 plugins/Log.pl               | 11 +++++++++--
 plugins/Tk-Convo/Tk-Convo.pl |  2 +-
 plugins/Tk-GUI/Tk/Browser.pm |  2 +-
 5 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/Makefile b/Makefile
index bc80665..21daf8a 100644
--- a/Makefile
+++ b/Makefile
@@ -1,3 +1,5 @@
+# based on tkabber's Makefile
+
 PREFIX = /usr/local
 
 SUBDIRS = plugins           \
@@ -13,4 +15,4 @@ install:
 	mkdir -p $(DESTDIR)/$(PREFIX)/bin/
 	echo -e "#!/bin/sh \n cd ${PREFIX}/share/milkbone \n exec $(PREFIX)/share/milkbone/mos.pl \"\$$@\"\n" > $(DESTDIR)/$(PREFIX)/bin/milkbone
 	chmod +x $(DESTDIR)/$(PREFIX)/bin/milkbone
-	ln $(DESTDIR)/$(PREFIX)/bin/milkbone /usr/bin/milkbone
+	ln -f $(DESTDIR)/$(PREFIX)/bin/milkbone /usr/bin/milkbone
diff --git a/docs/VERSION.txt b/docs/VERSION.txt
index 5412814..e3c8c12 100644
--- a/docs/VERSION.txt
+++ b/docs/VERSION.txt
@@ -1,6 +1,7 @@
 0.356
 --
 
+* Logging works
 * Multiple styles in BrowseEdit
 * More font-tweaking
 * Fixed the %a - %s bug (thanks Dan)
diff --git a/plugins/Log.pl b/plugins/Log.pl
index 6fd9016..8084d82 100644
--- a/plugins/Log.pl
+++ b/plugins/Log.pl
@@ -6,8 +6,13 @@ use File::Path;
 use strict;
 use warnings;
 
-my $dir = user_file("log");
-mkpath($dir);
+our $dir;
+
+register_hook("signed_in", sub {
+    $dir = user_file("log");
+    print $dir;
+    mkpath($dir);
+});
 
 register_hook("msg_in", \&on_msg_in);
 register_hook("protocol_send_im", \&on_protocol_send_im);
@@ -50,6 +55,8 @@ sub log_item
 {
     my ($file, $text) = @_;
 
+    print $file, $text;
+
     open(LOG, ">>$file");
     print LOG $text;
     close(LOG);
diff --git a/plugins/Tk-Convo/Tk-Convo.pl b/plugins/Tk-Convo/Tk-Convo.pl
index 124841a..3a86801 100644
--- a/plugins/Tk-Convo/Tk-Convo.pl
+++ b/plugins/Tk-Convo/Tk-Convo.pl
@@ -57,7 +57,7 @@ register_hook("create_convo", sub {
 });
 
 register_hook("remove_convo", sub {
-    i
+    
     deregister_hook("msg_in_$ARGS{-user}");
     deregister_hook("buddy_in_$ARGS{-user}");
     deregister_hook("buddy_out_$ARGS{-user}");
diff --git a/plugins/Tk-GUI/Tk/Browser.pm b/plugins/Tk-GUI/Tk/Browser.pm
index 3c3db98..5e8f76a 100644
--- a/plugins/Tk-GUI/Tk/Browser.pm
+++ b/plugins/Tk-GUI/Tk/Browser.pm
@@ -179,7 +179,7 @@ sub font_begin
 
 	$realsize = int((8, 10, 12, 14, 18, 24, 38) [int($size) + 1]) if $size and $^O !~ /Win32/;
 
-	$font->{-family} = $family if $family;
+	$font->{-family} = "{$family}" if $family;
 	$font->{-size} = $realsize if $size;
 
 	my %opts;