#!/usr/bin/perl -w
#
# Recipe linking program
#

use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

BEGIN {
    my $errorLog = "/home/mmtnsage/errors/rlink.log";
    use CGI::Carp qw(carpout);
    open (LOG, ">> $errorLog") or die "Unable to append to $errorLog: $!\n";
    carpout(*LOG);
}

BEGIN {
    unshift( @INC, "/home/mmtnsage/bin");
}

use CGI::FastTemplate;
use Tie::IxHash;

# forward delcaration
# sub LogHit;

# from 'sys/file.ph':
eval 'sub LOCK_EX {2;}';
eval 'sub LOCK_UN {8;}';

MAIN:
{
    my $base_dir = "/home/mmtnsage/public_html/recipes/store/";
    my $cat_base = "/catalog";
    my $templateDir = "/home/mmtnsage/public_html/Templates";
    my $recipeTemplate = "recipe.html";

    my $filename = shift(@ARGV);
    my %ingredients;
    tie %ingredients, "Tie::IxHash";
    %ingredients = (
		    "almond oil", "<a href=\"$cat_base/FixedOil.html#almond\">Almond Oil</a>",
		    "amber bottle", "<a href=\"$cat_base/Containers.html#amber_bottles\">Amber Bottle</a>",
		    "apple blossom", "<a href=\"$cat_base/FragranceOils.html#AppleBlossomFragranceOil\">Apple Blossom</a>",
		    "apricot, golden", "<a href=\"$cat_base/FragranceOils.html#ApricotFragranceOil\">Golden Apricot</a>",
		    "golden apricot", "<a href=\"$cat_base/FragranceOils.html#ApricotFragranceOil\">Golden Apricot</a>",
		    "apricot kernel oil", "<a href=\"$cat_base/FixedOil.html#apricot_kernel\">Apricot Kernel Oil</a>",
		    "avocado oil", "<a href=\"$cat_base/FixedOil.html#avocado\">Avocado Oil</a>",
		    "balsam peru", "<a href=\"$cat_base/EssentialOils.html#balsam_peru_eo\">Balsam Peru</a>",
		    "beeswax", "<a href=\"$cat_base/FixedOil.html#beeswax\">Beeswax</a>",
		    "bentonite", "<a href=\"$cat_base/Additives.html#BentoniteClay\">Bentonite</a>",
		    "bluebonnet", "<a href=\"$cat_base/FragranceOils.html#BluebonnetFragranceOil\">Bluebonnet</a>",
		    "cantaloupe", "<a href=\"$cat_base/FragranceOils.html#CantaloupeFragranceOil\">Cantaloupe</a>",
		    "cinnamon leaf essential oil", "<a href=\"$cat_base/EssentialOils.html#cinnamon_leaf_eo\">Cinnamon Leaf Essential&nbsp;Oil</a>",
		    "citric acid", "<a href=\"$cat_base/Additives.html#CitricAcid\">Citric Acid</a>",
		    "clove leaf essential oil", "<a href=\"$cat_base/EssentialOils.html#clove_leaf__eo\">Clove Leaf Essential&nbsp;Oil</a>",
		    "cocoa butter", "<a href=\"$cat_base/FixedOil.html#cocoa_butter\">Cocoa Butter</a>",
		    "coconut oil", "<a href=\"$cat_base/FixedOil.html#coconut\">Coconut Oil</a>",
		    "conversion calculator", "<a href=\"$cat_base/../calcs/measures.html\">Conversion Calculator</a>",
		    "cucumber", "<a href=\"$cat_base/FragranceOils.html#CucumberFragranceOil\">Cucumber</a>",
		    "dropper", "<a href=\"$cat_base/Equipment.html#TransferPipettes(Droppers)\">Dropper</a>",
		    "earl grey tea", "<a href=\"$cat_base/FragranceOils.html#EarlGreyFragranceOil\">Earl Grey Tea</a>",
		    "emulsifying wax", "<a href=\"$cat_base/Additives.html#emulsifying_wax\">Emulsifying Wax</a>",
		    "fragrance oil", "<a href=\"$cat_base/FragranceOils.html\">Fragrance Oil</a>",
		    "frankincense", "<a href=\"$cat_base/FragranceOils.html#FrankincenseFragranceOil\">Frankincense</a>",
		    "gardenia", "<a href=\"$cat_base/FragranceOils.html#GardeniaFragranceOil\">Gardenia</a>",
		    "germaben ii", "<a href=\"$cat_base/Additives.html#germaben_ii\">Germaben II</a>",
		    "glycerin", "<a href=\"$cat_base/Additives.html#Glycerin(VegetableDerived)\">Glycerin</a>",
		    "heather", "<a href=\"$cat_base/FragranceOils.html#HeatherFragranceOil\">Heather</a>",
		    "heliotrope", "<a href=\"$cat_base/FragranceOils.html#HeliotropeFragranceOil\">Heliotrope</a>",
		    "honey almond", "<a href=\"$cat_base/FragranceOils.html#HoneyAlmondFragranceOil\">Honey Almond</a>",
		    "honeydew", "<a href=\"$cat_base/FragranceOils.html#HoneydewFragranceOil\">Honeydew</a>",
		    "hydrogenated soy", "<a href=\"$cat_base/FixedOil.html#soybean\">Hydrogenated Soybean Oil</a>",
		    "intense almond", "<a href=\"$cat_base/FragranceOils.html#IntenseAlmondFragranceOil\">Intense Almond</a>",
		    "jasmine", "<a href=\"$cat_base/FragranceOils.html#JasmineFragranceOil\">Jasmine</a>",
		    "jojoba oil", "<a href=\"$cat_base/FixedOil.html#jojoba\">Jojoba Oil</a>",
		    "lavender 40/42", "<a href=\"$cat_base/EssentialOils.html#lavender_eo\">Lavender 40/42</a>",
		    "lavender essential oil", "<a href=\"$cat_base/EssentialOils.html#lavender_eo\">Lavender Essential&nbsp;Oil</a>",
		    "lanolin", "<a href=\"$cat_base/FixedOil.html#lanolin\">Lanolin</a>",
		    "lavender flowers", "<a href=\"$cat_base/FragranceOils.html#LavenderFlowersFragranceOil\">Lavender Flowers</a>",
		    "lemon essential oil", "<a href=\"$cat_base/EssentialOils.html#lemon_eo\">Lemon Essential&nbsp;Oil</a>",
		    "lemongrass essential oil", "<a href=\"$cat_base/EssentialOils.html#lemongrass_eo\">Lemongrass Essential&nbsp;Oil</a>",
		    "lilac", "<a href=\"$cat_base/FragranceOils.html#LilacFragranceOil\">Lilac</a>",
		    "lily of the valley", "<a href=\"$cat_base/FragranceOils.html#LilyoftheValleyFragranceOil\">Lily Of The Valley</a>",
		    "lime essential oil", "<a href=\"$cat_base/EssentialOils.html#lime_eo\">Lime Essential&nbsp;Oil</a>",
		    "lip solutions", "<a href=\"$cat_base/Kits.html#LipSolutions\">Lip Solutions</a>",
		    "litsea cubeba essential oil", "<a href=\"$cat_base/EssentialOils.html#litsea_cubeba_eo\">Litsea Cubeba Essential&nbsp;Oil</a>",
		    "magnolia", "<a href=\"$cat_base/FragranceOils.html#MagnoliaFragranceOil\">Magnolia</a>",
		    "mango butter", "<a href=\"$cat_base/FixedOil.html#mango_butter\">Mango Butter</a>",
		    "mango sorbet", "<a href=\"$cat_base/FragranceOils.html#MangoSorbetFragrance\">Mango Sorbet</a>",
		    "myrrh", "<a href=\"$cat_base/FragranceOils.html#MyrrhFragranceOil\">Myrrh</a>",
		    "narcissus", "<a href=\"$cat_base/FragranceOils.html#NarcissusFragranceOil\">Narcissus</a>",
		    "orange oil", "<a href=\"$cat_base/EssentialOils.html#orange_eo\">Orange Oil</a>",
		    "orange essential oil", "<a href=\"$cat_base/EssentialOils.html#orange_eo\">Orange Essential&nbsp;Oil</a>",
		    "orient express", "<a href=\"$cat_base/FragranceOils.html#OrientExpressFragranceOil\">Orient Express</a>",
		    "palm oil", "<a href=\"$cat_base/FixedOil.html#palm\">Palm Oil</a>",
		    "palm kernel oil", "<a href=\"$cat_base/FixedOil.html#palm_kernel\">Palm Kernel Oil</a>",
		    "patchouli", "<a href=\"$cat_base/FragranceOils.html#PatchoulyFragranceOil\">Patchouly</a>",
		    "patchouly", "<a href=\"$cat_base/FragranceOils.html#PatchoulyFragranceOil\">Patchouly</a>",
		    "peach", "<a href=\"$cat_base/FragranceOils.html#PeachFragranceOil\">Peach</a>",
		    " pear ", " <a href=\"$cat_base/FragranceOils.html#PearFragranceOil\">Pear</a> ",
		    "peppermint essential oil", "<a href=\"$cat_base/EssentialOils.html#peppermint_eo\">Peppermint Essential&nbsp;Oil</a>",
		    "plumeria", "<a href=\"$cat_base/FragranceOils.html#PlumeriaFragranceOil\">Plumeria</a>",
		    "rain orchid", "<a href=\"$cat_base/FragranceOils.html#RainOrchidFragranceOil\">Rain Orchid</a>",
		    "raspberry", "<a href=\"$cat_base/FragranceOils.html#RaspberryFragranceOil\">Raspberry</a>",
		    " rose ", " <a href=\"$cat_base/FragranceOils.html#RoseFragranceOil\">Rose</a> ",
		    "roseberry", "<a href=\"$cat_base/FragranceOils.html#RoseberryFragranceOil\">Roseberry</a>",
		    "rosemary", "<a href=\"$cat_base/EssentialOils.html#rosemary_eo\">Rosemary</a>",
		    "sandalwood", "<a href=\"$cat_base/FragranceOils.html#SandalwoodFragranceOil\">Sandalwood</a>",
		    "shea butter", "<a href=\"$cat_base/FixedOil.html#shea_butter\">Shea Butter</a>",
		    "hydrogenated soybean oil", "<a href=\"$cat_base/FixedOil.html#soybean\">Hydrogenated Soybean Oil</a>",
		    "shortening", "<a href=\"$cat_base/FixedOil.html#soybean\">Hydrogenated Soybean Oil</a>",
		    "spearmint", "<a href=\"$cat_base/EssentialOils.html#spearmint_eo\">Spearmint</a>",
		    "spicy lime", "<a href=\"$cat_base/FragranceOils.html#SpicyLimeFragranceOil\">Spicy Lime</a>",
		    "stearic acid", "<a href=\"$cat_base/Additives.html#stearic_acid\">Stearic Acid</a>",
		    "strawberry", "<a href=\"$cat_base/FragranceOils.html#StrawberryFragranceOil\">Strawberry</a>",
		    "sweetgrass", "<a href=\"$cat_base/FragranceOils.html#SweetgrassFragranceOil\">Sweetgrass</a>",
		    "sweet pea", "<a href=\"$cat_base/FragranceOils.html#SweetPeaFragranceOil\">Sweet Pea</a>",
		    "tangerine essential oil", "<a href=\"$cat_base/EssentialOils.html#tangerine_eo\">Tangerine Essential&nbsp;Oil</a>",
		    "tea tree", "<a href=\"$cat_base/EssentialOils.html#tea_tree_eo\">Tea Tree</a>",
		    "vanilla creme", "<a href=\"$cat_base/FragranceOils.html#VanillaCreamFragranceOil\">Vanilla Creme</a>",
		    "vanilla hazelnut", "<a href=\"$cat_base/FragranceOils.html#VanillaHazelnutFragranceOil\">Vanilla Hazelnut</a>",
		    "vanilla musk", "<a href=\"$cat_base/FragranceOils.html#VanillaMuskFragrance\">Vanilla Musk</a>",
		    "watermelon", "<a href=\"$cat_base/FragranceOils.html#WatermelonFragranceOil\">Watermelon</a>",
		    "wisteria", "<a href=\"$cat_base/FragranceOils.html#WisteriaFragranceOil\">Wisteria</a>",
		    "ylang ylang essential oil", "<a href=\"$cat_base/EssentialOils.html#ylang_ylang_eo\">Ylang Ylang Essential&nbsp;Oil</a>",
		    "ylang-ylang essential oil", "<a href=\"$cat_base/EssentialOils.html#ylang_ylang_eo\">Ylang Ylang Essential&nbsp;Oil</a>",
		    "essential oil", "<a href=\"$cat_base/EssentialOils.html\">Essential Oil</a>",
		    );

#    LogHit($filename);
#    LogHit("Total");

    open(RECIPE, "$base_dir$filename") || die "Couldn't open $base_dir$filename\n";

    my $title;
    my $body = "<ul>\n";
    my $data;

    while ($data = <RECIPE>) {
	if ($data =~ /<title>/i) {
	    $title = $data;
	    $title =~ s/\<title\>//ig;
	    $title =~ s/\<\/title\>//ig;
	} else {
	    foreach my $filter (keys(%ingredients)) {
		$data =~ s/$filter/$ingredients{$filter}/ig;
	    }
	    $body .= $data;
	}
    }
    $body .= "</ul>\n";
    print header();

    my $tpl = new CGI::FastTemplate($templateDir);
    $tpl->define( main => $recipeTemplate );

    $tpl->assign( TITLE => $title );
    $tpl->assign( BODY  => $body  );
    $tpl->parse( MAIN => "main" );
    $tpl->print();
}

sub LogHit {
    my $filename = shift;
    my $LOGDIR = '/home/mmtnsage/public_html/cgi-local/logfiles/recipes';
    my $hitCount;

    open(HITFILE, "+<$LOGDIR/$filename") || open(HITFILE, ">$LOGDIR/$filename") || die;
    flock(HITFILE, &LOCK_EX);
    chop($hitCount = <HITFILE>);

    ++$hitCount;

    seek(HITFILE, 0, 0);
    print HITFILE $hitCount, "\n";
    flock(HITFILE, &LOCK_UN);
    close(HITFILE);
}