Re: Preventing IRC flood

You could simply store the time when you last send the mesage to that nick in a hash (in the example called "received_about"), and only send the message, if the last time you send that message was more than 60seconds ago if ($received_about{$nick} and (time - $received_about{$nick}) > 60) { $received_about{$nick} = time; &snd_msg("About"); }
[download]
UPDATE: as noted correctly by bart, there was an error in my logic, his code is correct:

if (!$received_about{$nick} or (time - $received_about{$nick}) > 60) {
    $received_about{$nick} = time;
    &snd_msg("About");
}
[download]

Comment on Re: Preventing IRC flood Select or Download Code

Replies are listed 'Best First'.
Re^2: Preventing IRC flood by bart (Canon) on Jun 07, 2006 at 08:10 UTC
Your method is solid, your logic is flawed. You need to send the info too if `$received_about{$nick}` isn't set. I think this will work: `if (!$received_about{$nick} or (time - $received_about{$nick}) > 60) { $received_about{$nick} = time; &snd_msg("About"); }` [download]	[reply] [d/l] [select]
Re^2: Preventing IRC flood by D-0 (Initiate) on Jun 07, 2006 at 07:56 UTC
Ok could you tell me how can i use DCC send in perl ? thanks	[reply]
Re^3: Preventing IRC flood by rminner (Chaplain) on Jun 07, 2006 at 08:14 UTC
Haven't used it myself, but i guess what you are looking for is Net::IRC. It seems to support DCC send (at least its submodule Net::IRC::DCC).	[reply]