ACE/apps/JAWS/clients/WebSTONE/bin/checkfilelist

   1 #! /bin/sh
   2
   3 #       checkfilelist - try retrieving files from server
   4 #
   5 #       checkfilelist servername portno filelist
   6 #
   7
   8 if test "$#" -lt 3 ; then
   9    echo "usage: $0 servername portno filelist"
  10    exit 2
  11 fi
  12
  13 HOSTNAME=$1 ; export HOSTNAME
  14 PORTNO=$2   ; export PORTNO
  15 FILELIST=$3 ; export FILELIST
  16
  17 grep '^/' $FILELIST | cut -f1 |
  18 (
  19 while read URL
  20 do
  21     export URL
  22     echo ">>>>> $URL"
  23     (
  24         telnet $HOSTNAME $PORTNO << _EOF_
  25 GET $URL HTTP/1.0
  26
  27 _EOF_
  28     ) 2> /dev/null | head -5 | grep 'HTTP/1.0'
  29     killall telnet
  30 done
  31 )