#!/bin/csh
#
# Purpose:	Make topology.csh script for use on client running csh
# Usage:	mk-topology.csh
# Notes:
#   o Client usage:	ssh onl.arl.wustl.edu mk-topology.csh
#			scp onl.arl.wustl.edu:topology.source
#			source topology.source
# History:
# 12-14-06	kenw:  account for summer 2006 testbed reorganization 
# 2-10-05	kenw:  creation
#

if ( -f /users/onl/experiments/$USER ) then
  echo '#\!/bin/csh' > topology.source
  set top=`cat /users/onl/experiments/$USER`
  while($#top > 0)
    echo setenv $top[1] $top[2] >> topology.source
    shift top; shift top;
  end
  echo "topology.source has been made" ;
else
  echo "+++ /users/onl/experiments/$LOGNAME missing"
  exit 1
endif