Search Tutorials
Part I - Setting up the Perl scriptThe hardest part of using a cgi script is the setup and getting all your paths correctly. I'll attempt to explain all this in as much detail as I can. Along with some common errors that you can make, and how to avoid them. First you'll have to change a couple things in the actual Perl script. You should only have to change Line 15 and possibly Line 1. (for example purposes line numbers were included below- In the actual script these should not be included): The script (That's it! not so bad huh): 1) #!/usr/bin/perl
2)
3) require "subparseform.lib";
4) &Parse_Form;
5)
6) $Title = $formdata{'Title'};
7) $Contact = $formdata{'Contact'};
8) $About = $formdata{'About'};
9) $News = $formdata{'News'};
10) $Products = $formdata{'Products'};
11) $Link = $formdata{'Link'};
12)
13) @New = ("Title=$Title&Contact=$Contact&About=$About&Products=$Products&News=$News&Link=$Link");
14)
15) open (LOG, ">/usr/home/userName/public_html/PerlTut/Ex2TextFile.txt") || &ErrorMessage;
16) print LOG "@New";
17) close (LOG);
18)
19) print "Content-type: text/html\n\n";
20) print "Status=Success - Your Comments have beed updated. Please return to the main area to see the results";
21)
22) sub ErrorMessage {
23) print "Content-type: text/html\n\n";
24) print "Status=Connection Failed Please Check the path to the text File";
25) exit; }
Open up the attached Perl Script called "UpdateVars.cgi" with notepad or any other text editor.
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|