3252l1.orig100664 1061 330 1052 6622130050 11076 0ustar mlrljeditCREATE TABLE ATFThreads ( id SMALLINT UNSIGNED AUTO_INCREMENT PRIMARY KEY, subject VARCHAR(255) NOT NULL, author VARCHAR(60) NOT NULL, email VARCHAR(60) NOT NULL, text TEXT NOT NULL, date DATETIME NOT NULL, UNIQUE(subject) ); CREATE TABLE ATFMessages ( id MEDIUMINT UNSIGNED AUTO_INCREMENT PRIMARY KEY, thread SMALLINT UNSIGNED NOT NULL, subject VARCHAR(60) NOT NULL DEFAULT "No subject", date DATETIME NOT NULL, author VARCHAR(60) NOT NULL DEFAULT "Mr. Nobody", email VARCHAR(60) NOT NULL DEFAULT "atf@lerner.co.il", text TEXT NOT NULL 3252l2.orig100664 1100 330 7410 6622130251 11074 0ustar amyljedit#!/usr/bin/perl -wT # This is add-thread-form.pl, which creates a form for add-thread.pl use strict; use diagnostics; use CGI; use CGI::Carp qw(fatalsToBrowser); use DBI; use lib qw(/home/reuven/www/cgi-bin); use ATFConstants; # Remove buffering $| = 1; # ------------------------------------------------------------ # Create an instance of CGI my $query = new CGI; # Send a MIME header print $query->header("text/html"); # Get the thread id, if it was set my $thread_id = $query->param("keywords") || 0; # ------------------------------------------------------------ # Connect to the database my $dbh = DBI->connect("DBI:mysql:$database:$server:$port",$username,$password); die "DBI error from connect:", $DBI::errstr unless $dbh; # ------------------------------------------------------------ # Create the form print $query->start_html(-title => "Add a new discussion thread", -bgcolor => "#FFFFFF"); print "

Add a new discussion thread

\n"; print "

This form allows you to add a new discussion thread. Enter "; print "a title, along with an introductory paragraph describing the "; print "thread's purpose. Then click on \"add thread\", which will create "; print "the thread.

\n\n"; print "
\n"; print "\n"; # Here is the form # ------------------------------------------------------------ # Thread title print "\n"; print "\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Let the person enter their name my $name = $query->cookie(-name => "name") || ""; print "\n"; print "\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Enter the e-mail address my $email = $query->cookie(-name => "email") || ""; print "\n"; print "\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Allow them to enter the message print "\n"; print "\n"; print "\n"; print "\n\n"; # Finish the table print "
Enter a short title
Your name
Your e-mail address
What is the thread's purpose? Enter introductory remarks:
\n"; # Produce a submit button print ''; # Finish the HTML print "
\n"; # ------------------------------------------------------------ # Menu bar print "

\n"; # Send the user to the thread list print "[View all threads]\n"; # Send the user to the search print "[Search]\n"; # Allow the user to create a new thread print "[Add a new thread]\n"; # Give a plug for the ATF home page print "[ATF home]\n"; print "

\n"; print $query->end_html; # ------------------------------------------------------------ # Menu bar print "

\n"; # Send the user to the thread list print "[View all threads]\n"; # Send the user to the search print "[Search]\n"; # Allow the user to create a new thread print "[Add a new thread]\n"; # Give a plug for the ATF home page print "[ATF home]\n"; print "

\n"; print $query->end_html; # Disconnect, even though it isn't really necessary $dbh->disconnect; 3252l3.orig100664 1100 330 10122 6622130260 11107 0ustar amyljedit#!/usr/bin/perl -wT # Time-stamp: <1998-10-19 20:54:46 reuven> # post-comment-form.pl, which creates a form for entering comments use strict; use diagnostics; use CGI; use CGI::Carp qw(fatalsToBrowser); use DBI; use lib qw(/home/reuven/www/cgi-bin); use ATFConstants; # Remove buffering $| = 1; # ------------------------------------------------------------ # Create an instance of CGI my $query = new CGI; # Send a MIME header print $query->header("text/html"); # Get the thread id, if it was set my $thread_id = $query->param("keywords") || 0; # ------------------------------------------------------------ # Connect to the database my $dbh = DBI->connect("DBI:mysql:$database:$server:$port",$username,$password); die "DBI error from connect:", $DBI::errstr unless $dbh; # ------------------------------------------------------------ # Create the form print $query->start_html(-title => "Post a new message", -bgcolor => "#FFFFFF"); print "

Post a new message

\n"; print "

Enter a new message in the ATF discussion board.

\n\n"; print "
\n"; print "\n"; # Here is the form # ------------------------------------------------------------ # Let the person enter their name my $name = $query->cookie(-name => "name") || ""; print "\n"; print "\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Enter the e-mail address my $email = $query->cookie(-name => "email") || ""; print "\n"; print "\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Enter the thread subject print "\n"; print "\n\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Enter the message subject print "\n"; print "\n"; print "\n"; print "\n\n"; # ------------------------------------------------------------ # Allow them to enter the message print "\n"; print "\n"; print "\n"; print "\n\n"; # Finish the table print "
Your name
Your e-mail address
Thread\n"; # Create the SQL query my $sql = "SELECT id,subject FROM ATFThreads ORDER BY subject"; # Send the query my $sth = $dbh->prepare($sql); die "DBI error with prepare:", $sth->errstr unless $sth; # Execute the query my $result = $sth->execute; die "DBI error with execute:", $sth->errstr unless $result; # If we received threads from the SELECT, print them out if ($sth->rows) { print "\n"; } # No threads defined? Uh-oh. else { print "

No threads defined; posting will fail.

\n"; print "

Please contact the system administrator.

\n"; } print "
Message subject
Your posting
\n"; # Produce a submit button print ''; # Finish the HTML print "
\n"; # ------------------------------------------------------------ # Menu bar print "

\n"; # Send the user to the thread list print "[View all threads]\n"; # Send the user to the search print "[Search]\n"; # Allow the user to create a new thread print "[Add a new thread]\n"; # Give a plug for the ATF home page print "[ATF home]\n"; print "

\n"; print $query->end_html; # Disconnect, even though it isn't really necessary $dbh->disconnect; 3252l4.orig100664 1100 330 7654 6622130301 11104 0ustar amyljedit#!/usr/bin/perl -wT # Time-stamp: <1998-10-19 20:54:41 reuven> # post-comment.pl, which takes HTML form values and inserts a message use strict; use diagnostics; use CGI; use CGI::Carp qw(fatalsToBrowser); use DBI; use lib qw(/home/reuven/www/cgi-bin); use ATFConstants; my %longname = ("name" => "Your name", "email" => "Your e-mail address", "thread" => "The thread to which the message belongs", "subject" => "A subject heading for the message", "text" => "The text of your message"); # Remove buffering $| = 1; # ------------------------------------------------------------ # Create an instance of CGI my $query = new CGI; # Get the realname and username, and stick them in cookies my $namecookie = $query->cookie(-name => "name", -value => $query->param("name"), -expires => "+1y"); my $emailcookie = $query->cookie(-name => "email", -value => $query->param("email"), -expires => "+1y"); # Send a MIME header, with the cookies print $query->header(-type => "text/html", -cookie => [$namecookie, $emailcookie]); # Connect to the database my $dbh = DBI->connect("DBI:mysql:$database:$server:$port",$username,$password); die $DBI::errstr unless $dbh; # ------------------------------------------------------------ # Grab the contents of the form, and add it to the database # Get the stuff we need my $name = $dbh->quote($query->param("name")); my $email = $dbh->quote($query->param("email")); my $thread_id = $dbh->quote($query->param("thread")); my $subject = $dbh->quote($query->param("subject")); my $text = $dbh->quote($query->param("text")); # Make sure that we get all information unless ($name and $email and $thread_id and $subject and $text) { print $query->start_html(-title => "Try again", -bgcolor => "#FFFFFF"); print "

Try again!

\n"; print "

We were missing some required information. Press "; print "the \"back\" button in your Web browser, and try again.

\n"; print "

To be specific, you forgot to give us:

\n"; print "\n"; print $query->end_html; exit; } # Perform some processing on $text: Remove HTML tags, # and insert paragraphs instead of blank lines $text =~ s/<.*?>//sg; $text =~ s/\r\n/\n/g; $text =~ s/\r/\n/g; $text =~ s|\n\n|

\n<\P>|gi; # ------------------------------------------------------------ # If we have received all of the necessary components, then # save them to the database my $sql = "INSERT INTO ATFMessages "; $sql .= " (thread, date, author, email, subject, text) "; $sql .= "VALUES "; $sql .= " ($thread_id,NOW(),$name,$email,$subject,$text)"; # Send the query my $sth = $dbh->prepare($sql); die "DBI error with prepare:", $sth->errstr unless $sth; # Execute the query my $result = $sth->execute; die "DBI error with execute:", $sth->errstr unless $result; print $query->start_html(-title => "Successfully added", -bgcolor => "#FFFFFF"); print "

Posting added

\n"; print "

Your posting has been added!

\n"; # ------------------------------------------------------------ # Menu bar print "

\n"; # Send the user to the posting form print "[View this thread]"; print "\n"; # Send the user to the posting form print "[Post a message]"; print "\n"; # Send the user to the thread list print "[View all threads]\n"; # Send the user to the search print "[Search]\n"; # Allow the user to create a new thread print "[Add a new thread]\n"; # Give a plug for the ATF home page print "[ATF home]\n"; print "

\n"; print $query->end_html; # Disconnect, even though it isn't really necessary $dbh->disconnect; 3252l5.orig100664 1100 330 6626 6622130321 11105 0ustar amyljedit#!/usr/bin/perl -wT # Time-stamp: <1998-10-20 00:07:27 reuven> # view-thread.pl, which allows people to view messages in a thread. use strict; use diagnostics; use CGI; use CGI::Carp qw(fatalsToBrowser); use DBI; use lib qw(/home/reuven/www/cgi-bin); use ATFConstants; # Remove buffering $| = 1; # ------------------------------------------------------------ # Create an instance of CGI my $query = new CGI; my $thread_id = $query->param("keywords"); # Send a MIME header print $query->header("text/html"); print $query->start_html(-title => "View a thread", -bgcolor => "#FFFFFF"); # ------------------------------------------------------------ # Connect to the database my $dbh = DBI->connect("DBI:mysql:$database:$server:$port",$username,$password); die "DBI error from connect: \"$DBI::errstr\"" unless $dbh; # ------------------------------------------------------------ # Get information about the thread my $sql = "SELECT author,email,subject,text FROM ATFThreads WHERE id = $thread_id"; my $author = ""; my $email = ""; my $subject = ""; my $text = ""; # Send the query my $sth = $dbh->prepare($sql); die "DBI error with prepare: \"$sth->errstr\"" unless $sth; # Execute the query my $result = $sth->execute; die "DBI error with execute: \"$sth->errstr\"" unless $result; # We should only have received a single row. Print it out. if ($sth->rows) { # Iterate through thread IDs and names while (my @row = $sth->fetchrow) { ($author, $email, $subject, $text) = @row; } } else { print "

Error retrieving thread information! Aborting.

\n"; exit; } print "

Thread: $subject

\n"; print "

$text

\n"; print "

-- $author

\n"; print "
\n"; # ------------------------------------------------------------ $sql = "SELECT id, DATE_FORMAT(date, \"%W, %d %b %Y\"), "; $sql .= "DATE_FORMAT(date, \"%h:%i %p\"), "; $sql .= "author, email, subject, text FROM ATFMessages "; $sql .= "WHERE thread = $thread_id ORDER BY date desc"; # Send the query $sth = $dbh->prepare($sql); die "DBI error with prepare: \"$sth->errstr\"" unless $sth; # Execute the query $sth->execute; die "DBI error with execute: \"$sth->errstr\"" unless $sth; # If we received threads from the SELECT, print them out if ($sth->rows) { # Iterate through thread IDs and names while (my @row = $sth->fetchrow) { my ($id, $date, $time, $author, $email, $subject, $text) = @row; print "$subject, "; print "by $author on $date at $time

\n"; print "
$text
\n\n"; } print "\n"; # Finish that database call $sth->finish; } else { print "

There are currently no messages here.

\n"; } # ------------------------------------------------------------ # Menu bar print "

\n"; # Send the user to the posting form print "[Post a message]"; print "\n"; # Send the user to the thread list print "[View all threads]\n"; # Send the user to the search print "[Search]\n"; # Allow the user to create a new thread print "[Add a new thread]\n"; # Give a plug for the ATF home page print "[ATF home]\n"; print "

\n"; # Disconnect from the database $dbh->disconnect;