#!/usr/bin/tclsh
############################################################################
# Title: FSERV script
# HomePage: http://www.ofloo.net/
# Mail: support[at]ofloo.net
############################################################################
# Description: 
#   - Mirc like fserv script with most of the mirc features included still
#     working on some of the features.
#   - Current command list "pwd, whoami, get, ls, list, dir, help, credit,
#     cd, cd .."
#   - Channel commands !list, !who (owner command), and your fserv triggers.
# Notes: 
#   - This is a pre release.
#   - Known bug if the users 2 users or more start a dcc chat instantly 
#     one after an ohter the first user could have the same nick, on whoami
#     this also affects dccsend so if they leave like 1 second or more 
#     between a channel trigger then all works just fine
# ToDo:
#   - Create queue system.
#   - Fix the nick bug witch is minimal but still.
#   - Create expanded timers and settings.
#   - Create more commands.
# Install:
#   - source scripts/fserv.tcl > eggdrop.conf
#   - set the settings below
############################################################################

############################################################################
# SETTINGS

##### Transfer module this module is standart and can be set in your eggdrop.conf as well

loadmodule transfer

# Max downloads for each user
set max-dloads 1

# Dcc blocksize set to 0 for turbo dcc 
set dcc-block 0

# Disable this if your using this script i don't recommend it precaching files 
set copy-to-tmp 0

# Xfer time out inseconds
set xfer-timeout 30

# Script settings 

# Set dcc port
set fserv(port) "5000"

# Set serv channel, this channel can not be a dynamic channel.
set fserv(serv) "#ourhut"

# Bind triggers chan, ctcp, query, list cmd
set fserv(chan) "!fserv"
set fserv(ctcp) "!fserv"
set fserv(msg) ".fserv"
set fserv(list) "!list"

# Set what sort of trigger you will be using choose: 0=chan, 1=ctcp, 2=query
set status(type) "1"

# Enable/disable logon msg
set fserv(logon) "1"

# Enable channel timer
set fserv(timer) "1"

# Enable list command
set fserv(lists) "1"

# Fserv directory do not use \\ and end always with /
set homepath "/home/trouble/Desktop/eggdrop/filesys/testing/"

##### Colors

# Color channel and query colors
set colors(0) "\00314"
set colors(1) "\0034"

# Color: dir, file
set colors(2) "\00312"
set colors(3) "\00315"

# Color: <sepe>, <titl>, <body>
set colors(4) "\00314"
set colors(5) "\0034"
set colors(6) "\00315"

# Color: commen errors
set colors(7) "\0034"

# Color: timer
set colors(8) "\00314"
set colors(9) "\0034"

##### Messages

# Dcc error msg
set ::dccreturnmsg(0) "Sending file.."
set ::dccreturnmsg(1) "To many connections at the moment."
set ::dccreturnmsg(2) "Can't open socket for transfer."
set ::dccreturnmsg(3) "The requested file does not exist."
set ::dccreturnmsg(4) "File was put in queue."
set ::dccreturnmsg(5) "Error file allready precached. Report this to owner tnx."

set fserv(idle) "You have been idle for 50 seconds dcc will close in 10 seconds.."

set fserv(invalddir) "- Error invalid directory."

set fserv(desc) "porno"

# Welcome msg edit to ur preference. I created different tags so u can color the logonmsg
# Plz note that u always need to use the first tags .. or it won't show all the text on logon
# <sepe>: Seperator
# <titl>: Title line
# <body>: Body line
set ::fserv(welcome) {
  <sepe>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  <titl>  ** Welcome to my Fserv file server this is not a public file server **
  <sepe>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  <body>- October 03, 2003] If you are affiliated with any government, police.
  <body>  ANTI-Piracy Group, RIAA, MPAA, FBI, movie production
  <body>  company / distribution company or group, or any other related group you
  <body>  are violating code 431.322.12 of the Internet Privacy Act signed by
  <body>  Bill Clinton in 1995. So you have to leave this server..
  <body>- This is a private server. Stay in channel while leeching it or be kicked.
  <sepe>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}

# Do not edit below unless u know what ur doing :p
# Advertice timer is set to 10 minutes

set vrs "0.1"

############################################################################
# BINDS

bind pub - $fserv(chan) fserv:pub
bind pub - $fserv(list) list:pub
bind pub n !who who:pub
bind msg - $fserv(msg) fserv:msg
bind ctcp - $fserv(ctcp) fserv:ctcp
bind time - "?0 * * * *"  fserv:timer

############################################################################
# PROCS

listen $fserv(port) script listen:start

