2508l1.orig100664 1061 330 5121 6367432041 11115 0ustar mlrljedit#!/usr/bin/perl -w # show-postcard.pl use strict; use diagnostics; use CGI; # available from http://www.perl.com/CPAN/ use Mysql; # ------------------------------------------------------------ # Name some global variables my $sender_name = ""; my $sender_email = ""; my $recipient_name = ""; my $graphic_name = ""; my $postcard_text = ""; # Create an instance of CGI my $query = new CGI; # Send an appropriate MIME header print $query->header("text/html"); # Get the name to match from the query string my $id = $query->param("keywords"); # Check that the user entered a postcard ID if ($id == 0) { print $query->start_html(-title => "No ID given!"); print "

Sorry, but I can only retrieve postcards when an "; print "ID number is provided. Please enter one, and I will try "; print "to find a postcard matching that ID number.

\n"; print "\n"; print $query->end_html; exit; } # Connect via Unix sockets to the database on this server my $dbh = Mysql->connect("localhost", "test"); # Build up our SQL command my $command = ""; $command = "select postcards.sender_name,postcards.sender_email,"; $command .= "postcards.recipient_name,graphics.graphic_file,"; $command .= "postcards.postcard_text from postcards,graphics "; $command .= "where id_number = $id"; $command .= "and postcards.graphic_id = graphics.graphic_id"; # Uncomment for debugging # print "

SQL command: <"$command\"

\n"; # Send the query my $sth = $dbh->query($command); # Make sure that $sth returned reasonably die "Error with command \"$command\"" unless (defined $sth); # Report an error if no rows are returned if ($sth->numrows == 0) { print $query->start_html(-title => "Invalid ID!"); print "

Sorry, but the ID number you provided does not match "; print "any postcard in my database. Please try again, and I will try "; print "to find a postcard matching that ID number.

\n"; print "\n"; print $query->end_html; exit; } # ------------------------------------------------------------ # Iterate through the returned rows my @arr = (); while (@arr = $sth->fetchrow) { # Assign our variables to the returned row ($sender_name, $sender_email, $recipient_name, $graphic_name, $postcard_text) = @arr; } # ------------------------------------------------------------ # Begin the HTML output print $query->start_html(-title => "Postcard for $recipient_name"); print "\n"; print "

$postcard_text

\n"; print "

From $sender_name ($sender_email)

\n"; # End the HTML print $query->end_html; exit; 2508l2.orig100664 1061 330 4604 6367431764 11136 0ustar mlrljedit#!/usr/bin/perl -w # send-postcard.pl use strict; use diagnostics; use CGI; # available from http://www.perl.com/CPAN/ use Mysql; # This should match the mail program on your system. my $mailprog = '/usr/lib/sendmail'; # Create an instance of CGI my $query = new CGI; # Send an appropriate MIME header print $query->header("text/html"); # Grab values from some my $sender_name = $query->param("sender_name"); my $sender_email = $query->param("sender_email"); my $recipient_name = $query->param("recipient_name"); my $recipient_email = $query->param("recipient_email"); my $graphic_id = $query->param("graphic_id"); my $postcard_text = $query->param("postcard_text"); # Get the lowest digits from the time of day, which should serve # as a relatively unique ID number my $id_number = time & 0xFFFFF & $$; # Connect via Unix sockets to the database on this server my $dbh = Mysql->connect("localhost", "test"); # Build up our SQL command my $command = ""; $command = "insert into postcards "; $command .= " (id_number, sender_name, sender_email, recipient_name, "; $command .= " recipient_email, graphic_id, postcard_text) "; $command .= "values "; $command .= " ($id_number, \"$sender_name\", \"$sender_email\", "; $command .= " \"$recipient_name\", \"$recipient_email\", "; $command .= " \"$graphic_id\", \"$postcard_text\") "; # Uncomment for debugging # print "

SQL command: $command

\n"; # Send the query my $sth = $dbh->query($command); # Make sure that $sth returned reasonably die "Error with command <"$command<"" unless (defined $sth); # ------------------------------------------------------------ # Send a postcard notification via e-mail open (MAIL, "|$mailprog $recipient_email") || die "Can't open $mailprog!\n"; # Headers in the mail message print MAIL "From: $sender_email\n"; print MAIL "To: $recipient_email\n"; print MAIL "Reply-to: $sender_email ($sender_name)\n"; print MAIL "Subject: Postcard waiting for you\n\n"; # Body of the mail message print MAIL "A postcard from $sender_name ($sender_email) is waiting for you\n"; print MAIL "at the URL \n\n"; print MAIL "http://www.oursitename.com/cgi-bin/show-postcard.pl?$id_number\n"; close (MAIL); # ------------------------------------------------------------ # Begin the HTML output print $query->start_html(-title => "Thanks!"); print "

Thanks for sending a postcard!

\n"; # End the HTML print $query->end_html; exit; 2508l3.orig100664 1061 330 4231 6367432351 11124 0ustar mlrljedit#!/usr/bin/perl -w # postcard-form.pl, a program that prints out an HTML form # suitable for creating postcards. use strict; use diagnostics; use CGI; # available from http://www.perl.com/CPAN/ use Mysql; # Create an instance of CGI my $query = new CGI; # Send an appropriate MIME header print $query->header("text/html"); # Begin the HTML output print $query->start_html(-title => "Send a postcard!"); # Connect via Unix sockets to the database on this server my $dbh = Mysql->connect("localhost", "test"); # Build up our SQL command my $command = ""; $command = "select graphic_id,graphic_file from graphics"; # Uncomment for debugging # print "

SQL command: $command

\n"; # Send the query my $sth = $dbh->query($command); # Make sure that $sth returned reasonably die "Error with command \"$command\"" unless (defined $sth); # Iterate through the returned rows my @arr = (); # Print some HTML print '

Now you can send a Web-based postcard to your friends! '; print 'Enter the appropriate information, and e-mail will be sent '; print 'to your friends indicating where they can '; print 'pick up their postcard.

', "\n"; print '
', "\n"; print '

Your name:

'; print '

Your e-mail address:

'; print '

Recipient's name:

'; print '

Recipient's e-mail address:

'; print '

Name of the graphic to insert:

'; # Now get the graphics IDs from the database, and print them out while (@arr = $sth->fetchrow) { # Get the ID and filename my ($id, $name) = @arr; print "

$name

\n"; } print ''; print '

', "\n"; print '

', "\n"; print "
\n"; # End the HTML print $query->end_html; exit;