summaryrefslogtreecommitdiff
path: root/apps/JAWS/clients/WebSTONE/bin/checkfilelist
blob: 4cc2d11c49e8de70969c2351efadfe0b9a6a27bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#! /bin/sh

#
# NAME
#	checkfilelist - try retrieving files from server
#
# SYNOPSIS
#	checkfilelist servername portno filelist
#
#

if test "$#" -lt 3 ; then
   echo "usage: $0 servername portno filelist"
   exit 2
fi

HOSTNAME=$1 ; export HOSTNAME
PORTNO=$2   ; export PORTNO
FILELIST=$3 ; export FILELIST

grep '^/' $FILELIST | cut -f1 |
(
while read URL
do
    export URL
    echo ">>>>> $URL"
    (
	telnet $HOSTNAME $PORTNO << _EOF_
GET $URL HTTP/1.0

_EOF_
    ) 2> /dev/null | head -5 | grep 'HTTP/1.0'
    killall telnet
done
)