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 =~ /<!--$tag-->/) ) { 
     print MIVART "<!--POST-->\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 "<br>\n";
     print MIVART "<!--END POST-->\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 "<!--POST-->\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'}<br>\n";
    print CARLOS_CASTANEDA "<hr><!--END-->\n";
    close(CARLOS_CASTANEDA); }


if (open (JERRY_GARCIA,">>/SOURCE_record_2.html")){
    print JERRY_GARCIA "<!--POST-->\n";
    print JERRY_GARCIA "<table bgcolor\=\"\#333333\">\n";
    print JERRY_GARCIA "<tr><td bgcolor\=\"\#ffffff\">\n";
    print JERRY_GARCIA "<font size\=\"\-1\"\n";
    print JERRY_GARCIA " color\=\"\#000000\">\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'}<br>\n";
    print JERRY_GARCIA "<hr><!--END-->\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>
<br><table border="2" bgcolor="#225533" cellpadding="5" width="97%">
<tr>
<td bgcolor="#ddffee" align="center">
<font size="+3" color="#225533">
<b><u>SOURCE</u>


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


<a name="new"> </a><!--vvv NEW PROJECT header vvv-->


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


<!--^ ^ ^ Do Not Edit Above This Line ^ ^ ^ ^-->
<!--^ ^ ^ Do Not Edit Above This Line ^ ^ ^ ^-->
<!--^ ^ ^ Do Not Edit Above This Line ^ ^ ^ ^-->


<!-- DO NOT EDIT THIS LINE --><!--postnew-->







<!--v v v v v DO NOT EDIT BELOW v v v v v v-->
<!--v v v v v DO NOT EDIT BELOW v v v v v v-->
<!--v v v v v DO NOT EDIT BELOW v v v v v v-->


<hr>
<br>
<br>
<a name="ongoing"> </a>
<br><br>
<center>
<table border="2" bgcolor="#aaaa11" cellpadding="5" width="70%">
<tr><td bgcolor="#ffffee" align="center">
<font size="+2" color="#aaaa11">
<u>Ongoing Projects</u>
</font><br>(Continue Something People <u>
<b>Do</b></u> Want)</td>
</tr></table>
</center>
<br><br>


<!--^ ^ ^ ^ ^ ^ ^ DO NOT EDIT ABOVE ^ ^ ^ ^ ^ ^-->
<!-- DO NOT EDIT THIS LINE --><!--postongoing-->




<!--v v v v v v DO NOT EDIT BELOW v v v v v v v-->
<!--v v v v v v DO NOT EDIT BELOW v v v v v v v-->
<!--v v v v v v DO NOT EDIT BELOW v v v v v v v-->
<hr>
<br>
<br>
<a name="activist"> </a><!-- ACTIVIST HEADER -->
<br><br>
<center>
<table border="2" bgcolor="#bb3333" cellpadding="5" width="70%">
<tr><td bgcolor="#ffeeee" align="center">
<font size="+2" color="#bb3333">
<u>Activist Projects</u>
</font><br>
(Stop Something People <u><b>Don't</b></u>
Want) </td></tr></table>
</center>
<br><br>


<!--^ ^ ^ ^ ^ ^ DO NOT EDIT ABOVE ^ ^ ^ ^ ^ ^-->
<!-- DO NOT EDIT THIS LINE --><!--postactivist-->








<!--VVVVVV DO NOT EDIT BELOW THIS LINE VVVVVV-->
<!--VVVVVV DO NOT EDIT BELOW THIS LINE VVVVVV-->
<!--VVVVVV DO NOT EDIT BELOW THIS LINE VVVVVV-->


<!-- vv FORM vv FORM vv FORM vv FORM vv -->


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


<!-- TEXT ONLY QUICK POST FORM -->


<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">
<font color="#ffffff"><b>QUICK TEXT POST</B></font>
</td>
</tr>


<tr>
<td bgcolor="#666666">
<font color="#ffffff"><b>Project Title:</B></font>
</TD>


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


<TR>
<TD bgcolor="#666666">
<font color="#ffffff"><b>URL:</B></font>
</TD>


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


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

</textarea>


</TD>
</TR>

<tr>
<td bgcolor="#999999"> <b><font color="#ffffff">Section:</font></b>
</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>



<!-- END TEXT ONLY QUICK POST FORM -->


<br><br>
Use the <i>ABOVE</i> form to post one link and up to 100 words. Scroll down for HTML Posts.
<br>
<br>
Want to preview a post or check the HTML? Go <a href="http://members.tripod.com/~prc_projects/cgi-bin/TEST_form.html">HERE</a>
<br>
<br>
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> <br><br> Use the form <i>BELOW</i> for HTML with<br><table bgcolor="#bbdddd" cellpadding="1"><tr><td>      background color    <td></tr></table> <b>Bold</b>, <i>Italic</i>, <font color="red">co</font><font color="orange">lo</font><font color="yellow">re</font><font color="green">d t</font><font color="blue">ex</font><font color="violet">t,</font> a Logo or Image from the <b>HTML Generator</b>.


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

<!-- HTML FORM -->


<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">
<font color="#eeeeee"><b>HTML POST: Use with the</b>
</font> <a href="http://members.tripod.com/~prc_projects/forms/html_generator.html">
<b>HTML GENERATOR</b></a></td>
</tr>


<tr>
<td bgcolor="#666666">
<font color="#ffffff"><b>HTML:</b></font></td>
<td bgcolor="#666666">



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


</textarea>


</td>
</tr>


<tr>
<td bgcolor="#999999">
<font color="#ffffff"><b>Section:</B></font>
</td><td bgcolor="#999999">
<select name="section">


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


</select>  <font color="#ffffff">
<b>To:</b></font> <a href="http://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>



<!-- END HTML FORM -->



<br><br>
<center><font size="+1" color="#663344">
<b><u>CATEGORIES</u></b></font>


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

<b>ADD MORE CATEGORIES</b></font></a>
<br><br><br>




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


<br><br><br>
My Contact Information:

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



<br><br>




<a href="http://validator.w3.org/check/referer"><img border="0" src="http://members.tripod.com/~prc_projects/LOGOS/W3C_validator_logo.gif" alt="Valid HTML 4.01!" height="31" width="88"></a>
<br>
<br>
<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><br><br><font color="#665533">
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.<br><br>Thanks!</font>


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