#!/usr/bin/perl -0777
# @(#) htmlone3.pl v1.3 (7/20/96)
# Written by Sarang Gupta (sarang@sarangworld.com)
open(A,shift);for $x (split(/\n/,<A>)){dp($x)}
sub dp{$_=`lynx -source $_[0]`;s/[^<]*(<[^>]*>)/$1/gi;s/\n/ /g;
       $_[0]=~s/^(.*)\/[^\/]*.htm[a-z]*$/$1/;s/(<[^<>]*>)/$1\n/g;
       for(split(/\n/)){if(s/^.*(href|img)[^"]*"([^"]*)".*$/$2/i){
	   s/^(?!(http|ftp))/$_[0]\/$2/i;print"$_\n";}}}

# Please visit http://www.sarangworld.com/perlscript.php3 for a full list
# of my Perl scripts, or http://www.sarangworld.com/ to see my website