$NetBSD: patch-ab,v 1.4 2013/06/12 12:11:49 wiz Exp $ --- vicq.orig 2002-04-15 16:55:17.000000000 +0000 +++ vicq 2013-06-12 12:09:25.000000000 +0000 @@ -557,12 +557,12 @@ change status to 'Free for chat' -=back - =item B change status to 'Offline/Disconnect' +=back + =head2 Contact list managment =over 4 @@ -2010,7 +2010,7 @@ $config{log_path} = expand_file($config{log_path}); $config{log_path}.='/' unless $config{log_path}=~/\/$/; }else{ - $config{log_path}="$ENV{HOME}/.vicq/history/"; + $config{log_path}="$ENV{HOME}/.vicq/history"; } unless( -e $config{log_path} || $config{log_path} eq $ENV{HOME}) { @@ -2494,7 +2494,7 @@ $uin =~ s/\033\[.m//g; my $fname=($config{log_type}=~/a/)?'vicq.log':"$uin.log"; - open LOG,">> $config{log_path}$fname" or warn "Can't open file $config{log_path}$fname"; + open LOG,">> $config{log_path}/$fname" or warn "Can't open file $config{log_path}$fname"; print LOG "--[$format $now_string\n"; print LOG $message; print LOG "\n" if $config{log_type}=~/n/; @@ -2834,7 +2834,7 @@ my $pager = $ENV{'PAGER'} || 'less -R'; my $home = $ENV{HOME}; my $fname=($config{log_type}=~/a/)?'vicq.log':"$uin.log"; - if(!(open LOG,"< $config{log_path}$fname")) + if(!(open LOG,"< $config{log_path}/$fname")) { print "No history file for $uin\n"; return;