about summary refs log tree commit diff
path: root/pkgs/development/lisp-modules-obsolete/from-quicklisp/urls-from-page.sh
blob: 26724d122a77923557c5371cdebef3c45baf8749 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#! /bin/sh

url="$1"
protocol="${url%%:*}"
path="${url#$protocol://}"
server="${path%%/*}"
basepath="${path%/*}"
relpath="${path#$server}"

echo "URL: $url" >&2

curl -A 'text/html; text/xhtml; text/xml; */*' -L -k "$url" | sed -re 's/^/-/;s/[^a-zA-Z][hH][rR][eE][fF]=("([^"]*)"|'\''([^'\'']*)'\''|([^"'\'' <>&]+)[ <>&])/\n+\2\3\4\n-/g' | \
  sed -e '/^-/d; s/^[+]//; /^#/d;'"s/^\\//$protocol:\\/\\/$server\\//g" | \
  sed -re 's`^[^:]*$`'"$protocol://$basepath/&\`"