#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1995 - 1999,
# by Gerald Banon. All rights reserved.
# Version 2.1
# setService.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 {
	file mkdir $col/$rep/service
	set history "{1999:08.05.17.00.00 dpi.inpe.br/banon/1999/08.05.16.07}"
	Store history $col/$rep/service/history
}



puts made