#!/usr/bin/perl
#
# This is the code for my recipe selector, version 0.1 BETA
# Written in Perl
# Current recipe(s): Apricot Chicken Pot Stickers, Baked Pasta Casserole
use strict;
use warnings;


# Locate the files
my $acptloc = <recipe/acpt.txt>;
my $bpcloc = <recipe/bpc.txt>;
# Open the recipe files
# - Pasta
open(acptfile, "recipe/acpt.txt") or die("Program unable to open acpt.txt!");
open(bpcfile, "recipe/bpc.txt") or die("Program unable to open bpc.txt!");

# Put the files into variables
# - Pasta
my @acptprint = <acptfile>;
my @bpcprint = <bpcfile>;

# The recipe categories
my @recipecat = ("pasta", "bbq", "bread");

# Print the welcome screen and recipe catagories
print "Welcome to my recipe tracking system!\n\n";
print "This is version 0.1 BETA. Please select a category:\n\n @recipecat\n\n";

# Select the recipe categorie
my $recipecatselect = <STDIN>;

# If the use selects the pasta categories, do this
if ($recipecatselect == "pasta") {

# Prints out the pasta welcome screen
 print "\n\nHello. You selected pasta. Please select a pasta from the list.\n";
 print "Use the abbrievations, thank you.\n\n";
 
# List of pasta recipes
# ACPT - Apricot Chicekn Pot Stickers
# BPC - Baked Pasta Casserole
# In an array:
my @pastalist = ("acpt", "bpc");


 # Print the pasta list
 print "acpt - apricot chicken pot stickers\n bpc - baked pasta casserole\n\n";
 
 # Select the pasta
my $pastasel = <STDIN>; 

# If the user selects ACPT, do this
         if ($pastasel == "acpt") {
         
            
            # Print the recipe
            print "\n\n";
            print @acptprint;
            print "\n";
            
            # Close the recipe
            close ("acptfile");
            

         }
         

# If the user selects BPC, do this
         elsif ($pastasel == "bpc") {
            
            # Print the recipe
            print "\n\n";
            print @bpcprint;
            print "\n";
            
            # Close the file
            close ("bpcfile");
            
         }
         
         else {
            print "That feature is not currently implemented. Sorry";
         }
         
         }

else {
    print "That feature is not currently implemented. Sorry.";
}

print "Press ENTER to exit.";
my $exit = <STDIN>;