#!/usr/bin/perl
use strict;
$|++;

my %files;
foreach my $file_name (glob "RESULTS/*") {
  my ($top_level, $model_name) = ($file_name =~ m/RESULTS\/(.*?)_(.*?)_.*$/);
  $top_level =~ s/^9/199/ or $top_level =~ s/^0/200/;
  $files{$top_level}{$model_name}{$file_name} = 1;
  $files{$model_name}{'all'}{$file_name} = 1;
}

-d 'HTML' or mkdir 'HTML' or die "mkdir HTML: $!";

open INDEX, ">HTML\\index.html";
foreach my $top_level (sort keys %files) {
  print INDEX qq|<a href="./index_$top_level.html">$top_level</a><br/>\n|;
  open TOP_INDEX, ">HTML\\index_$top_level.html";
  foreach my $model_name (sort keys %{$files{$top_level}}) {
    open MODEL_INDEX, ">HTML\\index_${top_level}_${model_name}.html";
	my $image_count = 0;
	foreach my $file_name (sort keys %{$files{$top_level}{$model_name}}) {
	  $image_count++;
      print MODEL_INDEX qq|<img src="../$file_name"><br/>\n|;
    }
    print TOP_INDEX qq|<a href="./index_${top_level}_${model_name}.html">$model_name ($image_count)</a><br/>\n|;
  }
}