#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1995 - 2004,
# by Gerald Banon. All rights reserved.
# Version 2.1
# pack.tcl \
exec ../../../../../\
dpi.inpe.br/banon/1997/10.21.17.24\
/doc/tk8.0/unix/wish "$0" ${1+"$@"}

set URLibServiceRepository dpi.inpe.br/banon/1998/08.02.08.56
set URLibBannerSequenceRepository dpi.inpe.br/banon/2000/02.05.09.57
set pwd [pwd]
set col ../../../../..
regexp "(^.*)/col/$URLibServiceRepository/doc" $pwd m homePath
if {$tcl_platform(platform) == "windows"} {
	set tclRepository dpi.inpe.br/banon/2000/07.11.18.24
	set apacheRepository dpi.inpe.br/banon/1999/01.02.16.35
	set zipRepository dpi.inpe.br/banon/1998/03.07.08.57
	set unZipRepository dpi.inpe.br/banon/2000/08.09.16.24
	set command "$homePath/col/$zipRepository/doc/zip -r"
	set type zip
	console show
#	console hide
}
if {$tcl_platform(platform) == "unix"} {
	set tclRepository dpi.inpe.br/banon/1997/10.21.17.24
	set apacheRepository dpi.inpe.br/vagner/1999/07.16.16.29
	set zipRepository dpi.inpe.br/vagner/1999/07.22.16.12
	set unZipRepository dpi.inpe.br/banon/2000/08.09.17.10
	set command "tar cf"
	set type tar
}

# package require http 2.0
lappend auto_path $pwd
package require $URLibServiceRepository

source ../auxdoc/.repositoryProperties.tcl
source ../auxdoc/.referenceTable.tcl

file mkdir $homePath/col/$URLibServiceRepository/download

set option ""
# set option -ll	;# Translate the MSDOS end-of-line CR LF into Unix LF

set repositoryList {}

# URLibServiceRepository
set list [array names referenceTable $URLibServiceRepository,*]
regsub -all "$URLibServiceRepository," $list {} list
set repositoryList [concat $repositoryList $list]

# URLibBannerSequenceRepository
set list [array names referenceTable $URLibBannerSequenceRepository,*]
regsub -all "$URLibBannerSequenceRepository," $list {} list
set repositoryList [concat $repositoryList $list]

lappend repositoryList $URLibServiceRepository

## add portuguese
#lappend repositoryList dpi.inpe.br/banon/1999/05.01.15.35
#lappend repositoryList dpi.inpe.br/banon/1998/07.26.10.08
#lappend repositoryList dpi.inpe.br/banon/1999/06.19.22.43
#lappend repositoryList dpi.inpe.br/banon/2000/02.20.10.44
## add french
#lappend repositoryList dpi.inpe.br/banon/1999/05.01.14.16

if 1 {
# add tclRepository
	if 0 {lappend repositoryList $tclRepository}
# add apacheRepository
	if 0 {lappend repositoryList $apacheRepository}
# add zipRepository
	if 1 {lappend repositoryList $zipRepository}
# add unZipRepository
	if 1 {lappend repositoryList $unZipRepository}
# add endNoteRepository
	if {$tcl_platform(platform) == "windows"} {
		if 0 {lappend repositoryList dpi.inpe.br/banon/1999/08.14.20.04}
	}
}

set i 0
foreach repName $repositoryList {
	puts 1-$repName
	incr i
	set metadataRep [FindMetadataRep $repName]
	if {$metadataRep !=  ""} {
		foreach mRep [FindAllLanguageVersions $metadataRep] {
			puts 2-$mRep
			lappend repositoryList $mRep
			incr i
		}
	}
}

set fileList {}
foreach repository $repositoryList {
	lappend fileList col/$repository/doc
	lappend fileList col/$repository/service
}

if [file exists $homePath/col/$URLibServiceRepository/download/doc.$type] {
	file delete $homePath/col/$URLibServiceRepository/download/doc.$type
}

cd $homePath

if [file exists newVersion] {lappend fileList newVersion}
lappend fileList path
lappend fileList hostName.txt
lappend fileList domainName.txt
lappend fileList ipAddress.txt
lappend fileList netscape.txt
lappend fileList internetExplorer.txt
lappend fileList editor.txt
#lappend fileList apacheConfDirectory.txt
lappend fileList apacheMimeTypesFile.txt
lappend fileList apacheMagicFile.txt
lappend fileList apacheIconDirectory.txt
lappend fileList apache.txt
lappend fileList apacheLibDirectory.txt
lappend fileList htpasswd.txt

eval "exec $command $option \
$homePath/col/$URLibServiceRepository/download/doc.$type $fileList"

cd $pwd

if {$tcl_platform(platform) == "unix"} {
	if [file exists $homePath/col/$URLibServiceRepository/download/doc.tar.gz] {
		file delete $homePath/col/$URLibServiceRepository/download/doc.tar.gz
	}
	exec gzip $homePath/col/$URLibServiceRepository/download/doc.tar 
}

puts [list $i repositories packed]