#!/bin/bash

if [ $# -ne 3 -a $# -ne 2 ]; then 
  echo 'Usage: urltodoc <url> <title> [<pdb-file>]'
  exit 1
fi

tf=/tmp/url.$$

lynx -dump -width=3000 $1 | perl -pe 's/ +/ /go; s/_+/---/go;' > $tf

if [ $? -ne 0 ]; then
  echo 'urltodoc: Sorry, lynx failed to parse the url.'
fi

if [ $# -eq 3 ]; then
  $HOME/bin/makedoc $tf $3 "$2" &&\
  rm -f $tf
elif [ $# -eq 2 ]; then
  $HOME/bin/makedoc $tf $tf.pdb "$2" &&\
  echo && echo &&\
  pilot-xfer -i $tf.pdb &&\
  rm -f $tf
fi

