#!/usr/bin/perl4
#
# i2h -- Convert (a piece of a) sunsite index file to html document
#
# Thrown together by jepler@herbie.unl.edu

$WEB = "lynx";

open(OF,">/tmp/sundex$$.html") || die "/tmp/sundex$$.html: $!";

if ($ARGV[1] =~ /^$/) { print OF "<HTML><TITLE>HTML Index generated by i2h</TITLE><BODY>"; }
else { print OF "<HTML><TITLE>HTML Index generated by i2h: $ARGV[1]</TITLE><BODY>"; }

while(<STDIN>) {

	chop;
	if (/^\//) {
		($dir = $_) =~ s{ \(INDEX\)$}{}; <STDIN>;
	}
	else {
		($desc = $_) =~ s/^[^\t ]*[\t ]+//;
		($file = $_) =~ s/[\t ]+.*$//;
		$file =~ s,[@*]$,,;
		$HREF = "ftp://sunsite.unc.edu$dir/$file";
		if($ARGV[0] !~ /^$/ ) {
			$HREF =~ s#ftp://sunsite.unc.edu/pub/Linux#$ARGV[0]#;
		}
		print OF "<A HREF=$HREF>$dir/$file</A><ul><li>$desc</ul><LI>";
	}
}

print OF "</BODY></HTML>";
close OF;
if(-t STDOUT) { system "$WEB /tmp/sundex$$.html</dev/tty";  }
else { system "cat /tmp/sundex$$.html"; }
unlink OF;
