#!/usr/bin/perl
open INDEX, ">list.html";
open IN, "mipage";
while(<IN>)
{
if(/href=([^>]*)>/)
	{
	$dir=$1;
	$dir =~ s/\/$//;
	print "$dir\n";
open DIR, "dirs/$dir";
while(<DIR>){
		if(/href=([^>]*)>/)
	        {
		$file = "$1";

$line=$_;


		$line =~ /\"(.*)\"/;

$line =~ s/href=/href=\/msds\/mf\/dap\/files\//;
$line =~ s/\"//g;
$line =~ s/<\/?[pP]>//g;
$line =~ s/html>DAP /html>/;
$line =~ s/html>/html>DAP - /;
chomp($line);
#print INDEX "$line\n";
$line =~ /html>([^<]*)</;
$name=$1;
$name =~ tr/[A-Z]/[a-z]/;
@list{$name}=$line;
push @keys, $name;
	  	}
             }
	}
}

foreach(sort(@keys)){print INDEX "@list{$_}\n";}