EvoS Silverlight downloader

#!/bin/sh

set -x; for mainurl in $(curl -s http://evostudies.org/evos-summit-2012-all-talks-from-conference-are-online/ | perl -ne 'print $_ if s/.+"(.+Mediasite.+)\?.+/$1/;'); do baseurl="$( echo "$mainurl" | cut -f 1-3 -d / )"; manifest=( $( curl -s "${baseurl}$( curl -s "${mainurl}?useServerDetection=true" | perl -ne 'print $_ if s/.+src="(.+manifest.+)">.+/$1/' )" | perl -ne 'print $_ if s/.+"(.+MP4Video.+)".+/$1/ or s/.+SlideBaseUrl="(.+)".+/$1/; s/\// slash /g; s/ /_/g; print $_ if s/.+Title="(.+)".+/$1/ or s/.+Slides\[(.+)\].+/$1/' ) ); for slide in ${manifest[@]:3}; do curl -C - -o "${manifest[2]}_Slide_$(printf '%04d' "$slide")".jpg "${baseurl}${manifest[1]}slide_$(printf '%04d' "$slide")_full.jpg"; done; curl -C - -o "${manifest[2]}.mp4" "${manifest[0]}"; done