#!/usr/local/bin/perl5 -w


print "Please enter file name: ";
$htmlfilename = <STDIN>;
chop($htmlfilename);


$myhtmfile = "$htmlfilename".".htm";
$myjpgfile = "$htmlfilename".".jpg";

open(OUT, ">$myhtmfile");

open(IN, "template.htm");  

while(<IN>) {

$line = $_;

if ($line =~ m/<!--MyTitle-->/) {

print "Please enter title: "; 
$title = <STDIN>;
chop($title);

$line =~ s/<!--MyTitle-->/$title/;

print OUT "$line\n";

}

elsif ($line =~m/<!--myimage-->/) {

print "Height of the image: ";
$height = <STDIN>;
chop($height);

print "Width of the image: ";
$width = <STDIN>;
chop($width);

$line =~ s/<!--myimage-->/$myjpgfile/;
$line =~ s/<!--height-->/$height/;
$line =~ s/<!--width-->/$width/; 

print OUT "$line\n";

} 

elsif ($line =~m/<!--caption-->/) {

print "Please enter caption: ";
$caption = <STDIN>;
chop($caption);
$line =~ s/<!--caption-->/$caption/;

}

elsif ($line =~m/<!--photographer-->/) {

print "Please enter photographer: ";
$photographer = <STDIN>;
chop($photographer);
$line =~ s/<!--photographer-->/$photographer/; 


} 



elsif ($line =~m/<!--source-->/) {

print "Please enter source: ";
$source = <STDIN>;
chop($source);
$line =~ s/<!--source-->/$source/;   


}
  

elsif ($line =~m/<!--return url-->/) {

print "Please enter return URL (i.e. ../../study_collections/etc): ";
$source = <STDIN>;
chop($source);
$line =~ s/<!--source-->/$source/; 

}
  

elsif ($line =~m/<!--collection description-->/) {

print "Please enter collection description (i.e., Holding the Line, Date
Range): ";
$cd = <STDIN>;
chop($cd);
$line =~ s/<!--collection description-->/$cd/;

}         



else {

print OUT "$line\n";


	}

}

chmod 0755, $myhtmfile;