home *** CD-ROM | disk | FTP | other *** search
- #!/usr/local/bin/perl
- push(@INC, "/cgi-bin");
- require("cgi-lib.pl");
-
- &ReadParse(*input);
- open($PRICE_FILE, "../systems/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 pentium system
- $computer_name = "Pentium";
- $video = "PCI";
- $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}
- elsif ($input{'cpu'} eq "P75"){$ptype = 75}
- elsif ($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 CDROM") {
- $multimedia="Double Speed MultiMedia System";
- }
- else {
- $multimedia="Quad Speed MultiMedia 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";
- <html>
- <head>
- <title>$computer_name Systems from Austin Computer Center North </title>
- </head>
- <body>
- <h1 align=center> Austin Computer Center North <br>Austin Texas! </h1>
- <center>
- <img src="/accn.jpg" align=left>
- <table border=5>
- <th colspan=2 align=center> <h2>
- ${computer_name} $ptype for only \$$price
- </h2>
- <tr><td> <ul>
- <li>$memory of Ram
- <li>$cache
- <li>Enhanced IDE In/Out Controller
- <li>$monitor NIL SVGA Monitor
- <li>$VIDEO $video SVGA Video Card
- <li>$multimedia
- </ul>
- <td> <ul>
- <li>1.44 Floppy Drive
- <li>$DISK Hard Drive
- <li>Mouse
- <li>Windows 95
- <li>$modem
- </ul>
- <tr>
- <td align=right colspan=2> <h2> 1 YEAR WARRANTY PARTS & LABOR! </h2>
- <tr>
- </table>
- </center>
- </body>
- </html>
- print_tag
-
-
-
-
-
-
-
-