#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1995 - 1999,
# by Gerald Banon. All rights reserved.
# Version 2.1
# setService4.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 pwd [pwd]
set col ../../../../..
regexp "(^.*)/col/$URLibServiceRepository/doc" $pwd m homePath
if {$tcl_platform(platform) == "windows"} {
	set zipRepository dpi.inpe.br/banon/1998/03.07.08.57
}
if {$tcl_platform(platform) == "unix"} {
	set zipRepository dpi.inpe.br/vagner/1999/07.22.16.12
}

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

if {$tcl_platform(platform) == "windows"} {
	console show
#	console hide
}

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

cd $homePath/col
set repositoryList [glob -nocomplain */vagner/*/*]
cd $pwd

foreach rep $repositoryList {
	if [file exists $col/$rep/doc/@metadata.refer] {
		Load $col/$rep/doc/@metadata.refer fileContent
		regsub {%F} $fileContent {%2} fileContent
		Store fileContent $col/$rep/doc/@metadata.refer
puts $rep
	}
}



puts made