96719 tziker #!/bin/ksh -p export LANG=C export LC_ALL=C unset LC_CTYPE LC_COLLATE LC_MESSAGES LC_MONETARY LC_NUMERIC LC_TIME CLEANFILES="" function msg { local text="$*" echo "$text" >&2 } function cleanup { if test -n "${CLEANFILES}" ; then for fname in ${CLEANFILES} ; do rm -f "${file}" done fi } trap "cleanup ; exit 0" 0 trap "msg 'Interrupted.' ; cleanup ; exit 1" 1 2 15 TMPFILE=$(mktemp "/tmp/xh.$$.XXXX") if test $? -ne 0 ; then msg "cannot create temp page file" exit 1 else CLEANFILES="${CLEANFILES} ${TMPFILE}" fi function err { local rc=$1 shift local msg="$*" echo "error: ${msg}" >&2 exit ${rc} } function dopage { local flist="$1" local page="$2" test -z "${flist}" && err 1 "dopage: no flist" test -z "${page}" && err 1 "dopage: no page url" msg "fetching page ${page}" wget -q -nd -np -O "${TMPFILE}" "${page}" if test $? -ne 0 ; then msg "cannot fetch page ${page}" return 1 fi srv=$( expand "${TMPFILE}" | \ sed -n -e "/'srv'/ s/.*'srv'[ ]*:[ ]*'\\([^']*\\)'.*/\\1/p" ) file=$( expand "${TMPFILE}" | \ sed -n -e "/'file'/ s/.*'file'[ ]*:[ ]*'\\([^']*\\)'.*/\\1/p" ) if test -z "${srv}" ; then msg "no server object" return 1 fi if test -z "${file}" ; then msg "no file object" return 1 fi echo "${srv}/flv2/${file}" return 0 } function doflist { local flist="$1" test -z "${flist}" && err 1 "doflist: no flist" while read page ; do dopage "${flist}" "${page}" done < "${flist}" } for flist in "$@" ; do doflist "${flist}" done 3478193048 None None TRUE