Woodworking Program

## Assignment: Project 2
## Author: Nicolas Sims (sableye.nico@gmail.com)
## Version: 09.29.2014.01
## Purpose: Create an application to compute the price of a sign a customer orders, based on multiple factors.

use 5.14.1;
use warnings;

my ($orderNumber, $numberCharacters, $totalBill, $colorCharacters, $woodType, $errorCounter);
my ($customerName);

sub main {
     setOrderNumber();
     setCustomerName();
     setWoodType();
     setNumberCharacters();
     setColorCharacters();
     setTotalBill();
}

main();

sub setOrderNumber {
     if (!(defined $orderNumber)) {
          print "\nEnter order number. ";
          chomp ($orderNumber = <STDIN>);
     }
}

sub setCustomerName {
     if (!(defined $customerName)) {
          print "\nEnter the customer's name. ";
          chomp ($customerName = <STDIN>);
     }
}

sub setWoodType {
     if (!(defined $woodType) || $woodType != 1 && $woodType != 2) {
          print "\nEnter the type of wood the customer wants his sign to be made of. \n(Oak = 1, Pine = 2) ";
          chomp ($woodType = <STDIN>);
          if ($woodType != 1 && $woodType != 2) {
               errorHandler();
          }
     }
}

sub setNumberCharacters {
     if (!(defined $numberCharacters) || $numberCharacters == 0) {
          print "\nEnter the number of characters the customer wants on his sign. ";
          chomp ($numberCharacters = <STDIN>);
          if ($numberCharacters == 0) {
               errorHandler();
          }
     }
}

sub setColorCharacters {
     if (!(defined $colorCharacters) || $colorCharacters != 1 && $colorCharacters != 2 && $colorCharacters != 3) {
          print "\nEnter the color of the characters the customer wants on his sign.\n(Black = 1, White = 2, Goldleaf = 3) ";
          chomp ($colorCharacters = <STDIN>);
          if ($colorCharacters != 1 && $colorCharacters != 2 && $colorCharacters != 3) {
               errorHandler();
          }
     }
}

sub setTotalBill {
     use constant MINIMUM_CHARGE => 30;
     use constant OAK_CHARGE => 15;
     use constant CHARACTER_CHARGE => 3;
     use constant GOLDLEAF_CHARGE => 12;
     if ($woodType == 1) {
          $totalBill = MINIMUM_CHARGE + OAK_CHARGE;
          if ($numberCharacters > 6) {
               $totalBill = $totalBill + ($numberCharacters - 6) * CHARACTER_CHARGE;
          }
          if ($colorCharacters == 3) {
               $totalBill = $totalBill + 12;
          }
     } else {
          $totalBill = MINIMUM_CHARGE;
          if ($numberCharacters > 6) {
               $totalBill = $totalBill + ($numberCharacters - 6) * CHARACTER_CHARGE;
          }
          if ($colorCharacters == 3) {
               $totalBill = $totalBill + 12;
          }
     }
     system("cls");
     print "\nThe total bill for $customerName will be \$$totalBill. Their order number is $orderNumber. \n";
}

sub errorHandler {
     print "\nYou've entered something wrong. Try again. ";
     if (!(defined $errorCounter)) {
          $errorCounter = 0
     }
     $errorCounter = $errorCounter + 1;
     if ($errorCounter == 5) {
          system("cls");
          print "\nYou're drunk. Stop using the computer. \n\n\n\n";
          sleep 2;
          system("cls");
          die;
     }
     main ();
}