#!/usr/bin/perl -w
#------------------------------------------------------------------
#
# THIS MAKES THE ANIS ANIMATION HTML FILES FOR
# http://www.ssec.wisc.edu/data/volcano/
#
#------------------------------------------------------------------
use strict;
use Time::Local;
my @files=('alaid',
'cerroazul',
'arenal',
'chiginagak',
'colima',
'etna',
'guagua',
'klyuchev',
'korovin',
'manam',
'mayon',
'merapi',
'monowai',
'montserrat',
'pacaya',
'popocat',
'rabaul',
'rincon',
'ruapehu',
'sabancaya',
'sakurajima',
'sancrist',
'semeru',
'shishaldin',
'stromboli');
my $file;
my $title;
foreach (@files) {
$file=$_.'.html';
$title='1-km '.ucfirst($_)." Image (every 30 minutes)\n";
open(FILE,">$file") or die "can not open $file\n";
print FILE <<"EOF";
$title
EOF
close(FILE);
}