#!/bin/sh
#
# get-swf - hack to retrieve .swf files from the URLs
#           of their enclosing HTML page
#
# $Id$

if type GET >/dev/null
then
  get() { GET "$@"; }
elsif type wget >/dev/null
  get() { wget "$@"; }
else
  get() { curl -O "$@"; }
fi

for url in "$@"
do
  site=`echo "$url" | perl -lne 'm#^http://[^/]+# and print $&'`
  base=`echo "$url" | perl -lne 'm#[^/]*$# and print $\`'`
  #get "$url" | perl -lne 'm#(embed.*src|object.*data)\W+([^"'"'"']+\.swf)# and print $2' |
  get "$url" | perl -lne 'm#(embed.*src|object.*data)\W+(.+\.swf)# and print $2' |
    while read relurl
    do
      case "$relurl" in
      /*) echo "$site$relurl" ;;
      http:*) echo "$relurl" ;;
      *) echo "$base$relurl" ;;
      esac |
      while read absurl
      do
        fn=`echo "$absurl" | perl -lne 'm#[^/]*$# and print $&'`
        get "$absurl" > "$fn"
      done
    done
done