Mike Fisher — Thu, 10 Aug 2000 11:08:03 +0000

Aww... they're getting along. Isn't that so cute.

Just..brings tears to my eyes.

richjb — Thu, 10 Aug 2000 03:08:13 +0000

Oh! You made my day!

Richard

Laguna Loire — Thu, 10 Aug 2000 00:36:32 +0000

yours!

richjb — Wed, 09 Aug 2000 05:43:26 +0000

Which code?

Richard

Laguna Loire — Wed, 09 Aug 2000 05:32:31 +0000

I added that code. Looks like it worked! THANKS!

Laguna Loire — Sun, 06 Aug 2000 20:25:26 +0000

Here is the ENTIRE guestbook:

#!/usr/bin/perl
print "Content-type: text/html\n\n"; #content is html
##############################
# #
# Streamline Guestbook #
# v2.0 Beta #
# coded by: Josh Nylund #
# and Russ Klinkerman #
# ww2.3dstream.net #
# #
# #
# #
##############################

#get the varibles that are incoming!
if ($ENV{"REQUEST_METHOD"} eq "GET") {
$input = $ENV{QUERY_STRING};
@pairs = split /\&/ , $input;

foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$form{$name} = $value;
}
} else {
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$form{$name} = $value;
}
}
$action = $form{'action'}; #what did the user want to do????
#/end getting varibles
#required files
require "vars.file";
require "badwords.file";
#end files

#check actions and do proper thing (action and if guestbook is on or off)########################################################
if($action eq ""){
if($bookstatus eq "on"){

$titleaction = "Welcome";

{&doheader;}{&domenu;}
print qq|

Welcome to $pagename guestbook! Please take a look at our guests' entrys, then add one of your own!

|;
{&dofooter;}{&dohits;}

} elsif ($bookstatus eq "off"){
$titleaction = "Guestbook Disabled";
{&doheader;}
print qq|

$pagename Guestbook is currently closed! Please come back soon!
|;
{&dofooter;}{&dohits;}
}
#post and entry! ##########################################################################
} elsif ($action eq "postentry"){
$titleaction = "Post Entry";
{&doheader;}{&domenu;}
print qq|

.: Name -

.: E-Mail Address -

.: Web Address -

.: Where do you live? -

.: Comments -
|;
if($usehtml eq "off") {
print "HTML in posts is disabled!\n";
} elsif ($usehtml eq "on" ) {
print "HTML in posts is enabled!\n";
} else {
print "Program Error, html checking not working, please contact the webmaster of this site!";
die
}
print qq|

|;
{&dofooter;}

##return the data for printing and checking! ##########################################################################
} elsif ($action eq "returnentry"){
$username = $form{'username'};
$userinfo = $form{'userinfo'};
$useremail = $form{'useremail'};
$userurl = $form{'userurl'};
$form{'comments'} =~ s/\n//g;
$comments = $form{'comments'};

#add an entry!

#add the date
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@months = ("January","February","March","April","May","June","July","August","September","October","November","December");
@days = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
$currentyear = $year + 1900;
$month = @months[$mon];
$day = @days[$wday];
$date = "$day, $month $mday, $currentyear";
#compile the data
if ($usehtml eq "off") {
$comments =~ s//.>/g;
}
if ($dobadwords eq "yes") {
foreach $badword (@badwords) {
$comments =~ s/$badword/****/ig;
}
}
#add length feature! length("whatever")
$useremail =~ s//gt;/g;
$username =~ s//gt;/g;
$userurl =~ s//gt;/g;
$userinfo =~ s//gt;/g;
$comments =~ s//- >/g;
$comments =~ s/\n//g;
$entryline = "$username|$date|$useremail|$userinfo|$userurl|$comments\n";
#print the entry
$titleaction = "Thank you for posting!";
{&doheader;}{&domenu;}
print "Thank you for posting! Please click 'view posts' to see your post!";
{&dofooter;}

open (guest, ">>book.file") || die "Cannot open file: $!\n";
flock(guest,2);
print guest "$entryline";
unlock(guest);
close (guest);

# {&dopost;} Not working!

##view the entrys! ##########################################################################
} elsif ($action eq "viewentrys"){
$titleaction="Viewing Entrys";
open (FILE, "book.file") || die "Cannot open file: $!\n";
@entrys = ;
close (file);

@entrys = reverse(@entrys);

{&doheader}{&domenu;}

open(counter, "counter.file") || die "Cannot open file: $!\n";
$counter=;
close(counter);
# print "Total Posts $counter"; not working!

foreach $linez(@entrys) {
$finalentry=$customstyle;
chomp($linez);
@linea = split(/\|/, $linez);

$finalentry =~ s//$linea[0]/ig;
$finalentry =~ s//$linea[2]/ig;
$finalentry =~ s//$linea[4]/ig;
$finalentry =~ s//$linea[3]/ig;
$finalentry =~ s//$linea[5]/ig;
$finalentry =~ s//$linea[1]/ig;
#print the data!
print qq|
$finalentry
|;

}
{&dofooter;}{&dohits;}
}

#subroutines
#header
sub doheader {
print qq|

$customhtmlstyles$pagename - $titleaction - Streamline Guestbook

|;
}

#footer
sub dofooter {
print qq|

#html menu
sub domenu {
print qq|

.:Post an entry :
View entrys:.

|;
}

sub dohits {
open(hits, "hits.file") || die "Cannot open file: $!\n";
$hits = ;
close(hits);
$hits++;
open(hits, ">hits.file") || die "Cannot open file: $!\n";
flock(hits,2);
print hits "$hits";
unlock(hits);
close(hits);
}

sub dopost {
open(count, "counter.file")|| die "Cannot open file: $!\n";
$count=;
close(count);

$count++;
#print "$count";

open(count, ">counter.file") || die "cannot open file: $!\n";
flock(count,2);
print count "$count";
unlock(count);
close(count);
}

Show me the code

tvakah — Sun, 06 Aug 2000 05:41:02 +0000

It might be useful if you posted the script

richjb — Sun, 06 Aug 2000 05:34:59 +0000

What Orpheus suggested is very useful. However, if the person goes to a new paragraph, it won't work. Example:

Quote:
This is par one.

This is par two.

Last I knew his code won't handle that right.

Try this if it doesn't:

$var =~ s/\n\r\n/<br><br>/sg;
$var =~ s/\n/<br>/sg;
$var =~ s/\r/<br>/sg;

(The above is similar to what the UBB uses.)

Richard

Laguna Loire — Sun, 06 Aug 2000 00:51:14 +0000

Ill try that, thanks.

Orpheus — Sat, 05 Aug 2000 23:47:21 +0000

I think I understand what your saying.

Do this BEFORE you print the guestbook data to the file.

$form{'message'} =~ s/\n//g;

replace $form{'message'} with whatever the field is.