Simple optional changes
You may make optional changes
| ################
# basic set up # ################ : : $max = 512; $wait = 3; $lexp = 15; |
| $max = 512; |
| $wait = 3; |
| $lexp = 15; |
Others in "basic set up" set few wording.
| $dname = "Guest";
$dttle = "Hello"; $dcmmt = "I just want to say hello."; |
| $chck = "delete / archive checked";
$aok = "All OK"; $aall = "Archive all"; $dall = "Delete all"; |
$erro0 to $erro5 set error messages when something went wrong. As far as you do not write something misleading, you can change them safely.
HTMLs
You can find and modify many HTMLs hidden in cgi. You may import them to homepage authoring soft, change them, open the page sources and copy and paste them back to cgi.
What start with $ such as $cgi are Perl variables. Do not change their spellings. If you want to change them, study perl first, otherwise the message board malfunctions. If you want to have a dollar mark inside perl, spell it \$ instead of $. (Price: $50 must be Price: \$50.) Also if you want to have @, write it \@. (So, your@mail.address must be your\@mail.address. Else perl returns an error.) And if you want \, it must be \\ instead.
First, how the message board itself looks
| ##########
# to bbs # ########## : : <HTML> <HEAD> <TITLE>DoubleMessageBoard</TITLE> </HEAD> <BODY BGCOLOR="lightgreen"> <CENTER><H1>DoubleMessageBoard</H1></CENTER> <FORM ACTION="$cgi" method="POST"> <TABLE> <TD ALIGN=right> Your Name:<BR>Email Address: </TD> <TD ALIGN=left> <INPUT TYPE="text" NAME="name" SIZE=30><BR> <INPUT TYPE="text" NAME="email" SIZE=30> </TD> </TABLE> Title: <INPUT TYPE="text" NAME="title" SIZE=40> <P> Comments: (If no message is sent, standard greeting is automatically registered.)<BR> <TEXTAREA NAME="comments" cols=80 rows=10 wrap="virtual"></TEXTAREA> <P> <INPUT TYPE=submit VALUE="OK/send"> <INPUT TYPE=reset VALUE="reset"> </FORM> |
Second, how the posted article is arranged
| ######################
# new message to bbs # ###################### : : ### new data ### : <hr> <b>$gname</b> <small>($posted)</small> <p><b>$data{'title'}</b> <p>$data{'comments'} |
You do not change the spelling of these variables. And they must be placed between $msg = <<"NEW_DATA"; and NEW_DATA. Of course, you respect HTML grammar if you want to make changes.
Third, how a daughterboard looks
| #######################
# daughterboard entry # ####################### : : <HTML> <HEAD> <TITLE>DaughterBoard</TITLE> </HEAD> <BODY BGCOLOR="lightpink"> <B>$data{'title'}</B> <P> $data{'comments'} </BODY> </HTML> |
Further, they must be placed between print DFL <<"HTML_DAUG"; and HTML_DAUG. And you respect HTML grammar if you want to modify the daughterboard.
And when a daughterboard is made, a link from motherboard is made to the daughterboard. This link can be also changed.
| #######################
# daughterboard entry # ####################### : : ### link to daughterboard ### $data{'comments'} .= "<p><a href='$time.html'><i>$cutoff more byte(s), click here!</i></a>"; |
Next, "thank you" message
| #####################
# thank you message # ##################### : : <HTML> <HEAD> <TITLE>Thank you :-)</TITLE> </HEAD> <BODY> <BR><H1> Dear $data{'name'}, </H1><H2> Your comments have been successfully added.<BR> Now, you will be back to the MessageBoard. </H2> </BODY> </HTML> |
The last, an archive page
| ##################
# edit data file # ################## : : ### archive page ### : : <HTML> <HEAD> <TITLE>Archives</TITLE> </HEAD> <BODY BGCOLOR="lightgreen"> <CENTER><H1>DoubleMessageBoard Archives</H1></CENTER> <A HREF="$html"><B>back to the message board top page.</B></A> |
And when an archive page is made, a link from motherboard is made to the archive page. This link can be also changed.
| ##################
# edit data file # ################## : : ### link to archives ### print LOCK "<!--arch-->\t<HR><A HREF='$arch'><B>... more articles, click here!</B></A>\n"; |
Yet still more, an addition, an error page
| #####################
# Error No1 message # ##################### : : <HTML> <HEAD> <TITLE>Error!</TITLE> </HEAD> <BODY> <P><B>Administrative Notice,</B><P> Your command has been averted: <BR>$_[0] <BR>$_[1] <BR>$_[2] <BR>$_[3] </BODY> </HTML> |
How the login page looks
| ################
# starts login # ################ : : <HTML> <HEAD> <TITLE>Webmaster Only!</TITLE> </HEAD> <BODY> <CENTER> <H1>This is the webmaster's administrative page.</H1> <H2>If you are here by mistake, <BR>DoubleMessageBoard is Here.</H2> <H1><A HREF="$html">PLEASE ENTER</A></H1> <BR>If you are here to hack the site, please don't. <P> <FORM ACTION="$cgi" method="POST"> <INPUT TYPE="hidden" NAME="from" VALUE="login"> Password: <INPUT TYPE="password" NAME="pswd"><BR> <INPUT TYPE="submit" NAME="submit" VALUE="OK / Login"> <INPUT TYPE="reset" VALUE="reset"> </FORM> </CENTER> </BODY> </HTML> |
The page from which you edit the board
| ##############
# admin page # ############## : : ### editor page head ### : : <HTML> <HEAD> <TITLE>Webmaster Only!</TITLE> </HEAD> <BODY> <CENTER><H1>DoubleMessageBoard</H1></CENTER> <B>Welcome to the webmaster's tool!</B> <FORM ACTION="$cgi" method="POST"> |
| :
: |
| <P>
$dataf <P> <INPUT TYPE="radio" NAME="$i" VALUE="X" checked> keep it on board<BR> <INPUT TYPE="radio" NAME="$i" VALUE="D"> DELETE<BR> <INPUT TYPE="radio" NAME="$i" VALUE="A"> move to Archive |
| :
: |
| <HR>
<INPUT TYPE="hidden" NAME="pswd" VALUE="$pswd"> <INPUT TYPE="hidden" NAME="from" VALUE="edit"> <INPUT TYPE="submit" NAME="submit" VALUE="$chck"> <INPUT TYPE="reset" VALUE="reset"> <INPUT TYPE="submit" NAME="submit" VALUE="$aok"> <INPUT TYPE="submit" NAME="submit" VALUE="$aall"> <INPUT TYPE="submit" NAME="submit" VALUE="$dall"> |
The middle block is for each article. You can change words keep it on board, DELETE and move to Archive but do not change others.
You do not want to change anything in the lower block except <HR> at the beginning.