Hello all,
Here is the testcase:
problem confirmed on two different irssi installations
with different perl&versions.
#Instruction for test case:
#1 Load irssi, load irssi-proxy
#2 connect to irssi-proxy
#have the connected client log raw traffic to a file or to a separate window
#so you can see what is going on
#3 load this script
#4 do /testsend in irssi
#5 look at the raw output in the client, it's supposed to go to 5000
#it stops roughly after 200-250 iterations here.
#If I decrease the fillertext size, it goes through, meaning
#it's a question of "rate" I guess.
#you might have to make the fillertext bigger to make the rate higher.
#and it might not work on "slower" computer where processing wouldnt
#be fast enough
sub stop_sig { Irssi::signal_stop(); }
sub testsend {
my ($data, $server, $item) = @_;
Irssi::signal_add_first('print text', 'stop_sig');
my $fillertext = "abcdefghiklmnopqrstuvwxyz abcdefghiklmnopqrstuvwxyz
01234567890123456789 0123456789 aaaaaaaaaa0";
for (my $k = 0; $k < 5000;$k+=1) { Irssi::signal_emit('server incoming',
$server, ":[EMAIL PROTECTED] NOTICE #test :Playing " . $k . $fillertext .
$filltertext); }
Irssi::signal_remove('print text', 'stop_sig');
}
Irssi::command_bind('testsend','testsend');
Thanks for any help...
Paul-Kenji Cahier
