forum code

This pogram Copyright (C) 2001 under the GNU General Public License by Thomas A. Booth

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

Perl Script

File Name: /cgi-bin/SOURCE_script.pl

#!/usr/local/bin/perl
read(STDIN, $Timothy_Leary, $ENV{'CONTENT_LENGTH'});
@Vermin_Supreme = split(/&/, $Timothy_Leary);
foreach $Robert_Anton_Wilson (@Vermin_Supreme) {
 ($Aleister_Crowley, $Fritjof_Capra) = split(/=/, $Robert_Anton_Wilson);
 $Fritjof_Capra =~ tr/+/ /;
 $Fritjof_Capra =~ s/%(..)/pack("C", hex($1))/eg;
 $LUTHER_BURBANK{$Aleister_Crowley} = $Fritjof_Capra; }
%Robert_Monroe = ("postnew","New Projects","postongoing","Ongoing Projects","postactivist","Activist Projects");
open(MIVART,"/SOURCE_form.html");
@lines = <MIVART>;
close(MIVART);
open(MIVART,">/SOURCE_form.html");
foreach $line (@lines){ print MIVART $line;
 foreach $tag ( keys %Robert_Monroe) { if ( ($LUTHER_BURBANK{'section'} eq $Robert_Monroe{$tag})&& ($line =~ //) ) {
 print MIVART "\n";
 print MIVART "<hr>\n";
 print MIVART "<a href\=\"$LUTHER_BURBANK{'url'}\">$LUTHER_BURBANK{'title'}</a>\n";
 print MIVART "$LUTHER_BURBANK{'description'}\n";
 print MIVART "$LUTHER_BURBANK{'asitis'}\n";
 print MIVART " \n";
 print MIVART "\n"; } } }
close (MIVART);

print "Location: http://cgi.tripod.com/prc_projects/cgi-bin/SOURCE_form.html\n\n";

if (open (CARLOS_CASTANEDA,">>/SOURCE_record.html")){
 print CARLOS_CASTANEDA "\n";
 print CARLOS_CASTANEDA "<a href\=\"$LUTHER_BURBANK{'url'}\">$LUTHER_BURBANK{'title'}</a>\n";
 print CARLOS_CASTANEDA "$LUTHER_BURBANK{'description'}\n";
 print CARLOS_CASTANEDA "$LUTHER_BURBANK{'asitis'} \n";
 print CARLOS_CASTANEDA "<hr>\n";
 close(CARLOS_CASTANEDA); }

if (open (JERRY_GARCIA,">>/SOURCE_record_2.html")){
 print JERRY_GARCIA "\n";
 print JERRY_GARCIA "<table bgcolor\=\"\#333333\">\n";
 print JERRY_GARCIA "<tr><td bgcolor\=\"\#ffffff\">\n";
 print JERRY_GARCIA "\n";
 print JERRY_GARCIA "\ \;Trial \n";
 print JERRY_GARCIA "Board Post\ \;\n";
 print JERRY_GARCIA "<\/font><\/td><\/tr><\/table>\n";
 print JERRY_GARCIA "<a href\=\"$LUTHER_BURBANK{'url'}\">$LUTHER_BURBANK{'title'}</a>\n";
 print JERRY_GARCIA "$LUTHER_BURBANK{'description'}\n";
 print JERRY_GARCIA "$LUTHER_BURBANK{'asitis'} \n";
 print JERRY_GARCIA "<hr>\n";
 close(JERRY_GARCIA); }

Form Page

File Name: /cgi-bin/SOURCE_form.html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>SOURCE</title>
</head>
<body bgcolor="ffffff">
<center>
 <table border="2" bgcolor="#225533" cellpadding="5" width="97%">
<tr>
<td bgcolor="#ddffee" align="center">

SOURCE

</td></tr></table>
 
<a href="#post">POST!
</a> | <a href="#new">New</a> | <a href="#ongoing">
Ongoing</a> | <a href="#activist">Activist
</a> |
<a href="https://members.tripod.com/prc_projects/cgi-bin/categories.html">
MORE</a> </center>
 

<a name="new"> </a>

 
<center>
<table border="2" bgcolor="#229922" cellpadding="5" width="70%">
<tr><td bgcolor="#eeffee" align="center">
New Projects
 (Start Something People Need & Want)</td>
</tr></table>
</center>
 











<hr>
 
 
<a name="ongoing"> </a>
 
<center>
<table border="2" bgcolor="#aaaa11" cellpadding="5" width="70%">
<tr><td bgcolor="#ffffee" align="center">

Ongoing Projects
 (Continue Something People 
Do Want)</td>
</tr></table>
</center>
 







<hr>
 
 
<a name="activist"> </a>
 
<center>
<table border="2" bgcolor="#bb3333" cellpadding="5" width="70%">
<tr><td bgcolor="#ffeeee" align="center">

Activist Projects
 
(Stop Something People Don't
Want) </td></tr></table>
</center>
 










<hr>
 
<a name="post"> </a>
 
<center>



<form method=POST action="http://cgi.tripod.com/prc_projects/cgi-bin/SOURCE_script.pl">

<table border="2" width="90%" bgcolor="#666666" cellpadding="2">

<tr>
<td colspan="2" align="center" bgcolor="#999999">
QUICK TEXT POST
</td>
</tr>

<tr>
<td bgcolor="#666666">
Project Title:
</TD>

<TD bgcolor="#666666">
<input type=text name="title" size=45 maxlength="50">
</TD>
</TR>

<TR>
<TD bgcolor="#666666">
URL:
</TD>

<TD><input type=text name="url" size=45 value="http://" maxlength="100">
</TD>
</TR>
<TR>
<TD bgcolor="#666666">
TEXT:
</TD>
<td bgcolor="#666666">

<textarea name="description" rows="6" cols="40">

</textarea>

</TD>
</TR>

<tr>
<td bgcolor="#999999"> Section:
</td><td bgcolor="#999999">
<select name="section">

<option selected> New Projects
<option> Ongoing Projects
<option> Activist Projects

</select>
</td></tr>

<tr>
<td colspan="2" bgcolor="#666666" align="center">

<input type=submit value="POST IT!">
 <input type=reset value="ERASE">
</td></tr></table>
</form>



 
Use the ABOVE form to post one link and up to 100 words. Scroll down for HTML Posts.
 
 
Want to preview a post or check the HTML? Go <a href="https://members.tripod.com/~prc_projects/cgi-bin/TEST_form.html">HERE</a>
 
 
Tell others on the <a href="mailto:PRCenterProjects@yahoogroups.com">Mailing List</a> about your project. To subscribe send a blank e-mail to: <a href="mailto:PRCenterProjects-subscribe@ yahoogroups.com">PRCenterProjects-subscribe@ yahoogroups.com</a> Use the form BELOW for HTML with <table bgcolor="#bbdddd" cellpadding="1"><tr><td> background color <td></tr></table> Bold, Italic, colored text, a Logo or Image from the HTML Generator.

<a name="posthtml"> </a>
 
 



<form method=POST action="http://cgi.tripod.com/prc_projects/cgi-bin/SOURCE_script.pl">

<table border="2" width="90%" bgcolor="#666666" cellpadding="2">

<tr>
<td bgcolor="#999999" align="center" colspan="2">
HTML POST: Use with the
 <a href="https://members.tripod.com/~prc_projects/forms/html_generator.html">
HTML GENERATOR</a></td>
</tr>

<tr>
<td bgcolor="#666666">
HTML:</td>
<td bgcolor="#666666">

<textarea name="asitis" cols="40" rows="8">

</textarea>

</td>
</tr>

<tr>
<td bgcolor="#999999">
Section:
</td><td bgcolor="#999999">
<select name="section">

<option selected> New Projects
<option> Ongoing Projects
<option> Activist Projects

</select> 
To: <a href="https://members.tripod.com/~prc_projects/forms/html_generator.html">
HTML Generator</a>
</td>
</tr>
<tr><td align="center" bgcolor="#666666" colspan="2">

<input type=submit value="POST IT!"> <input type=reset value="ERASE">
</td></tr></table></form></center>



 
<center>
CATEGORIES

 <a href="https://members.tripod.com/~prc_projects/cgi-bin/AGRI_form.html">Agriculture & Gardening</a> | <a href="https://members.tripod.com/~prc_projects/cgi-bin/ENRG_form.html">Energy Related</a> | <a href="https://members.tripod.com/~prc_projects/cgi-bin/MISC_form.html">Miscellaneous</a> <a href="https://members.tripod.com/prc_projects/cgi-bin/categories.html">

ADD MORE CATEGORIES</a>
 

General Guidelines:
<a href="http://www.members.tripod.com/~prc_projects/text/guidelines.html">PLEASE READ</a>
 Bad Links? Bogus Project? Report it <a href="https://members.tripod.com/~prc_projects/cgi-bin/ADMIN_form.html">HERE</a>

 
My Contact Information:

 
 

People's Research
Center <a href="mailto:prcenter@tennessee.com">(Tom Booth)prcenter@tennessee.com</a>
 279 County Road 635 Athens, Tennessee 37303 Phone: (423) 263-1624 

 

<a href="http://validator.w3.org/check/referer"><img border="0" src="https://members.tripod.com/~prc_projects/LOGOS/W3C_validator_logo.gif" alt="Valid HTML 4.01!" height="31" width="88"></a>
 
 
<a href="http://validator.w3.org/check?uri=http%3A%2F%2Fmembers.tripod.com%2F%7Eprc_projects%2Fcgi-bin%2FSOURCE_form.html;doctype=HTML%204.01%20Transitional">

Validate HTML for This Page</a> 
Report errors to: <a href="mailto:thomas_a_booth@hotmail.com">thomas_a_booth@hotmail.com</a> Mention "SOURCE". Your help will keep these pages functioning. Thanks!

</center>
</body>
</html>