# Copyright for the Uniform Repository Service (c) 1995 - 2013,
# by Gerald Banon. All rights reserved.
# Version 2.1
# getprogress.tcl

# called in mirror/xxCover.tcl
# used in updating an archival unit

# example of use
# http://banon-pc3/getprogress?repository=urlib.net/www/2013/06.21.00.03

proc GetProgress {} {
if [catch {
	global env
	
	puts {Content-Type: text/plain}
	puts {}
	
# col	
	set col ../../../../..
# URLibServiceRepository
	set URLibServiceRepository $env(URLIB_SERVICE_REP)
	
	source ../$col/$URLibServiceRepository/doc/cgi/mirrorfind-.tcl	;# Load
	
# cgi	
	if [info exists env(QUERY_STRING)] {
		foreach {name value} [split $env(QUERY_STRING) &=] {
			set cgi([DecodeURL $name]) [DecodeURL $value]
		}
	}

	if [info exists cgi(repository)] {	;# added by GJFB in 2020-12-27
		Load ../$col/$cgi(repository)/auxdoc/@progress.txt progress
	} else {
		set progress {}	;# added by GJFB in 2020-12-27
	}
	
	puts $progress
	
} m] {puts $m; if 0 {global errorInfo; puts $errorInfo}}
}