Go Back   FlashFXP Forums > > > >

Harm's scripts ioBanana, Readd script, ioVote

Reply
 
Thread Tools Rate Thread Display Modes
Old 03-16-2005, 03:10 AM   #16
ioFTPD-Noop
Junior Member
 
Join Date: Mar 2005
Posts: 15
Default

Code:
proc proc_irc_request {nick uhost hand chan args} {
global ioBvar
{if {[ioB:istrusted $uhost]} {
set nicksplit [split $nick {}]
set count 0
foreach alpha $nicksplit {
if {[string equal $alpha "\\"] || [string equal $alpha "\|"] } {
set nicksplit [lreplace $nicksplit $count $count]
incr count -1
}
incr count
}
set nick [join $nicksplit {}]
set arg [join[list $args "$nick@iRC"] "-"]
set status [catch {set ee [::ftp::Quote $ioBvar(ftp) SITE REQIRC $arg]} result]
if { $status == 0 } {
set output "-:[b]:[b] [c]$ioBvar(color1)request[c] [b]:[b]:- [b]\[REQ\]-%request[b] added by [b]%name[b]" ;
set output [ioB:replacevar $output "%name" $nick]
set output [ioB:replacevar $output "%request" $args]
set output [ioB:basicreplace $output "REQUEST"]
ioB:tsend chan $chan $output
}
}
}
does not go (nothing goes more!bw!help nix)

Code:
proc proc_irc_reqdel {nick uhost hand chan args} {
global ioBvar
{if {[ioB:istrusted $uhost]} {
set arg [lindex $args 0]
if { [string is digit -strict $arg] } {
set status [catch {set ee [::ftp::Quote $ioBvar(ftp) SITE REQDELIRC $arg]} result]
set lines [split $ee \n]
set lines [lreplace $lines 0 0]
set lines [lreplace $lines end end]
set lines [lreplace $lines end end]
if { $status == 0 } {
if { [string equal [lindex $lines 0] "200- Request not found"] } {
set output "-:[b]:[b] [c]$ioBvar(color1)error[c] [b]:[b]:- Request number [b]$arg[b] not found: check !requests for correct request number"
ioB:tsend chan $chan $output
} else {
set output "-:[b]:[b] [c]$ioBvar(color1)request deleted[c] [b]:[b]:- request [b]%request[b] deleted by [b]%user[b]@iRC"
set output [ioB:replacevar $output "%user" $nick]
set output [ioB:replacevar $output "%request" $arg]
ioB:tsend chan $chan $output
}
}
} else {
set output "-:[b]:[b] [c]$ioBvar(color1)error[c] [b]:[b]:- Request number not found: $arg is not a number"
ioB:tsend chan $chan $output
}
}
}
does not go (nothing goes more!bw!help nix)
Code:
proc proc_irc_reqfilled {nick uhost hand chan args} {
global ioBvar
set arg [lindex $args 0]
if { [string is digit -strict $arg] } {
set status [catch {set ee [::ftp::Quote $ioBvar(ftp) SITE REQFILLEDIRC $arg]} result]
set lines [split $ee \n]
set lines [lreplace $lines 0 0]
set lines [lreplace $lines end end]
set lines [lreplace $lines end end]
if { $status == 0 } {
if { [string equal [lindex $lines 0] "200- Request not found"] } {
set output "-:[b]:[b] [c]$ioBvar(color1)error[c] [b]:[b]:- Request number [b]$arg[b] not found: check !requests for correct request number"
ioB:tsend chan $chan $output
} else {
set lines [split [lindex $lines 0] :]
set reqfilled [string trim [lindex $lines 1]]
set output "-:[b]:[b] [c]$ioBvar(color1)filled request[c] [b]:[b]:- [b]\[%request\][b] > [b]\[REQ\]-%reqfilled[b] filled by [b]%user[b]@iRC"
set output [ioB:replacevar $output "%user" $nick]
set output [ioB:replacevar $output "%request" $arg]
set output [ioB:replacevar $output "%reqfilled" $reqfilled]
ioB:tsend chan $chan $output
}
}
} else {
set output "-:[b]:[b] [c]$ioBvar(color1)error[c] [b]:[b]:- Request number not found: $arg is not a number"
ioB:tsend chan $chan $output
}
That can be done go also the old things!bw!help
ioFTPD-Noop is offline   Reply With Quote
Old 01-21-2006, 01:29 PM   #17
boumboOo
Junior Member
 
Join Date: Sep 2005
Posts: 2
Default probleme

Threepw00d or harm you can put to us the file iobanana.tcl config for the request or not?
boumboOo is offline   Reply With Quote
Old 01-21-2006, 05:14 PM   #18
Harm
Too much time...
Ultimate Scripter
 
Join Date: Jul 2003
Posts: 1,430
Default

This is already available in ioB2 which was released at the end of august 2005.

WarC has kindly added a new feature to ioA that allows me to specify the uid/gid of the requester. You need to configure it but it's like you were requesting using the site commands.
Harm is offline   Reply With Quote
Old 01-22-2006, 07:26 AM   #19
boumboOo
Junior Member
 
Join Date: Sep 2005
Posts: 2
Default

yes my kan I type!request lost A put on IRC does not walk!!

Request_Line = " [%##] [%-10user] -> %request"
Request_Field = " -> "
Request_Max = 10
Request_Max_User = 4
Request_Excluded_User_0 = "sitebot"
Request_Too_Many_Made = " Too many requests made. Limit is %.0request"
Request_Too_Many_Made_User = " You have made too many request already. Limit is %.0request"
Request_Already_Made = " That is already requested"
Request_Output_Line = " Added request: %request"
Request_Log = ""%user" "%group" "%request""
Request_Add_Tag = 1
Request_Tag = "[REQ]-%REQUEST"
Request_IRC_Uid = 0
Request_IRC_Gid = 0
Request_Use_Uid-GID_from_IRC = 1
boumboOo is offline   Reply With Quote
Reply

Tags
%request, ftp, irc, requests, sitebot

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump


All times are GMT -5. The time now is 01:04 AM.

Parts of this site powered by vBulletin Mods & Addons from DragonByte Technologies Ltd. (Details)