home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Javascript / InteractiveWebDesignJavascript / Scripting / cgi1 / perl / cgi-bin / order.pl < prev    next >
Encoding:
Perl Script  |  2001-07-18  |  10.6 KB  |  379 lines
  1. #!C:/perl/bin/perl
  2.  
  3. # order.pl
  4. ######################################
  5. # Order Management System
  6. #
  7. # A simple on-line database to demonstrate
  8. # the capabilities of Perl, Win32 and the Web.
  9. # Database is a text file; limited insert, 
  10. # update and delete features are implemented.
  11. #
  12. # Created: 1/2/98
  13. # Author: Michael L. Curry 
  14. # http://www.web-data.org
  15. # email: mlc@web-data.org
  16. ######################################
  17. # Copyright 1998, This script may be 
  18. # distributed and modified as needed. 
  19. # Please credit the author as appropriate.
  20. ######################################
  21.  
  22. require("cgi-lib.pl");
  23. &ReadParse(*form);
  24. $|=1;     # turn on error messages
  25. print "Content-type: text/html\n\n";
  26. $error1 = 'You must select an order before you can view details';
  27. $error2 = 'You must select an order before you can fill it';
  28.  
  29. ######################################
  30. # File references
  31. #
  32. $applet = "order.pl";
  33. $base_server_path = 'http://mcurry/iit99/perl/cgi-bin/';
  34. $base_file_path = 'c:/webshare/wwwroot/iit99/perl/cgi-bin/';
  35. $db = $base_file_path . "order.db";
  36.  
  37. #############################
  38. # Test all valid button selections
  39. #
  40. if ($form{'new.x'}) { &new; } # main page, new record button
  41.  
  42. elsif ($form{'view.x'}) # main page, view an order button
  43. { 
  44.     if ($form{'D1'}) {&view;} # view the order if they selected one
  45.     else {&main($error1);}  # complain if they forgot to select one
  46. }
  47. elsif ($form{'modify.x'}) { &modify; } # detail page, modify order 
  48. elsif ($form{'save.x'}) { &save; } # detail page, save new order button
  49. elsif ($form{'fill.x'}) # main page, fill the order button
  50. { 
  51.     if ($form{'D1'}) {&fill;} # delete the order
  52.     else {&main($error2);}  # complain if they forgot to select one
  53. } 
  54. else {&main();} # otherwise, give them the summary
  55.  
  56. ##################
  57. # Main: display main menu
  58. #
  59. sub main {
  60.     local ($msg) = @_;
  61.     &header('Main Menu', $msg);
  62.     &summary;
  63. }
  64. ##################
  65. # New 
  66. #
  67. sub new {
  68.     &header('Create a New Order');
  69.     &addFields('Place Order','save');
  70. }
  71. ##################
  72. # View 
  73. #
  74. sub view {
  75.     &header('View & Modify an Order');
  76.     &addFields('Update Order','modify');
  77. }
  78. ##################
  79. # Save
  80. #
  81. sub save {
  82.     &insert;
  83.     &header('Main Menu', 'Previous order inserted');
  84.     &summary;
  85. }
  86. ##################
  87. # Modify
  88. #
  89. sub modify {
  90.     &update_modify;
  91.     &header('Main Menu', 'Previous order updated');
  92.     &summary;
  93. }
  94. ##################
  95. # Fill
  96. #
  97. sub fill {
  98.     &update_delete;
  99.     &header('Main Menu','Previous order filled');
  100.     &summary;
  101. }
  102. ##################
  103. # Order Summary
  104. #
  105. sub summary {
  106.  
  107.     local $action = $base_server_path . $applet;
  108.     open (DAT, "< $db") || die "Can't open $db:$!<br>";
  109.  
  110. print <<SUMMARY1;
  111. <form action="$action" method="GET">
  112.     <input type="hidden" name="page" value="main order"><div
  113.     align="center"><center><table border="0">
  114.         <tr>
  115.             <td><input type="image" name="new"
  116.             src="../dkBluBtn.gif" align="bottom" border="0"
  117.             width="32" height="25"></td>
  118.             <td><font size="5">New Order </font></td>
  119.             <td> </td>
  120.             <td><input type="image" name="view"
  121.             src="../dkBluBtn.gif" align="bottom" border="0"
  122.             width="32" height="25"></td>
  123.             <td><font size="5">View Order</font></td>
  124.             <td> </td>
  125.             <td><input type="image" name="fill"
  126.             src="../dkBluBtn.gif" align="bottom" border="0"
  127.             width="32" height="25"></td>
  128.             <td><font size="5">Fill Order</font></td>
  129.         </tr>
  130.     </table>
  131.     </center></div><p align="center"><select name="D1" size="5">
  132. SUMMARY1
  133.  
  134.     while (<DAT>)
  135.     {
  136.     print "<option>$_</option>";
  137.     }
  138.  
  139. print <<SUMMARY2;
  140.     </select></p>
  141. </form>
  142. <div align="center"><center>
  143.  
  144. <table border="0">
  145.     <tr>
  146.         <td valign="top"><font size="5"><img src="../Fork_LiftF1D1.gif"
  147.         width="27" height="21"></font></td>
  148.         <td><font size="4">The Order Management System provides
  149.         current order status reflected in the local order
  150.         administration database. For configuration information, </font><a
  151.         href="../configur.htm"><font size="4">consult this document</font></a><font
  152.         size="4">.</font><p><font size="5"><strong>Instructions: </strong></font></p>
  153.         </td>
  154.     </tr>
  155.     <tr>
  156.         <td> </td>
  157.         <td><ol>
  158.             <li>Select New Order to create an order. </li>
  159.             <li>Select View Order and make changes to the order
  160.                 and view details.</li>
  161.             <li>Select Fill Order to delete the order.</li>
  162.         </ol>
  163.         </td>
  164.     </tr>
  165. </table>
  166. </center></div>
  167. <p><em>Developed by:</em> <a
  168. href="http://www.cs.uoregon.edu/~currym">Michael L. Curry</a> <br>
  169. ⌐ Copyright 1998, <a href="../configur.htm#About the OMS">See
  170. distribution notice</a></p>
  171. </body>
  172. </html>
  173.  
  174. SUMMARY2
  175.     close (DAT);
  176. }
  177. ##################
  178. # Add Fields
  179. #
  180. sub addFields {
  181. local ($label,$button) = @_;
  182.  
  183. if ($form{'D1'} && $form{'view.x'}) 
  184. {
  185.     ($id, $date, $part, $desc, $price, $qty, $status) = split(/::/, $form{'D1'});
  186.  
  187. }
  188. else {$id = &getindex;}
  189.  
  190. local $action = $base_server_path . $applet;
  191.  
  192. print <<FIELDS;
  193. <form action="$action" method="GET">
  194.     <div align="center"><center><table border="0">
  195.         <tr>
  196.             <td><font size="4">Order Id</font></td>
  197.             <td><font size="4"><input type="text" size="10"
  198.             name="T1" value="$id"></font></td>
  199.             <td><font size="4">Date Created</font></td>
  200.             <td><font size="4"><input type="text" size="10"
  201.             name="T2" value="$date"></font></td>
  202.             <td> </td>
  203.             <td> </td>
  204.         </tr>
  205.         <tr>
  206.             <td><font size="4">Part Number</font></td>
  207.             <td><font size="4"><input type="text" size="10"
  208.             name="T3" value="$part"></font></td>
  209.             <td><font size="4">Description</font></td>
  210.             <td colspan="3"><font size="4"><input type="text"
  211.             size="20" name="T4" value="$desc"></font></td>
  212.             <td> </td>
  213.             <td> </td>
  214.         </tr>
  215.         <tr>
  216.             <td><font size="4">Unit Price</font></td>
  217.             <td><font size="4"><input type="text" size="10"
  218.             name="T5" value="$price"></font></td>
  219.             <td><font size="4">Quantity</font></td>
  220.             <td><font size="4"><input type="text" size="5"
  221.             name="T6" value="$qty"></font></td>
  222.             <td> </td>
  223.             <td> </td>
  224.         </tr>
  225.         <tr>
  226.             <td><font size="4">Status</font></td>
  227.             <td colspan="3"><font size="4"><input type="text"
  228.             size="30" name="T7" value="$status"></font></td>
  229.             <td> </td>
  230.             <td> </td>
  231.             <td> </td>
  232.             <td> </td>
  233.         </tr>
  234.         <tr>
  235.             <td><p align="right"><input type="image" name="$button"
  236.             value="save new" src="../dkBluBtn.gif" align="bottom" border="0"
  237.             width="32" height="25"></p>
  238.             </td>
  239.             <td valign="top"><font size="4"><strong>$label</strong></font></td>
  240.             <td> </td>
  241.             <td> </td>
  242.             <td> </td>
  243.             <td> </td>
  244.             <td> </td>
  245.             <td> </td>
  246.         </tr>
  247.     </table>
  248.     </center></div><p><font size="4"> </font></p>
  249. </form>
  250. </body>
  251. </html>
  252.  
  253. FIELDS
  254. }
  255. ##################
  256. # Header
  257. #
  258. sub header {
  259.     local ($msg1, $msg2) = @_;
  260.  
  261. print <<HEADER;
  262. <html>
  263.  
  264. <head>
  265. <title>New Order</title>
  266. </head>
  267.  
  268. <body background="../Lava.gif" bgcolor="#FFFFFF" text="#000000"
  269. bgproperties="fixed">
  270.  
  271. <table border="0" width="100%">
  272.     <tr>
  273.         <td rowspan="2"><img src="../roller.gif" width="158"
  274.         height="117"></td>
  275.         <td rowspan="2"><p align="center"><font color="#008080"
  276.         size="6"><strong>Order Management System</strong></font></p>
  277.         </td>
  278.     </tr>
  279. </table>
  280.  
  281. <center><p><font color="#800040" size="4"><strong>$msg2</strong></font></p>
  282. HEADER
  283. }
  284. ##################
  285. # Insert record into Database 
  286. #
  287. sub insert {
  288.  
  289.     local ($line);
  290.     $line = $form{'T1'}.'::'.$form{'T2'}.'::'.$form{'T3'}.'::'.$form{'T4'}.'::'.$form{'T5'}.'::'.$form{'T6'}.'::'.$form{'T7'}."\n";
  291.     open (DAT, ">> $db") || die "Can't open $db:$!<br>";
  292.     print DAT $line;
  293.     close(DAT);
  294. }
  295.  
  296. ##################
  297. # Update Database by modifying record
  298. #
  299. sub update_modify {
  300.  
  301.     local ($tempDB, $line, $pat); # vars
  302.     $tempDB = $db; 
  303.     $tempDB =~ s/\.db/\.tmp/;
  304.     #
  305.     # build the new line
  306.     $pat = $form{'T1'};
  307.     $line = $form{'T1'}.'::'.$form{'T2'}.'::'.$form{'T3'}.'::'.$form{'T4'}.'::'.$form{'T5'}.'::'.$form{'T6'}.'::'.$form{'T7'}."\n";
  308.     
  309.     #print "Pat: $pat <br>";
  310.     #
  311.     # write new line & other lines to temp db
  312.     #
  313.     open (DAT, "< $db") || die "Can't open $db:$!<br>"; #read from
  314.     open (TMP, "> $tempDB") || die "Can't open $tempDB:$!<br>"; #write to
  315.     while (<DAT>)
  316.     {
  317.     if ($_ =~ /^\s*$pat\:\:/)     
  318.     { print TMP $line; }
  319.     else { print TMP $_; } 
  320.     }
  321.     close (DAT); close (TMP);
  322.     #
  323.     # Now over write the db with the temp db
  324.     #
  325.     open (DAT, "> $db") || die "Can't open $db:$!<br>"; #write to
  326.     open (TMP, "< $tempDB") || die "Can't open $tempDB:$!<br>"; #read from
  327.     while (<TMP>) {print DAT $_;}
  328.     close (DAT); close (TMP);
  329. }
  330. ##################
  331. # Update Database by deleting record
  332. #
  333. sub update_delete {
  334.  
  335.     local ($tempDB, $line, $pat); 
  336.     $tempDB = $db;
  337.     $tempDB =~ s/\.db/\.tmp/;
  338.     $pat = $form{'D1'};
  339.  
  340.     # print "Pat: $pat <br>";
  341.     #
  342.     # eliminate line from temp db
  343.     #
  344.     open (DAT, "< $db") || die "Can't open $db:$!<br>"; #read from
  345.     open (TMP, "> $tempDB") || die "Can't open $tempDB:$!<br>"; #write to
  346.     while (<DAT>)
  347.     {
  348.     if ($_ =~ /$pat/) {
  349.         #print $_, "matched", $pat, "<br>";
  350.         next; # delete line
  351.     }
  352.     else {print TMP $_;}
  353.     }
  354.     close (DAT); close (TMP);
  355.     #
  356.     # Now overwrite the db with the temp db
  357.     #
  358.     open (DAT, "> $db") || die "Can't open $db:$!<br>"; #write to
  359.     open (TMP, "< $tempDB") || die "Can't open $tempDB:$!<br>"; #read from
  360.     while (<TMP>) {print DAT $_;}
  361.     close (DAT); close (TMP);
  362. }
  363. ##################
  364. # get index: returns new index number
  365. #
  366. sub getindex {
  367.     local (%hash, @tmp, $key, $lastID);
  368.     open (DAT, "< $db") || die "Can't open $db:$!<br>";
  369.     while (<DAT>) 
  370.     {
  371.     @tmp = split (/::/,$_);
  372.     $hash{$tmp[0]}=$tmp[3];
  373.     }
  374.     close (DAT);
  375.     foreach $key (sort(keys(%hash))) {$lastID = $key}
  376.     $lastID= $lastID + 1;
  377.     return ($lastID);
  378. }
  379.