irc command

[restesouple]

proc iRCDELUSER {nick uhost hand chan args} { if {[ioB:istrusted $uhost] } {
global ioBvar
set userdel [string trim [lindex [lindex $args 0] 0]]
::ftp::Quote $ioBvar(ftp) SITE deluser $userdel
}
}


I would like to be able deluser starting from IRC but only on the chan admin... I do not manage to find the code.

Thanks

[jeza]

proc iRCDELUSER {nick uhost hand chan args} { 

  global ioBvar

  if { ($chan == "#yourchanname") && ([ioB:istrusted $uhost]) } {
    
    catch { set ee [::ftp::Quote $ioBvar(ftp) SITE DELUSER [lindex $args 0]] } result
    
    set lines [split $ee "\n"]
    
    foreach line $lines { 
      putquick "PRIVMSG $chan :$line"
    }
    
  }
  
  return
  
}

[restesouple]

nice

Thanks

But message is "200 kick Command successful." with others commands... I would like to leave "200" or "500" etc


Thanks

[restesouple]

In reality I would like to view the responses FTP... Exemple:

<Me> !site kick USER
<BOT> kick Command successful.


Actually, i've that:

<Me> !site kick USER
<BOT> 200 kick Command successful.

<Me> !site gadduser iND TEST TEST *@*
<BOT> 0

[restesouple]

nobody ?

[jeza]

try

putquick "PRIVMSG $chan :[lrange [split $line] 2 end]"

[jeza]

or this

#!ftp site deluser login
#!ftp site gadduser group login pass ip
#!ftp site kick login

bind pub -|- !ftp FTPCMD

proc FTPCMD {nick uhost hand chan args} { 

  global ioBvar

  if { ($chan == "#yourchanname") && ([ioB:istrusted $uhost]) } {
    
    if { [string tolower [lindex $args 0]] == "site" } {
      
      if { [string tolower [lindex $args 1]] == "deluser" } {
        
        catch { set ee [::ftp::Quote $ioBvar(ftp) SITE DELUSER [lindex $args 2]] } result
        
      }
      
      if { [string tolower [lindex $args 1]] == "gadduser" } {
        
        catch { set ee [::ftp::Quote $ioBvar(ftp) SITE GADDUSER [lindex $args 2] [lindex $args 3] [lindex $args 4] [lindex $args 5]] } result
        
      }
      
      if { [string tolower [lindex $args 1]] == "kick" } {
        
        catch { set ee [::ftp::Quote $ioBvar(ftp) SITE KICK [lindex $args 2]] } result
        
      }
      
      set lines [split $ee "\n"]
      
      foreach line $lines { 
      
        putquick "PRIVMSG $chan :[lrange [split $line] 1 end]"
      
      }
    }
    
  }
  
  return
  
}

[restesouple]

I request the full response of FTP...

(16:37:46) (+ME) !site kick test
(16:37:47) (BOT) User does not exist.

it's good, but

(16:38:17) (+ME) !site change TEST ratio 0
(16:38:18) (BOT) modified.
(16:38:18) (BOT) Command successful.

its an another response on FTP client



I use all command FTP in my channel admin...

[jeza]

hehe

only way to see normal response on all commands is to have
putquick "PRIVMSG $chan :$line"

and u have to leave with 200- 500- ...

[restesouple]

Yes but with my skin 200- and 500- isn't beautiful

I don't know to leave 500 and 200 message

[jeza]

      foreach line $lines { 
      
        if { ([lindex [split $line] 0] == "200") || ([lindex [split $line] 0] == "500") || ([lindex [split $line] 0] == "200-") } {
          putquick "PRIVMSG $chan :[lrange [split $line] 1 end]"
        } else {
          putquick "PRIVMSG $chan :$line"
        }
      
      }

[restesouple]

Thanks :banana: