#!/usr/local/bin/perl push(@INC, "/cgi-bin"); require("cgi-lib.pl"); &ReadParse(*input); #Determine the base price based on the system variable if ($input{'system'} eq "486d66") { #set 486 only variables $computer_name = "486DX2-66"; $price = 1099; $memory = 4; $video = "VLB"; } else { #not a 486 must be pentium system $computer_name = "Pentium"; $memory = 8; $video = "PCI"; $cache = "256K Cache" ; if ($input{'system'} eq "P100"){$price = 1799 ;$ptype = 100} elsif ($input{'system'} eq "P75"){$price =1550 ;$ptype = 75} elsif ($input{'system'} eq "P60"){$price = 1450;$ptype = 60} } #add extr price for monits 14inch $monitor = $input{'monitor'}; if ($input{'monitor'} eq "17inch"){$price += 650 ;} elsif ($input{'monitor'} eq "15inch"){$price +=200 ;} #add multimedia system if (defined($input{'sound'})) { $price += 190; $multimedia="MultiMedia System"; } #add 14.4 modem price if (defined($input{'modem'})) { $price += 69; $modem="14.4 modem"; } print &PrintHeader; #print <$in1>; print<<"print_tag"; $computer_name Systems from Austin Computer Center North

Austin Computer Center North
Austin Texas!

${computer_name} $ptype for only \$$price

  • $memory megs of Ram
  • $cache
  • Enhanced IDE In/Out Controller
  • $monitor NIL SVGA Monitor
  • 1 Meg $video SVGA Video Card
  • $multimedia
  • 1.44 Floppy Drive
  • 500+ meg Hard Drive
  • Mouse
  • Windows 95
  • $modem

1 YEAR WARRANTY PARTS & LABOR!

print_tag