1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- queryresume.pl.orig 2003-02-12 14:01:01.000000000 +0100
+++ queryresume.pl 2006-07-22 11:36:26.754436104 +0200
@@ -32,13 +32,14 @@
sub sig_window_item_new ($$) {
my ($win, $witem) = @_;
- return unless (ref $witem && $witem->{type} eq 'QUERY');
+ #return unless (ref $witem && $witem->{type} eq 'QUERY');
+ return unless (ref $witem);
my @data;
my $filename = Irssi::settings_get_str('autolog_path');
my $servertag = $witem->{server}->{tag};
my $name = lc $witem->{name};
- $filename =~ s/(\$tag|\$1)/$servertag/g;
- $filename =~ s/\$0/$name/g;
+ $filename =~ s/\$tag\b|\$\{tag\}|\$1\b|\$\{1\}/$servertag/g;
+ $filename =~ s/\$0\b|\$\{0\}/$name/g;
my @lt = localtime(time);
my $zone;
$filename = strftime($filename, @lt, $zone);
|
