# KEHOME/bin/html2href
# rhm Oct/15/2002

# html2href file.html ...
# get href URLs from HTML file
# keep ulabel as comment
# output format
#    cname has href += url # ulabel

for fin in "$@"; do
    cname="${fin}"
    base="${fin%.html}"
    base="${base%.htm}"
    furl="${base}.url"
    fout="${base}.href"

    html2url.ksh "$fin"

    cat "$furl"				|
    sed 's/"; /" # /'			|
    sed "s/^/$cname has href += /"	>"$fout"
done
