[REQ] User upload timeframe

[Hellraiser]

Hello ppl,

I am interested in a script that will prevent a user from uploading within a certain timeframe. Can this be done with TCL? What say you?
Thanks

[deo]

yes it can

[Hellraiser]

Thanks Deo, but, can you show me how this can be done?

[deo]

yes i can

[Hellraiser]

So I see...

[Hellraiser]

Howdy ppl,

I'm still looking for some decent help/tip.
Many thanks

[mentality]

##[FTP_Pre-Command_Events]
##stor = %TCL ..\scripts\timeframe.itcl %[$flags]

set timeframe "16-20" ;# from "this hour-to this hour"
set exemptflags "1 M G" ;# obvious

proc return_hour {} {return [clock format [clock seconds] -format %H]}

proc check_flags {flags exemptflags} {
foreach flag $exemptflags {
if {[string match *$flag* $flags]} {
return 1
}
}
return 0
}

proc check_time {hour timeframe} {
if {$hour >= [lindex $timeframe 0] && $hour <= [lindex $timeframe 1]} {
return 1
}
return 0
}

if {[check_flags [lindex $args 0] $exemptflags]} {
return 0
} elseif {[check_time [return_hour] [split $timeframe -]]} {
iputs "530 No uploading allowed between these hours '$timeframe'!"
return 1
}


...something like that