egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-10-14T02:52:26-04:00 https://forum.eggheads.org/app.php/feed/topic/14115 2007-10-14T02:52:26-04:00 2007-10-14T02:52:26-04:00 https://forum.eggheads.org/viewtopic.php?p=76717#p76717 <![CDATA[getting someting inside a dir]]>

Code: 

set filesdir "/home/store"                        bind pub - !get pub:get        proc pub:get {nick uhost hand chan file} {        global filesdir        if {$file != ""} {                if {$file == "1"} {                        set filesdir "/path/to/dir1"                } elseif {$file == "2"} {                        set filesdir "/path/to/dir2"                } elseif {$file == "3"} {                        set filesdir "/path/to/dir3"                } else {                        # send an error message if the user doesn't give a valid number here..                        puthelp "NOTICE $nick :!get <file>"                        return                }                switch -- [dccsend $filesdir/$file\.txt $nick] {                        0 {                                     puthelp "NOTICE $nick :sending $file to you."                                dccsend $file $nick                        }                        1 { puthelp "NOTICE $nick :dcc table is full (too many connections), try to get $file later." }                        2 { puthelp "NOTICE $nick :can't open a socket for the transfer of $file." }                        3 { puthelp "NOTICE $nick :$file doesn't exist." }                        4 { puthelp "NOTICE $nick :$file was queued for later transfer." }                }        } else { puthelp "NOTICE $nick :!get <file>" }}

Statistics: Posted by rosc2112 — Sun Oct 14, 2007 2:52 am

]]> 2007-10-11T17:00:07-04:00 2007-10-11T17:00:07-04:00 https://forum.eggheads.org/viewtopic.php?p=76637#p76637 <![CDATA[getting someting inside a dir]]>

Code: 

# dcc sends/recieves por Marco Ferra aka nXistence# http://clientes.netvisao.pt/mferra/# marcoferra@netvisao.pt# versao 1.0# !get <file>, !getlist# por aqui a path ate' 'a filesystem do botset filesdir "/home/store/"bind pub - !get pub:getproc pub:get {nick uhost hand chan file} {  global filesdir  if {$file != ""} {    switch -- [dccsend $filesdir/$file $nick] {    0 {      puthelp "NOTICE $nick :sending $file to you."      dccsend $file $nick    }    1 { puthelp "NOTICE $nick :dcc table is full (too many connections), try to get $file later." }    2 { puthelp "NOTICE $nick :can't open a socket for the transfer of $file." }    3 { puthelp "NOTICE $nick :$file doesn't exist." }    4 { puthelp "NOTICE $nick :$file was queued for later transfer." }    }  } else { puthelp "NOTICE $nick :!get <file> or !getlist" }}bind pub - !getlist pub:getlistproc pub:getlist {nick uhost handle chan arg} {  global filesdir  if {$arg != ""} { set cdir $filesdir/$arg } else { set cdir $filesdir }  set tdir [pwd]  cd $cdir  foreach fil "[glob *]" {    if {[file isdirectory $fil]} { puthelp "NOTICE $nick :$arg/$fil" }    if {[file isfile $fil]} { puthelp "NOTICE $nick :$arg/$fil (size: [file size $fil] bytes)" }  }  puthelp "NOTICE $nick :end of getlist!"  cd $tdir}putlog "tcl: dcc sends/recieves loaded"
So it sends .txt files using the command.

Now some .txt files i upload have the same name, so what i need to do is create directories like 1, 2 etc and upload the .txt file to thoose dirs.

What i am looking for is a change in the scripts that allows me to do:

!get 1 and it will send the .txt that is in directory 1

Can this be done?

Thanks for the help

Statistics: Posted by pipo — Thu Oct 11, 2007 5:00 pm

]]>