blob: 7c8450c0b6203fb66d25e9f3c9fbd481cc8f753e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
$NetBSD: patch-ab,v 1.2 2002/05/07 15:41:38 wiz Exp $
--- vicq.orig Mon Apr 15 18:55:17 2002
+++ vicq
@@ -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;
|
