blob: 05be333534007469e6908b21c04fa020b3af16e7 (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
$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;
|
