Upload kai Rename filename

[nemesis345]

Exo ena script se tcl kai me auto kano upload se server!

 

Ta arxeia einai keimena kai foto!

Thelo omos na exo kapoia standar onomata, kai thelo na apodesmeuso ton xristi apo to na kanei rename ta arxeia tou kai na ta anebazei!

 

Prospathisa na kano kati dimiourgontas mia lista me ta onoma pou thelo alla stin prospathia tou rename pairnei to proto filename kai to bazei se ola ta arxeia pou anebazei o xristis me apotelesma ola na ginontai, gia paradeigma .txt! Kati pou fisika einai ilithio!

 

oriste o kodikas:

 

..........

fconfigure stdin -translation binary

 

set x [read stdin]

set readx $x

set z [split $x \n]

set hotel [lindex [split $x \n] 3]

 

#set z [split $z " "]

#puts $x

 

set mark_line [lindex [split $x \n] 0]

set enter_len [expr {[string first "Content" $x]-[string length $mark_line]}]

set line_len [string length $mark_line]

set x [string range $x [expr {$line_len+$enter_len}] end]

 

scan $mark_line "%s" a

set a_len [string length $a]

set end_line [string range $mark_line 0 [expr {$a_len-1}]]--[string range $mark_line $a_len end]

set line ""

 

#

# auti einai i lista me ta nea onomata ton arxeion

#

set filelist {1.txt 1.jpg 2.txt 2.jpg 3.txt 3.jpg 4.txt 4.jpg 5.txt 5.jpg 6.txt 6.jpg 7.txt 7.jpg 8.txt 8.jpg}

 

while {$end_line!=$line} {

 

#######

####### metabliti gia na perno to epomeno onoma apo ti lista, ginete aujisi kata ena parakato

#######

set num 0

 

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

set line_list [split $line \;]

set obj_name [string range [lindex [split [lindex $line_list 1] =] 1] 1 [expr {[string length [lindex [split [lindex $line_list 1] =] 1]]-3}]]

#puts \"$line\"

#puts $obj_name

#puts ---------

if {[llength $line_list]==2} {

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

 

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

set $obj_name [string range $line 0 [expr {[string length $line]-2}]]

#puts $obj_name

#puts +++++++++

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

} else {

set file_path [string range [lindex [split [lindex $line_list 2] =] 1] 1 [expr {[string length [lindex [split [lindex $line_list 2] =] 1]]-3}]]

set path $file_path

 

set fname [string trim [lrange [split $file_path \\/] end end] \{\}]

#puts "this FNAME $fname"

# edo emfanizetai to onoma tou arxeiou, osa kai na einai ta arxeia to kathe ena tha parei to onoma tou

 

#############

############# arxika itan etsi :

############# set as $fname

 

#############

############# edo dino to neo onoma sto trexon arxeio

#############

set as [lindex $filelist $num]

 

 

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

 

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

set myfile [string range $x 0 [expr {[string first $a $x]-3}]]

 

 

if {$myfile!=""} {

# make a folder with seperate name:

# file mkdir ../ups/[hotels name here or hotels id]/$fname w]

file mkdir ../upld/$hotel

exec chmod 777 ../upld/$hotel

set f [open ../upld/$hotel/$as w]

fconfigure $f -translation binary

puts -nonewline $f $myfile

close $f

 

}

 

set id

sql "insert into file (hotel_id,file_name) values ('$id','$as')"

set x [string range $x [expr {[string first $a $x]-2}] end]

 

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

 

set line [lindex [split $x \n] 0]

set line_len [string length $line]

set x [string range $x [expr {$line_len+$enter_len}] end]

}

 

#####

##### EDO GINETE I AUJISI KATA 1 GIA NA PARO TO EPOMENO ONOMA APO TI LISTA KAI NA TO BALO STO EPOMENO ARXEIO

#####

incr num 1

}

................................[/color][/size][/font]