Code: Select all
#This Script Upload files (default: two) to ur remote server#
#If u want Upload More Files, Just Add more lines, ex:
#DEFAULT 2:
#set onefile "file1"
#set twofile "file2"
#
#Add More Lines if u want upload more files.
#
#set threefile "file3"
#set fourfile "file4"
#
#find this line:
#global serverftp ftpuser ftpass sendtime eggpath serverpath onefile twofile
#
#and add this:
#threefile fourfile
#
#example: global serverftp ftpuser ftpass sendtime eggpath serverpath threefile fourfile
#
#And find this lines:
#puts $wurstbaum "put $eggpath/$onefile $serverpath/$twofile"
#
#and add after it's lines:
# puts $wurstbaum "put $eggpath/$threefile $serverpath/$threefile"
# puts $wurstbaum "put $eggpath/$fourfile $serverpath/$fourfile"
#
##########################################################
##########################################################
# Put every x minutes send ur files.
#
set sendtime 10
##########################################################
# Put in ur name file.
#
set onefile "index.html"
##########################################################
# Now enter the hostname of the ftp server where upload.
#
set serverftp "server"
##########################################################
# Username and Password for the ftp account.
#
set ftpuser "user"
set ftpass "pass"
##########################################################
# Path of your files on your shell
#
set eggpath "/home/huntin/lusttty/public_html/"
##########################################################
# Absolute path of ur remote server FTP
#
set serverpath "/public_html/stats/"
###################################################################
## DONT CHANGE ANYTHING BELOW UNLESS YOU KNOW WHAT YOU ARE DOING ##
###################################################################
if {![info exists putinftp_running]} {
timer $sendtime putinftp
set putinftp_running 1
}
proc putinftp { } {
global serverftp ftpuser ftpass sendtime eggpath serverpath onefile twofile
putlog "PutinFtp.TCL: Uploading"
set ftpclient [exec which ftp]
set wurstbaum [open "|$ftpclient -n $serverftp" w]
puts $wurstbaum "user $ftpuser $ftpass"
puts $wurstbaum "bin"
puts $wurstbaum "put $eggpath/$onefile $serverpath/$onefile"
puts $wurstbaum "quit"
putlog "PutinFtp.TCL: Uploaded File"
close $wurstbaum
timer $sendtime putinftp
return 1
}
putlog "4-==PutinFtp.TCL\: v1.0 by meca loaded.==-"