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,
":backlog-!backlogback.log 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
|
