Package: irssi-scripts ----- Forwarded message from martin f krafft <[EMAIL PROTECTED]> -----
Date: Wed, 10 Sep 2008 14:27:23 +0100 From: martin f krafft <[EMAIL PROTECTED]> Subject: chanact patch Don't tell anyone I hacked Perl, but attached is a patch to chanact 0.5.7, which basically makes channel aliases case-sensitive, so that you can use lower- and upper-case separately. As I doubt anyone used upper-case letters thus far, I didn't see a need to make this configurable. I hope it'll make it into a new version soon. -- martin | http://madduck.net/ | http://two.sentenc.es/ "to have the reputation of possessing the most perfect social tact, talk to every woman as if you loved her, and to every man as if he bored you." -- oscar wilde spamtraps: [EMAIL PROTECTED] --- chanact.pl.orig 2008-09-10 15:23:41.000000000 +0200 +++ chanact.pl 2008-09-10 15:23:00.000000000 +0200 @@ -4,7 +4,7 @@ use vars qw($VERSION %IRSSI); -$VERSION = "0.5.7"; +$VERSION = "0.5.7.1"; %IRSSI = ( authors => 'BC-bd, Veli', contact => '[EMAIL PROTECTED], [EMAIL PROTECTED]', @@ -29,6 +29,7 @@ # [EMAIL PROTECTED] /window_alias code # [EMAIL PROTECTED] chanact_abbreviate_names # [EMAIL PROTECTED] Extra chanact_show_mode and chanact_chop_status +# [EMAIL PROTECTED] Better channel aliasing (case-sensitive, cross-network) # ######### # USAGE @@ -259,8 +260,8 @@ } if (Irssi::settings_get_bool('chanact_show_alias') == 1 && - $win->{name} =~ /^[a-zA-Z+]$/) { - $number = $win->{name}; + $win->{name} =~ /^([a-zA-Z+]):(.+)$/) { + $number = "$1"; $display = Irssi::settings_get_str('chanact_display_alias'); } else { $number = $win->{refnum}; @@ -357,9 +358,12 @@ Irssi::print("Moved the window from $old_refnum to $winnum"); } - $window->set_name($data); - $server->command("/bind meta-$data change_window $winnum"); - Irssi::print("Window $winnum is now known as '$data'"); + my $winname = $witem->{name}; + my $winserver = $window->{active_server}->{tag}; + my $winhandle = "$winserver/$winname"; + $window->set_name("$data:$winhandle"); + $server->command("/bind meta-$data change_window $data:$winhandle"); + Irssi::print("Window $winhandle is now accessible with meta-$data"); } # function by [EMAIL PROTECTED] @@ -423,6 +427,10 @@ ### # # Changelog +# 0.5.7.1 +# - made aliases case-sensitive and include network in channel names +# (martin # f. krafft <[EMAIL PROTECTED]>) +# # 0.5.7 # - integrated remove patch by Christoph Berg <[EMAIL PROTECTED]> # ----- End forwarded message -----
signature.asc
Description: Digital signature
