zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-18 16:12:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

$server->values()->{'nick'} works fine without any

Browse source 
$sinfo = %{$server->values()}; $sinfo{'nick'} ugliness, fixed.

make install didn't work in plugins/perl


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@137 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-03-10 20:16:43 +00:00 • committed by cras
commit 73703bd87a
4 changed files with 13 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

5
examples/autorejoin.pl
View file

@ -12,10 +12,7 @@ sub event_rejoin_kick {
# check if channel has password
$chanrec = $server->channel_find($channel);
if ($chanrec) {
%cvals = %{$chanrec->values()};
$password = $cvals{'key'};
}
$password = $chanrec->values()->{'key'} if ($chanrec);
$server->send_raw("JOIN $channel $password");
}

4
examples/privmsg.pl
View file

@ -8,9 +8,7 @@ sub event_privmsg {
return if (!Irssi::is_channel($target));
%sinfo = %{$server->values()};
$mynick = $sinfo{'nick'};
$mynick = $server->values()->{'nick'};
return if ($text !~ /\b$mynick\b/);
$server->command("/notice $mynick In channel $target, $nick!$address said: $text");

3
examples/quitmsg.pl
View file

@ -24,8 +24,7 @@ sub cmd_quit {
@servers = Irssi::servers;
foreach $server (@servers) {
%svals = %{$server->values()};
$server->command("/disconnect ".$svals{'tag'}." $quitmsg");
$server->command("/disconnect ".$server->values()->{'tag'}." $quitmsg");
}
}