home *** CD-ROM | disk | FTP | other *** search
/ Teach Yourself CGI Programming with Perl in a Week / CGIPROGRAMMINGPERL.iso / booksrc / 07cgil06.cgi < prev    next >
Encoding:
Text File  |  1995-12-08  |  2.3 KB  |  73 lines
  1. #! /usr/local/bin/perl
  2. push (@INC, "/usr/local/business/http/accn.com/cgi-bin");
  3. require("cgi-lib.pl");
  4. &ReadParse(*customer_data);
  5.  
  6. if (length($customer_data{'unique_id'}) == 0){
  7.    $unique_id = $$ . "-" . $ENV{'REMOTE_ADDR'} . "-" . time();
  8.    print "Set-Cookie: unique_id=$unique_id; \n";
  9.    }
  10. else{
  11.    $unique_id = $customer_data{'unique_id'};
  12.   }
  13.  
  14. print &PrintHeader;
  15.  
  16. print <<"EOT";
  17. <html>
  18. <head><Title>Leading Rein Horse Supplies-Tack</title></head>
  19. <body>
  20. <h3> Each tack item featured as a thumbnail image can be clicked on
  21. to see special <em> <font size=+2> SALE </font></em> prices. </h3>
  22.  
  23. <FORM METHOD=POST ACTION="/leading-rein/saddles.cgi">
  24. <input type=image src=images/cat_1.jpg align=left>
  25. <font size=+1>Choose from one of our many different types of saddles. </font>
  26. <hr noshade>
  27. <input type=submit name=youth value="All Purpose">
  28. <input type=submit name=youth value="Close Contact">
  29. <input type=submit name=youth value=Dressage>
  30. <input type=submit name=youth value=Eventing>
  31. <input type=submit name=youth value=Youth>
  32. </FORM>
  33. <br clear=left>
  34.  
  35. <FORM METHOD=POST ACTION="/leading-rein/stirrups.cgi">
  36. <input type=image src=images/dadp2_10.jpg align=left>
  37. We have a fantastic selection of stirrups at reasonable prices. <p> Select the 
  38. stirrup image to see our sale prices.
  39. <br clear=left >
  40. <br>
  41. </FORM>
  42.  
  43. <FORM METHOD=POST ACTION="/leading-rein/clippers.cgi">
  44. <input type=image src=images/dadp2_15.jpg align=left></a>
  45. <INPUT TYPE=HIDDEN NAME=unique_id value="$unique_id">
  46. Good horse clippers can make preparation for show quick and painless. If your
  47. clippers are beginning to show their age, take a look at the great prices 
  48. we have on these superb quality clippers.
  49. </FORM>
  50.  
  51. <FORM METHOD=POST ACTION="/cgibook/leading-reing/pads.cgi">
  52. <input type=image src=images/dadp2_06.jpg align=left>
  53. Every rider knows that the saddle pad is one of the most important pieces
  54. of equipment for your horses comfort.  A good saddle pad absorbs shock
  55. keep your horse comfortable and sound.
  56. <br clear=left >
  57.  
  58. </FORM>
  59.  
  60. <FORM METHOD=POST ACTION="/leading-rein/brushes.cgi">
  61. <input type=image  src=images/dadp2_23.jpg align=left>
  62. You just can't survive without good brushes.  Select the image on your 
  63. left to see our latest supply and prices.
  64. <br clear=left >
  65.  
  66. </FORM>
  67.  
  68. </body>
  69. </html>
  70.  
  71. EOT
  72.  
  73.