#!/bin/sh
# Clean up URL address mess left by w3get
# should do this in the w3get perl script but it looks like line noise to me.
# copies and updates single file

if [ $# -eq 0 ] ; then
    echo "need file(s) to copy fm to cwd"
    echo "how about ~/tmp/html_get/www.cis.ohio-state.edu/hypertext/faq/usenet/tcl-faq/part1/faq-doc-1.html"
    exit 1
fi


for i in $*
do
    if [ -d $i ] ; then
        continue
    fi
    
    if [ ! -f $i ] ; then
        echo "No file  $fdir"
        echo "exiting..."
        exit 2
    fi

    fto=`basename $i`
    echo "$fto"
    
    sed -e 's^edu:80^edu^g' \
        -e 's^HOPS_LOCAL/www.cis.ohio-state.edu/hypertext/faq/usenet/tcl-faq/part^../part^g' \
        -e 's^HOPS_LOCAL/^http://^g' \
        $i > $fto
done
