@ -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
@ -1,6 +1,7 @@
0.356
--
* Logging works
* Multiple styles in BrowseEdit
* More font-tweaking
* Fixed the %a - %s bug (thanks Dan)
@ -6,8 +6,13 @@ use File::Path;
use strict;
use warnings;
my $dir = user_file("log");
our $dir;
mkpath($dir);
register_hook("signed_in", sub {
$dir = user_file("log");
print $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);
@ -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}");
@ -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;