proc fserv:pub {nick uhost hand chan arg} {
  if {![isdynamic $::fserv(serv)]} {
    if {$::status(chan) == 0 && [onchan $nick $::fserv(serv)]} {
      set identcheck "0"
      foreach line [dcclist] {
        if {[string match -nocase $line ident]} {
          set identcheck "1"
	}
      }
      if {$identcheck == 1} {
        after 5000
        putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $::fserv(port)\001"
        set ::dccnick $nick
      } elseif {$identcheck == 0} {
      	putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $::fserv(port)\001"
        set ::dccnick $nick
      }
    }
  }
}

proc fserv:ctcp {nick uhost hand dest keyword arg} {
  if {![isdynamic $::fserv(serv)]} {
    if {$::status(type) == 1 && [onchan $nick $::fserv(serv)]} {
      set identcheck "0"
      foreach line [dcclist] {
        if {[string match -nocase $line ident]} {
          set identcheck "1"
	}
      }
      if {$identcheck == 1} {
        after 5000
        putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $::fserv(port)\001"
        set ::dccnick $nick
      } elseif {$identcheck == 0} {
      	putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $::fserv(port)\001"
        set ::dccnick $nick
      }
    }
  }
}

proc fserv:msg {nick uhost hand arg} {
  if {![isdynamic $::fserv(serv)]} {
    if {$::status(msg) == 2 && [onchan $nick $::fserv(serv)]} {
      set identcheck "0"
      foreach line [dcclist] {
        if {[string match -nocase $line ident]} {
          set identcheck "1"
	}
      }
      if {$identcheck == 1} {
        after 5000
        putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $::fserv(port)\001"
        set ::dccnick $nick
      } elseif {$identcheck == 0} {
      	putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $::fserv(port)\001"
        set ::dccnick $nick
      }
    }
  }
}

# Pre control proc
proc listen:start {idx} {
  set dccnick($idx) $::dccnick
  control $idx [list listen:control $dccnick($idx)]
  if {[info exists ::dccpwd($idx)] == 1} {
    unset ::dccpwd($idx)
  }
  if {[info exists ::prompt($idx)] == 1} {
    unset ::prompt($idx)
  }
  if {[info exists ::timedcc($idx)] == 1} {
    catch {killutimer $::timedcc($idx)}
    catch {unset ::timedcc($idx)}
  }
  if {[info exists ::timemsg($idx)] == 1} {
    catch {killutimer $::timemsg($idx)}
    catch {unset ::timemsg($idx)}
  }
  if {$::fserv(logon) == 1} {
    foreach line [split $::fserv(welcome) \n] {
      set type [lindex [split [lindex [split $line \x3C] 1] \x3E] 0]
      set text [lindex [split $line \x3E] 1]
      if {[string match -nocase $type sepe]} {
        putdcc $idx "$::colors(0)-$::colors(4) $text"
      }
      if {[string match -nocase $type titl]} {
        putdcc $idx "$::colors(0)-$::colors(5) $text"
      }
      if {[string match -nocase $type body]} {
        putdcc $idx "$::colors(0)-$::colors(6) $text"
      }
    }
  }
  catch {set ::timedcc($idx) [utimer 60 [list catch [list killdcc $idx]]]}
  catch {set ::timemsg($idx) [utimer 50 [list catch [list putdcc $idx "$::colors(0)$::fserv(idle)"]]]}
}

