oldnewbie!

coldfused · Jun 19, 2001

ok man have a look..you said do this:

Change your 5th line(in red)with the green one:

<body background="

http://www.promaintenance4u.com/11.jpg";

bgcolor="#00A0A8" text="#000000" link="#0000FF" vlink="#FF0000" marginwidth="0" marginheight="0" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<body bgcolor="#00A0A8" text="#000000" link="#0000FF" vlink="#FF0000" marginwidth="0" marginheight="0" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">

...

Change your 7th line(in red)with the green one:

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">

<table width="88.5%" border="0" cellspacing="0" cellpadding="0" height="98.2%">

where do you see that in this?

# PATH INFO

if ($0=~m#^(.*)(\\|/)#) { $dir = $1; }
else { $dir = `pwd`; chomp $dir; }

$script_url = $ENV{'SCRIPT_NAME'};
$data_dir = "$dir/data";
$guest_dat = "$data_dir/guest.dat";
$info_dat = "$data_dir/info.dat";
$header_file = "$data_dir/header.html";
$footer_file = "$data_dir/footer.html";
$admin_mail_file = "$data_dir/adminmail.txt";
$guest_mail_file = "$data_dir/guestmail.txt";
$hits_dat = "$data_dir/hits.dat";
$ip_dat = "$data_dir/ip.dat";
$dirty_dat = "$data_dir/dirty.dat";
$emails_dat = "$data_dir/emails.dat";

%in = &ReadForm;

&load_data;

&hits;

#########################################################
# ADD ENTRY

if($action eq "add&quot

{

if ($ip_banned_filter eq "1&quot

{

open (BANNED_IP, "<$ip_dat&quot

;
@banned_ip = split /\s+/, <BANNED_IP>;
close(BANNED_IP);

foreach $ip (@banned_ip) {
if ($ip eq $ENV{'REMOTE_ADDR'}) {
&banned_ip_error;
}
}

}

if (!$guest_name_new && $req_name) {
$error = "Name";
&required_error;
}
if (!$guest_email_new && $req_email) {
$error = "Email";
&required_error;
}
if (!$guest_url_new && $req_url) {
$error = "Homepage";
&required_error;
}
if (!$guest_message_new && $req_message) {
$error = "Message";
&required_error;
}

if ($guest_name_new =~ /(\b\w{40,}\b)/) {
&long_word_error;
}

if ($guest_message_new =~ /(\b\w{40,}\b)/) {
&long_word_error;
}

if ($words_dirty_filter eq "1&quot

{

open (DIRTY_DAT, "<$dirty_dat&quot

;
@dirty_words = split /\s+/, <DIRTY_DAT>;
close(DIRTY_DAT);

foreach $dwords (@dirty_words) {
$guest_name_new =~ s/$dwords/****/ig;
$guest_message_new =~ s/$dwords/****/ig;
}

}

if ($html_filter eq "1&quot

{

$guest_message_new =~ s/</</g;
$guest_message_new =~ s/>/>/g;
$guest_message_new =~ s//&60;p>/ig;
$guest_message_new =~ s/ /&60;br>/ig;
$guest_message_new =~ s/<([^>]|\n)*>//g;
$guest_message_new =~ s/&60;p>//ig;
$guest_message_new =~ s/&60;br>/ /ig;

}

if ($fresh_filter eq "0&quot

{

$guest_message_new =~ s/\

/<img src="$smilies_url\/biggrin.gif">/sg;
$guest_message_new =~ s/\

/<img src="$smilies_url\/confused.gif">/sg;
$guest_message_new =~ s/\

/<img src="$smilies_url\/cool.gif">/sg;
$guest_message_new =~ s/\

/<img src="$smilies_url\/eek.gif">/sg;
$guest_message_new =~ s/\

:/<img src="$smilies_url\/redface.gif">/sg;
$guest_message_new =~ s/\:\(/<img src="$smilies_url\/frown.gif">/sg;
$guest_message_new =~ s/\

/<img src="$smilies_url\/mad.gif">/sg;
$guest_message_new =~ s/\

/<img src="$smilies_url\/rolleyes.gif">/sg;
$guest_message_new =~ s/\:\)/<img src="$smilies_url\/smile.gif">/sg;
$guest_message_new =~ s/\

/<img src="$smilies_url\/tongue.gif">/sg;
$guest_message_new =~ s/\;\)/<img src="$smilies_url\/wink.gif">/sg;

}

if ($guest_email_new) {
$temp = $guest_email_new;
$temp =~ s/-/a/g;
$temp =~ s/_/a/g;
unless ($temp =~ /\w+@\w+\.\w\w+/) {
&format_error;
}

open(EMAILS,">>$emails_dat&quot

;
print EMAILS "$guest_email_new\n";
close(EMAILS);

}

if ($guest_url_new && $req_url) {
unless ($guest_url_new =~ /^(f|ht)tp:\/\/.+\..+/) {
&format_error;
}
}
elsif($guest_url_new ne "

http://")

{
unless ($guest_url_new =~ /^(f|ht)tp:\/\/.+\..+/) {
&format_error;
}
}
else {$guest_url_new = "";}

&sub_date;

open(GUEST_DAT,"<$guest_dat&quot

;
flock(GUEST_DAT, $LOCK_EX);
@guest_content = <GUEST_DAT>;
flock(GUEST_DAT, $LOCK_UN);
close(GUEST_DAT);

$content = @guest_content[0];
($ID,$guest_date,$guest_name,$guest_email,$guest_url,$guest_
message,$ip,$browser) = split(/\|/,$content);

$new_ID = $ID +1;

open(GUEST_DAT,">$guest_dat&quot

;
flock(GUEST_DAT, $LOCK_EX);
print GUEST_DAT "$new_ID|$date|$guest_name_new|$guest_email_new|$g
uest_url_new|$guest_message_new|$ENV{'REMOTE_ADDR'}|$ENV{'HTTP_USER_AGENT'}\n";
foreach $line (@guest_content) {
print GUEST_DAT $line;
}
flock(GUEST_DAT, $LOCK_UN);
close(GUEST_DAT);

if ($guest_mail eq "1" && $guest_email_new) {

open(GUEST_MAIL_TEXT,"$guest_mail_file&quot

;
@guest_text = <GUEST_MAIL_TEXT>;
close(GUEST_MAIL_TEXT);

open(MAIL,"|$sendemail -t&quot

;
print MAIL "To: $guest_email_new\n";
print MAIL "From: $home_addr\n";
print MAIL "Subject: $guest_mail_subject\n";
foreach $line (@guest_text) {
print MAIL "$line\n";
}
close MAIL;

}

if ($home_mail eq "1" && $home_addr) {

open(HOME_MAIL_TEXT,"$admin_mail_file&quot

;
@home_text = <HOME_MAIL_TEXT>;
close(HOME_MAIL_TEXT);

open(MAIL,"|$sendemail -t&quot

;
print MAIL "To: $home_addr\n";
print MAIL "From: $guest_email_new\n";
print MAIL "Subject: $admin_mail_subject\n";
foreach $line (@home_text) {
print MAIL "$line\n";
}
close MAIL;

}

if($forward_guest eq "1&quot

{
print "Location: $forward_url\n\n";
}

}

#########################################################
# GUESTBOOK CONTENT

&Template("$data_dir/plain.temp&quot

;

open(GUEST_DAT,"<$guest_dat&quot

;
flock (GUEST_DAT, $LOCK_SH);
@guest_dat_content = <GUEST_DAT>;
flock (GUEST_DAT, $LOCK_UN);
close(GUEST_DAT);

foreach$content(@guest_dat_content) {
($ID,$guest_date,$guest_name,$guest_email,$guest_url,$guest_
message,$ip,$browser) = split(/\|/,$content);
$push = "$ID\|$guest_date\|$guest_name\|$guest_email\|$guest_url\|
$guest_message|$ip|$browser\n";
push(@guest_dat,$push);
$total++;
}

open(HEADER,"<$header_file&quot

;
@header = <HEADER>;
close(HEADER);

foreach $line19(@header) {
$header = $header.$line19;
}

open(FOOTER,"<$footer_file&quot

;
@footer = <FOOTER>;
close(FOOTER);

foreach $line20(@footer) {
$footer = $footer.$line20;
}

#########################################################
# GUESTBOOK ADD ENTRY PAGE

if($guest eq "add&quot

{

if ($html_filter eq "1&quot

{$filter_html = "not allowed";}
else {$filter_html = "allowed";}
if ($fresh_filter eq "1&quot

{$filter_fresh = "not allowed";}
else {$filter_fresh = "allowed";}

unless (!$req_name) {$required_name = "*";}
unless (!$req_email) {$required_email = "*";}
unless (!$req_url) {$required_url = "*";}
unless (!$req_message) {$required_message = "*";}

$display_add_entry .= &Cell('add_entry');

}

#########################################################
# GENERATE GUESTBOOK

$show_max = $guest_per_page;
$fcolor_show=1;

if($guest eq "&quot

{

for($guest_content = $show; $guest_content < scalar @guest_dat

{
($ID,$guest_date,$guest_name,$guest_email,$guest_url,$guest_
message,$ip,$browser) = split(/\|/,$guest_dat[$guest_content]);

unless (!$guest_email) {
$guest_email = "<tr><td>[<a href=\"mailto:$guest_email\">Email</a>]</td></tr>";
}

unless (!$guest_url) {
$guest_url = "<tr><td>[<a href=\"$guest_url\">Homepage</a>]</td></tr>";
}

if ($fcolor_show eq '1') {$fcolor=$fcolor1; $fcolor_show++;}
elsif ($fcolor_show eq '2') {$fcolor=$fcolor2; $fcolor_show++;}
elsif ($fcolor_show eq '3') {$fcolor=$fcolor3; $fcolor_show++;}
elsif ($fcolor_show eq '4') {$fcolor=$fcolor4; $fcolor_show=1;}
if($ID ne "&quot

{
$display_content .= &Cell('guest_content');
}
$guest_content++;
last if $guest_content-$show == $show_max;
}
$show_next = $show+$show_max;
$show_from = $total - $show_next;
$show_to = $show_from + $show_max;
$show_from = $show_from + 1;
if ($show_from <= 0) {$show_from = 1;}

if($guest_content > $show_max || $guest_content < @guest_dat) {

if($guest_content > $show_max) {
$show_back = $show-$show_max;
$back_span = "<a href=\"$script_url\?show=$show_back\">Back</a>";
}

if($guest_content < @guest_dat && $guest_content-$show == $show_max) {
$show_next = $show+$show_max;
$next_span = "<a href=\"$script_url\?show=$show_next\">Next</a>";
}

if ($back_span && $next_span) {
$display_span .= &Cell("show_span&quot

;
$display_back_span .= &Cell("show_back_span&quot

;
$display_next_span .= &Cell("show_next_span&quot

;
}

elsif ($back_span) {
$display_span .= &Cell("show_span&quot

;
$display_back_span .= &Cell("show_back_span&quot

;
}

elsif ($next_span) {
$display_span .= &Cell("show_span&quot

;
$display_next_span .= &Cell("show_next_span&quot

;
}

}

if(!$display_content) { $display_content = "<tr><td><center> There are currently no entries in my Guestbook.Please be the first to contribute.</center></td></tr>" };

}

print &Template("$data_dir/plain.temp",'temp');

exit;

sub load_data {

open(INFO,"<$info_dat&quot

;
@info = <INFO>;
close(INFO);

$content_info = @info[0];
($guestbook_name,$guest_per_page,$guest_mail,$guest_mail_sub
ject,$home_mail,$admin_mail_subject,$home_addr,$sendemail,$d
atetype,$admin_pass,$fcolor1,$fcolor2,$fcolor3,$fcolor4,$hco
lor,$mcolor,$scolor,$bcolor,$bgcolor,$bgpic,$tcolor,$lcolor,
$vcolor,$font,$fontsize1,$fontsize2,$fontsize3,$fontsize4,$f
ontsize5,$table,$bordersize,$home_url,$admin_cgi,$guest_cgi,$smilies_html,$smilies_url,$data_path,$script_path,$req_name
,$req_email,$req_url,$req_message,$ip_banned_filter,$words_d
irty_filter,$html_filter,$fresh_filter,$forward_guest,$forwa
rd_url) = split(/\|/,$content_info);

}

sub hits {

open(HITSFILE, "+<$hits_dat&quot

;
flock(HITSFILE, $LOCK_EX);

$hits = <HITSFILE>;

seek HITSFILE, 0, 0;
print HITSFILE ++$hits."\n";
truncate HITSFILE, tell( HITSFILE );

flock(HITSFILE, $LOCK_UN);
close(HITSFILE);

}

sub banned_ip_error {

&Template("$data_dir/plain.temp",'temp');
$display_banned_ip .= &Cell('banned_ip');
print &Template("$data_dir/plain.temp",'temp');
exit;
}

sub required_error {

&Template("$data_dir/plain.temp",'temp');
$display_required_fields .= &Cell('required_fields');
print &Template("$data_dir/plain.temp",'temp');
exit;
}

sub format_error {
&Template("$data_dir/plain.temp",'temp');
$display_format_words .= &Cell('format_words');
print &Template("$data_dir/plain.temp",'temp');
exit;
}

sub long_word_error {
&Template("$data_dir/plain.temp",'temp');
$display_too_long .= &Cell('long_words');
print &Template("$data_dir/plain.temp",'temp');
exit;
}

sub sub_date {

@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday'
,'Saturday');
@months = ('January','February','March','April','May','June','July','August','September','October','November','December');

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);

$mon_num = $mon+1;
$savehour = $hour;
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$sec = "0$sec" if ($sec < 10);
$saveyear = ($year % 100);
$year = 1900 + $year;

if ($datetype == 1) {
$mon_num = "0$mon_num" if ($mon_num < 10);
$mday = "0$mday" if ($mday < 10);
$saveyear = "200$saveyear" if ($saveyear < 10);
$date = "$mon_num/$mday/$saveyear";
} elsif ($datetype == 2) {
$mon_num = "0$mon_num" if ($mon_num < 10);
$mday = "0$mday" if ($mday < 10);
$saveyear = "200$saveyear" if ($saveyear < 10);
$date = "$mday\.$mon_num\.$saveyear";
} elsif ($datetype == 3) {
$mon_num = "0$mon_num" if ($mon_num < 10);
$mday = "0$mday" if ($mday < 10);
$saveyear = "200$saveyear" if ($saveyear < 10);
$date = "$mon_num/$mday/$saveyear-$hour\:$min";
} elsif ($datetype == 4) {
$mon_num = "0$mon_num" if ($mon_num < 10);
$mday = "0$mday" if ($mday < 10);
$saveyear = "200$saveyear" if ($saveyear < 10);
$date = "$mday\.$mon_num\.$saveyear-$hour\:$min";
}

}

#########################################################
# TEMPLATE

sub Template {

local(*FILE);

if ($_[1] eq 'temp') { print "Content-type: text/html\n\n" unless ($ContentType++ > 0); }
elsif ($_[1] eq 'text') { print "Content-type: text/plain\n\n" unless ($ContentType++ > 0); }

if (!$_[0]) { return " \nTemplate : No file was specified \n"; }
elsif (!-e "$_[0]&quot

{ return " \nTemplate : File '$_
[0]' does not exist \n"; }
else {
open(FILE, "<$_[0]&quot

|| return " \nTemplate : Could open
$_[0] \n";
while (<FILE>) { $FILE .= $_; }
close(FILE);
for ($FILE) {
s//\1/gi; # show hidden inserts
s/(?:\r\n|\n)?(.*?)/
$CELL{$1}=$2;''/ges; # read/remove template cells
s/\%(\w+)\%/${$1}/g; # translate %%
}
}
return $FILE;

}

#########################################################
# TRANSLATE CELL

sub Cell {

my($CELL);
for (0..$#_) { if ($_[$_]) { $CELL .= $CELL{$_[$_]}; }}

if (!$_[0]) { return " \nCell : No cell was specified \n"; }
elsif (!$CELL) { return " \nCell : Cell '$_[0]' is not
defined \n"; }
else { $CELL =~ s/\%(\w+)\%/${$1}/g; } # translate %%

return $CELL;

}

#########################################################
# PARSE FORM

sub ReadForm {

my($max) = $_[1]; # Max Input Size
my($name,$value,$pair,@pairs,$buffer,%hash); # localize variables

# Check input size if max input size is defined
if ($max && ($ENV{'CONTENT_LENGTH'}||length $ENV{'QUERY_STRING'}) > $max) {
die("ReadForm : Input exceeds max input limit of $max bytes\n&quot

;
}

# Read GET or POST form into $buffer
if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
if ($ENV{'QUERY_STRING'}) { $buffer .= $ENV{'QUERY_STRING'}; }

@pairs = split(/&/, $buffer); # Split into name/value pairs
foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair); # split into $name and $value
$value =~ s/\+/ /g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$value =~ s/\n/ /sg;
$value =~ s/\[\]//g;
$value =~ tr/+/ /; # replace "+" with " "
$value =~ s/%([A-F0-9]{2})/pack("C", hex($1))/egi; # replace %hex with char
$$name = $value;
}

return %hash;

}

carlsatterwhite@endangeredgraphics.com

coldfused · Jun 19, 2001

i found what you meant..if you right click on the guestbook/view source it brings up the script that you were talking about..that file i'm guessing is called guest.html..unfortunatly there is no guest.html file in that cgi-script..so it has to be called something else?makes no sense!the above script is the guest.cgi.there is a file in the data folder of that script that is called the index.html..which i'm guessing is the file that is calling the guest.html..but when i click on that file it tells me that i don't have permission to view that file?is that index.html the file that i need to make the changes to?if so i will just change them and replace!but i can't view it to tell!

carlsatterwhite@endangeredgraphics.com

coldfused · Jun 19, 2001

Can't post, from this morning, with Oldnewbie's handle. Management has put me on hold! For whatever good reason...

My answer was concerning your other message board software, not this new one.
You did mention something about reading about loading images... But from what I've seen on the Discus site, I think they were talking about pictures in posts (as your E graphics gif here) and not as a background for their forum form. Unless you can point me to such an info on the Discus site, guess you'll have to try their support forum to try to get an answer on that!

You did manage to get the leftframe ok with NS, didn't you!

;-)

coldfused · Jun 19, 2001

yeh i know..i'm keeping the guestbook cgi as the actual guest book now(imagine that)..take a look at the site in netscape and goto the guestbook button..when you try to sign the guest book it pulls up the sign in form..see how it disrupts the background image inside the form?

carlsatterwhite@endangeredgraphics.com

coldfused · Jun 19, 2001

Was talkin' about the crazy formating of this thread here!

So you've now moved the old message board sofware to be used with the guest book? Is that it?
My testing was done using guest.cgi and was working with IE only at that point. Just wanted to see if you could manage it with IE, before I started workin' on NS.

NS does have a mind of it's own!

;-)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

oldnewbie!

coldfused

Technical User

coldfused

Technical User

coldfused

Technical User

coldfused

Technical User

coldfused

Technical User

Similar threads

Part and Inventory Search

Sponsor