[TCL] cmd Flood protection

[GodOfSuicide]

I'm trying to run an email script, and some of the main features allready work (big thx to #egghelp ).

Code: Select all

# user 1
if {[string match "user1*" [lindex $arg 0]]} {
set mail "me@host.com"
set body [lrange $arg 1 end]

# user2
} elseif {[string match "user2*" [lindex $arg 0]]} { 
set mail "he@host.com"
set body [lrange $arg 1 end]
......

This allready works fine, but i got one problem : somebody could use this as an mail bomber, so i'd need a feature that u can send a person 1 mail in 10 minutes if you have flag "+f", 1 mail in 5 minutes if you have +o, and unlimited if you have m/n flag.

I haven't found such a script yet, only generell flood protection and stuff.

[slennox]

If you could paste the whole proc it would be easier, since I'm finding it a bit bloating outlining where certain things may or may not go in the context of an unknown script