Guest book form

 

<HTML>
<BODY>
<H1>Please add to my guest book...</H1>
<FORM METHOD = POST ACTION ="guestbook.cgi">
<BR>
Please enter your name: 
<P>
<INPUT TYPE = "TEXT" NAME = "username">
</INPUT>
<BR>
Please enter your comments: 
<P>
<TEXTAREA NAME = "comments"></TEXTAREA>
<BR>
<BR>
<INPUT TYPE = SUBMIT VALUE = "Send">
<INPUT TYPE = RESET VALUE = "Reset">
</FORM>
</BODY>
</HTML>



#File: guestbook.cgi

#!/usr/bin/perl

use CGI;                             

$co = new CGI;                        
open (BOOK, "+<book.htm") or die "Could not open guest book.";
seek (BOOK, -length($co->end_html), 2);
$date = `date`;
chop($date); 
$username = $co->param('username');
$username =~ s/</&lt;/g;
$text = $co->param('comments');
$text =~ s/</&lt;/g;
print BOOK 
$co->h3
(
    "New comments by ", $username, " on ", $date,
    $co->p,
    $text,
),
$co->hr,
$co->end_html;
close BOOK;
print $co->header,                    
$co->start_html
(
    -title=>'Guest Book Example', 
    -author=>'your name', 
    -BGCOLOR=>'white', 
    -LINK=>'red'
);
print
$co->center
(
    $co->h1('Thanks for adding to the guest book!')
),
"If you want to take a look at the guest book, ", 
$co->a
(
    {href=>"http://www.yourserver.com/user/cgi/book.htm"},
    "click here"
), 
".",
$co->hr,
$co->end_html;

Related examples in the same category

1.	Form Input Types
2.	Demonstrates GET method with HTML form.
3.	Demostrates POST method with HTML form.
4.	Demonstrates use of CGI.pm with HTML form.
5.	Create HTML form with CGI
6.	Get form submitted value
7.	Using param() function to get parameter
8.	Using CGI function to check the parameter
9.	Create a form and set the method and action
10.	Create a form with submit button
11.	Process form with regular expression: first name and last name
12.	Process form with regular expression: date
13.	Process form with regular expression: time
14.	Generate the HTML form
15.	Printing the Name Input Using the CGI Module
16.	Get form value with param
17.	Generate and Process Forms
18.	Form Mail
19.	Form based table editing
20.	Create a form with Perl code
21.	Code to Accept Input with the CGI Module
22.	Capitalize the first letter of each parameter using ucfirst
23.	A Form-Based Example
24.	Learn about the current CGI request
25.	Read the data for a CGI GET request
26.	Read the data passed to a script on the command line?
27.	Decoding the Input Data
28.	The POST Method
29.	Verifying a username and a password
30.	Sample Database Query
31.	Writing a cookie to the client computer
32.	Add a New Phone Number
33.	Sessions - Preserving State
34.	Separate the form and perl script
35.	Add form data to database
36.	Passing parameter to perl CGI code
37.	EMail sending form
38.	Data-Entry Forms in Web Pages
39.	Using LI
40.	Using the option select box
41.	Reading text in textarea
42.	Querying all the parameters

Guest book form : Form « CGI « Perl

Related examples in the same category