#!/bin/sh
# Copyright for the Uniform Repository Service (c) 1997,
# by Gerald Banon. All rights reserved.
# Version 1.1
# bib2refer.tcl \
exec ../../../../../\
dpi.inpe.br/banon/1997/10.21.17.24/doc/tcl8.0/unix/tclsh "$0" ${1+"$@"}

lappend auto_path ../../../../../../col/dpi.inpe.br/banon/1998/10.13.14.15/doc
package require dpi.inpe.br/banon/1998/10.13.14.15

set col ../../../../..

if [catch {open ../not_sent/.setenv/mirror_path r} fileId] {
	puts stderr "Cannot open ../not_sent/.setenv/mirror_path: $fileId"
} else {
	set mirrorPath [string trim [read $fileId]]
	close $fileId
}
	
if [catch {open $col/$mirrorPath/doc/mirror.bib r} inputFileId] {
	puts stderr "Cannot open mirror.bib: $inputFileId"
} else {
	set outputFileId [open $col/$mirrorPath/doc/mirror.refer w]
	puts $outputFileId [Bib2Refer [read $inputFileId]]
	close $outputFileId
	close $inputFileId
}