Hey~
I've been trying to made a simple guestbook, i
copyed the whole code from "Learning Pearl"(O'Reillys
book) i uploaded to tripod and didn't work
show me this:
..........
It looks like there was an error:
Your script produced this error: Can't locate CGI.pm
in @INC (@INC contains: .) at ./guestbook.cgi line 5.
BEGIN failed--compilation aborted at ./guestbook.cgi
line 5.
..........
The fifth line is
use CGI qw(:standart);
there is the problem i guess...
This is my code:
#/usr/bin/pearl -w
use 5.004;
use strict;
use CGI qw(:standart);
use Fcntl qw(:flock);
sub bail {
my $error = "@_";
print h1("Unexpected Error"), p($error), end_html;
die $error;
}
my{
$CHATNAME,
$MAXSAVE,
$TITLE,
cur,
@entries,
$entry,
};
$TITLE = "Simple Guestbook";
$CHATNAME = "/usr/tmp/chatfile";
$MAXSAVE = 10;
print header, start_html($TITLE), h1($TITLE);
$cur = CGI->new();
if ($cur->param("message")) {
$cur->param("date", scalar localtime);
@entries = ($cur);
}
open (CHANDLE, "+< $CHATNAME") || bail("cannot open
$CHATNAME: $!");
flock(CHANDLE, LOCK_EX) || bail("cannot flock
$CHARNAME: $!");
while (!eof(CHANDLE) && @entrie < $MAXSAVE) {
$entry = CGI->new(\"*CHANDLE);
push @entries, $entry;
}
seek(CHANDLE, 0, 0) || bail("cannot trewind $CHATNAME:
$!");
foreach $entry (@entries) {
&entry->save(\*CHANDLE);
}
truncate(CHANDLE) || bail("cannot close $CHATNAME:
$!");
print hr, start_form;
print p("Message:", cur->textfield{
-NAME => "name"));
print p("MEssage:", $cur->textfield{
-NAME => "message",
-OVERRIDE => 1,
-SIZE => 50));
print p(submit("send"), reser("clear"));
print end_form, hr;
print h2("Prior Messages");
foreach $entry (@entries) {
print("%s [%s]: %s",
$entry->param("date"),
$entry->param("name"),
$entry->param("message"));
print br();
}
print end_html;
can somebody help me with this, please...
thanks
=====
@paul {$yoyo}
I like yoyos. They go up and down. Yoyos are controlled by centrifical force which
keep them spinning. It is a known fact that people who yoyo are less likely to have a
sudden outrage of violent behavior. Such as hitting your neighbor's kid wit your car.
Ouch so If you want to prevent
this pick up a yoyo and learn some tricks!
------------ http://www.yoyoperu.com/ ------------
__________________________________________________
Do You Yahoo!?
Make a great connection at Yahoo! Personals.
http://personals.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
