#!/usr/local/bin/perl5.6.1

#!/usr/local/bin/perl5.6.1

$header = "header.dat";
$footer = "footer.dat";

@key_words = ("chipotle", "ancho", "jalapeno", " serrano", "anahiem", "cilantro", "habanero", "jicama", "avocado", "lime", "black bean");

#-- Print Header --------------------------------------------------------- 
print "Content-type: text/html\r\n";
print "\r\n";

open HEADER, $header or die "Can't open $header: $!\n"; 
while (<HEADER>) {
    print;
}
close (HEADER);

chomp($recipe = $ARGV[0]);

print "<pre>\n";

open R, $recipe or die "$!\n";
$. = 0;
while (<R>) {
    if (/!^\n/) { 
        s/^\s+//;
    }
     
    if ($. == 1) {
        chomp;
        s/^\s+//;
        print "<h2>$_</h2>\n";
    } elsif (/^Image: /) {
        $image = (split /\:/)[1];
        print "<img src=$image>\n";
    } else {
        s/\>/\&gt\;/;
        s/\</\&lt\;/;

        for $key_word(@key_words) {
            $plural_key_word = $key_word . "s";
            if (/$plural_key_word/) {
               s/$plural_key_word/\<a href=show_ingredient.cgi?$key_word\>$plural_key_word\<\/a\>/g;
            } elsif (/$key_word/) {
               s/$key_word/\<a href=show_ingredient.cgi?$key_word\>$key_word\<\/a\>/g;
            }
         }
         print "$_\n";

    }
}
print "\n</pre>\n";

open FOOTER, $footer or die "Can't open $header: $!\n";
while (<FOOTER>) {
    print;
}
close FOOTER;