#!/bin/sh
#
# get-swf - hack to retrieve .swf files from the URLs
#           of their enclosing HTML page
#
# $Id: get-swf 657 2009-09-21 23:15:02Z rp $

curl()
{
  GET "$@"
}

for url in "$@"
do
  site=`echo "$url" | perl -lne 'm#^http://[^/]+# and print $&'`
  base=`echo "$url" | perl -lne 'm#[^/]*$# and print $\`'`
  #curl "$url" | perl -lne 'm#(embed.*src|object.*data)\W+([^"'"'"']+\.swf)# and print $2' |
  curl "$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 $&'`
        curl "$absurl" > "$fn"
      done
    done
done