#!/usr/bin/perl -w
push(@Inc,"home/themanin/www/cgi-bin");
require("cgi-lib.pl");
&ReadParse(*input);
open($PRICE_FILE,"sys2.txt");
while(<$PRICE_FILE>){
chop;
($item,$price)=split(/:/,$_,2);
$price_list{$item}=$price;
}
#Determine the base price based on the system variable
$price=$price_list{$input{'cpu'}};
if ($input{'cpu'}eq"486d66"){
#set 486 only variables
$computer_name="486DX2-66";
$video="VLB";
$price+=$price_list{$input{'memory'}};
$memory=$input{'memory'};
}
else{
#not a 486 must be a pentium system
$computer_name="Pentium";
$video="pcl";
$cache="256K Cache";
if($input{'memory'}ne"8 MEG"){
$price+=$price_list{$input{'memory'}};
}
if ($input{'memory'}eq"4 MEG"){
$memory="8 MEG";
}
else{$memory=$input{'memory'};}
if($input{'cpu'}eq"P100"){$ptype=100}
elseif($input{'cpu'}eq"P75"){$ptype=75}
elseif($input{'cpu'}eq"P60"){$ptype=60}
}
#add extra price for monitors over 14inch
$monitor=$input{'monitor'};
$price+=$price_list{$input{'monitor'}};
#add multimedia system
if($input{'CD-ROM'}ne"NONE"{
$price+=$price_list{$input{'CD-ROM'}};
if($input{'CD-ROM'}eq"2X CD-ROM"){
$multimedia="Double Speed Multimedia System";
}
else{
$multimedia="Quad Speed Mulitmedia System";
}
}
#add 14.4 modem price
if ($input{'modem'}ne"NONE"){
$price+=$price_list{$input{'modem'}};
$modem=$input{'modem'};
}
#add disk price
$price+=$price_list{$input{'disk'}};
$DISK=$input{'disk'};
#add video
$price+=$price_list{$input{'video'}};
$VIDEO=$input{'video'};
print&PrintHeader;
#print<$in1>;
print<<"print_tag";
$computer_name Systems from your own Gavyn Mickleson