/usr/bin/tclsh
cd /dados/www/URLibXIISBSR/col/ltid.inpe.br/sbsr/2005/03.16.16.31/doc
set col ../../../../..
set URLibServiceRepository dpi.inpe.br/banon/1998/08.02.08.56

source $col/$URLibServiceRepository/doc/utilities1.tcl
source $col/$URLibServiceRepository/doc/cgi/mirrorfind-.tcl

Load pageList.txt fileContent

puts $fileContent

puts [llength [split $fileContent \n]]

# Apagar o arquivo em doc

foreach line [split $fileContent \n] {
	set rep [lindex $line 0]
	set fileList [glob -nocomplain $col/$rep/doc/*.*]
 puts $fileList
	if {[llength $fileList] == 0} {continue}
	puts $rep
	foreach file $fileList {
		file delete $file
	}
# break
}

# # Apagar o arquivo em doc - fim

# Fazer extract do .zip
# Nao usado
set unZipPath /usr/bin/unzip
set homePath /iris6/URLibSBSR
catch {exec $unZipPath $homePath/08sbsr.zip -d $homePath} message

# Fazer extract do .zip - end

/usr/bin/unzip /dados/www/URLibXIISBSR/archive.zip -d /dados/www/URLibXIISBSR

/usr/bin/unzip /dados/www/URLibXIISBSR/12sbsr.zip -d /dados/www/URLibXIISBSR