#!/bin/csh

# create weather file
/usr/ucb/finger weather@cirrus > /tmp/weather
/usr/bin/tr -d '\015' < /tmp/weather > /tmp/weather.1

# copy this file to ti_data for access via techinfo

set LOCAL_BYTES=`ls -l /tmp/weather.1 | awk '{print $4}'`
if ($LOCAL_BYTES > 100) then

  setenv KRBTKFILE /tmp/temp0
  /var/ti/local/krbtgp -s -keyfile /etc/ti_serve_key ti_serve
  attach ti_data
  cp /tmp/weather.1 /mit/ti_data/admin/weather

  # remove ticket file
  /usr/athena/bin/kdestroy
endif

rm /tmp/weather
rm /tmp/weather.1