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