# Control proc 
proc listen:control {nick fidx arg} {
  global vrs homepath
  if {[valididx $fidx]} {
    if {[info exists ::timedcc($fidx)] == 1} {
      catch {killutimer $::timedcc($fidx)}
    }
    if {[info exists ::timemsg($fidx)] == 1} {
      catch {killutimer $::timemsg($fidx)}
    }
    set fserv(cmd) [lindex [string map {\[ \\\[ \] \\\] \{ \\\{ \} \\\}} $arg] 0]
    set fserv(arg) [join [lrange [string map {\[ \\\[ \] \\\] \{ \\\{ \} \\\}} $arg] 1 end]]
    catch {set ::timemsg($fidx) [utimer 50 [list catch [list putdcc $fidx "$::colors(0)$::fserv(idle)"]]]}
    catch {set ::timedcc($fidx) [utimer 60 [list catch [list killdcc $fidx]]]}
    if {[info exists ::dccpwd($fidx)] == 0} {
      set ::dccpwd($fidx) $homepath
      set ::prompt($fidx) "/"
    }
    if {"[string tolower $fserv(cmd)]" == "ls" || "[string tolower $fserv(cmd)]" == "list" || "[string tolower $fserv(cmd)]" == "dir"} {  
      putdcc $fidx "$::colors(0)-$::colors(2) .."
      foreach line [glob -nocomplain -type d $::dccpwd($fidx)*] { 
        putdcc $fidx "$::colors(0)-$::colors(2) [file tail [file nativename $line]]"
      }
      foreach line [glob -nocomplain -type f $::dccpwd($fidx)*] { 
        putdcc $fidx "$::colors(0)-$::colors(3) [file tail [file nativename $line]] $::colors(0) [format %.2f [expr [file size $line] / 1024.0]] kb"
      }
      putdcc $fidx "$::colors(0)$::prompt($fidx)"
    }
    if {"[string tolower $fserv(cmd)]" == "cd" && "[string tolower $fserv(arg)]" != ".." && "[string tolower $fserv(cmd)]" != {}} {
      set fserv(check) "0"
      foreach line [glob -nocomplain -type d $::dccpwd($fidx)*] { 
        if {[string match -nocase $fserv(arg) [file tail [file nativename $line]]]} {
          set ::dccpwd($fidx) "$::dccpwd($fidx)$fserv(arg)/"
          set ::prompt($fidx) "$::prompt($fidx)$fserv(arg)/"
	  set fserv(check) "[expr $fserv(check)+1]"
          putdcc $fidx "$::colors(0)$::prompt($fidx)"
        }
      }
      if {$fserv(check) == 0} {
        putdcc $fidx "$::colors(7)$::fserv(invalddir)"
      }
    }
    if {"[string tolower $fserv(cmd)]" == "get"} {
      if {[onchan $nick $::fserv(serv)]} {
        set ::dccretrun($fidx) [dccsend "$::dccpwd($fidx)$fserv(arg)" $nick]
        if {$::dccretrun($fidx) == 0} {
          putdcc $fidx "$::colors(0)- $::dccreturnmsg(0)"
        }
        if {$::dccretrun($fidx) == 1} {
          putdcc $fidx "$::colors(0)- $::dccreturnmsg(1)"
        }
        if {$::dccretrun($fidx) == 2} {
          putdcc $fidx "$::colors(0)- $::dccreturnmsg(2)"
        }
        if {$::dccretrun($fidx) == 3} {
          putdcc $fidx "$::colors(0)- $::dccreturnmsg(3)"
        }
        if {$::dccretrun($fidx) == 4} {
          putdcc $fidx "$::colors(0)- $::dccreturnmsg(4)"
        }
        if {$::dccretrun($fidx) == 5} {
          putdcc $fidx "$::colors(0)- $::dccreturnmsg(5)"
        }
      }
    }
    if {"[string tolower $fserv(cmd)]" == "whoami"} {
      putdcc $fidx "$nick"
    }
    if {"[string tolower $fserv(cmd)]" == "cd" && "[string tolower $fserv(arg)]" == ".."} {
      if {$::dccpwd($fidx) != $homepath || $::prompt($fidx) != "\x2F"} {
        set ::dccpwd($fidx) [string trimright "$::dccpwd($fidx)" "[file tail $::dccpwd($fidx)]\x2F"]\x2F
        set ::prompt($fidx) [string trimright "$::prompt($fidx)" "[file tail $::prompt($fidx)]\x2F"]\x2F
        putdcc $fidx "$::colors(0)$::prompt($fidx)"
      }
    }
    if {"[string tolower $fserv(cmd)]" == "pwd"} { 
      putdcc $fidx "$::colors(0)$::prompt($fidx)"
    }
    if {"[string tolower $fserv(cmd)]" == "help"} {
      if {"[string tolower $fserv(arg)]" == ""} {
        putdcc $fidx "$::colors(0)--------------------------------------------------------------------------------"
        putdcc $fidx "$::colors(0)*** Use help <cmd> for more info on the command."
        putdcc $fidx "$::colors(0)*** Command list:"
        putdcc $fidx "$::colors(0)- Ls, dir, list:$::colors(1) Dirlist commands"
        putdcc $fidx "$::colors(0)- Cd , cd ..:$::colors(1) Change dirs"
        putdcc $fidx "$::colors(0)- Pwd:$::colors(1) Show current path."
        putdcc $fidx "$::colors(0)- Get:$::colors(1) Download file."
        putdcc $fidx "$::colors(0)- whoami:$::colors(1) Shows ur current logon nick."
        putdcc $fidx "$::colors(0)- Help:$::colors(1) Shows this menu."
        putdcc $fidx "$::colors(0)- Credit:$::colors(1) Where to get this script and who made this."
        putdcc $fidx "$::colors(0)--------------------------------------------------------------------------------"
      }
      if {"[string tolower $fserv(arg)]" == "get"} {
        putdcc $fidx "$::colors(0)*** This command provides you the ability to download a file from fserv."
        putdcc $fidx "$::colors(0)- Usage: get <filename>"
      }
      if {"[string tolower $fserv(arg)]" == "list" || "[string tolower $fserv(arg)]" == "dir" || "[string tolower $fserv(arg)]" == "ls"} {
        putdcc $fidx "$::colors(0)***This command provides you with the ability to list dirs and files."
        putdcc $fidx "$::colors(0)- Usage: [string tolower $fserv(arg)]"
      }
      if {"[string tolower $fserv(arg)]" == "cd"} {
        putdcc $fidx "$::colors(0)***This command provides you with the ability to brouse directorys."
        putdcc $fidx "$::colors(0)- Usage: cd <dirname>"
      }
      if {"[string tolower $fserv(arg)]" == "whoami"} {
        putdcc $fidx "$::colors(0)*** Returns your current nick name."
        putdcc $fidx "$::colors(0)Usage: whoami"
      }
      if {"[string tolower $fserv(arg)]" == "pwd"} {
        putdcc $fidx "$::colors(0)*** This command shows the current path."
        putdcc $fidx "$::colors(0)- Usage: pwd"
      }
    }
    if {"[string tolower $fserv(cmd)]" == "credit"} {
      putdcc $fidx "$::colors(0)--------------------------------------------------------------------------------"
      putdcc $fidx "$::colors(0)- Fserv Script $vrs help section"
      putdcc $fidx "$::colors(0)- This script is made by Ofloo"
      putdcc $fidx "$::colors(0)- HomePage: http://www.ofloo.net/"
      putdcc $fidx "$::colors(0)- Email: support\[at\]ofloo.net"
      putdcc $fidx "$::colors(0)- Special tnx to the people who help the people on users"
      putdcc $fidx "$::colors(0)\x20 forum at http://www.egghelp.org/"
      putdcc $fidx "$::colors(0)--------------------------------------------------------------------------------"
    }
    if {"[string tolower $fserv(cmd)]" != "credit" && "[string tolower $fserv(cmd)]" != "get" && "[string tolower $fserv(cmd)]" != "cd" && "[string tolower $fserv(cmd)]" != "list" && "[string tolower $fserv(cmd)]" != "dir" && "[string tolower $fserv(cmd)]" != "ls" && "[string tolower $fserv(cmd)]" != "help" && "[string tolower $fserv(cmd)]" != "whoami" && "[string tolower $fserv(cmd)]" != "pwd"} {
      putdcc $fidx "$::colors(0)*** For help type help <cmd> or just help to get a list of commands"
    }
  }
}

