############################################################################
# putftp.tcl by JunkFood <junkfood@rezo.ca>                                #
#                                                                          #
# Proc to upload a file via ftp                                            #
#                                                                          #
# USAGE:                                                                   #
# putftp <login> <password> <local_dir> <ftp_site> <remote_dir> <filename> #
#                                                                          #
# EXAMPLE:                                                                 #
# putftp anonymous e@mail . ftp.sodre.net /pub/eggdrop/incoming script.tcl #
#   (. for local_dir means that file to upload is in current dir)          #
#                                                                          #
# There's no bind for this procedure, so you can use it                    #
# in your own script, i.e. you must bind it yourself                       #
# to dcc, msg or whatever when used with eggdrop                           #
#                                                                          #
# NOTE: the system must have ftp to use this proc!                         #
############################################################################