mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-03 17:59:07 -04:00
47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
$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<offline>
|
|
|
|
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;
|