proc fserv:timer {min hour day month year} {
  global botnick
  if {$::fserv(timer) == 1} {
    if {$::status(type) == 0} {
      set trigger "$::fserv(chan)"
    } elseif {$::status(type) == 1} {
      set trigger "/ctcp $botnick $::fserv(ctcp)"
    } elseif {$::status(type) == 2} {
      set trigger "/msg $botnick $::fserv(msg)"
    }
    putserv "PRIVMSG $::fserv(serv) :$::colors(8)Fserv trigger:$::colors(9) $trigger$::colors(8) Description:$::colors(9) $::fserv(desc)"
  }
}

proc list:pub {nick uhost hand chan arg} {
  global botnick
  if {[onchan $nick $::fserv(serv)]} {
    if {$::fserv(lists) == 1} {
      if {$::status(type) == 0} {
        set trigger "$::fserv(chan)"
      } elseif {$::status(type) == 1} {
        set trigger "/ctcp $botnick $::fserv(ctcp)"
      } elseif {$::status(type) == 2} {
        set trigger "/msg $botnick $::fserv(msg)"
      }
      putserv "PRIVMSG $::fserv(serv) :$::colors(8)Fserv trigger:$::colors(9) $trigger$::colors(8) Description:$::colors(9) $::fserv(desc)"
    }
  }
}

proc who:pub {nick uhost hand chan arg} {
  foreach line [dcclist] {
    if {[string tolower [lindex $line 3]] == "script"} {
      putserv "NOTICE $nick :$::colors(0)User:$::colors(1) [lindex [split [lindex $line 4] \x20] 3] $::colors(0)UserHost:$::colors(1) [lindex [split [lindex $line 2] \x40] 1]"
    }
    if {[string tolower [lindex $line 3]] == "get"} {
      putserv "NOTICE $nick :$::colors(0)Sending file to: [lindex $line 1]"
    }
  }
}

#####################################################################################
putlog "\002Fserv\002 script version \002$vrs\002 by Ofloo loaded."