Memo Maker

Subject:

To:

From:

The body of the message.

  </thetextarea>
 </td>
</tr>
</table><br>
<input type="submit" value="Submit">
</form>
</body>
</html>

##</code><code>##

#!/usr/bin/perl -w

use strict;
use CGI;
use DBI;

my $query = CGI::new();
my $blank = $query->param("blank");
my $dbh = DBI->connect("DBI:mysql:news", "root", "");
my $sth = $dbh->prepare("select * from newspw");
$sth->execute();
print "Content-type: text/html\n\n";
# filled options
if (!$blank)
{
 
 while (my @data = $sth->fetchrow_array())
 {
  my $username=$data[1];
  # format name; optional, only here because I have usernames
  # stored as email addresses in the form: joe_ryan
  my ($username1)=$username; my ($username2)=$username;
  $username1 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$1/;
  $username2 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$3/;
  $username1 =~ tr/[a-z]/[A-Z]/;
  $username2 =~ tr/[a-z]/[A-Z]/;
  $username =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$username1$2 $username2$4/;
  print "<option>$username</option>\n";
 }
}
# for the blank options
else
{
 while (my @data = $sth->fetchrow_array())
 {
  print "<option></option>\n";
 }
}
$dbh = $dbh->disconnect();

##</code><code>##

#!/usr/bin/perl -w

use strict;
use CGI;

my $query = CGI::new();

my $subject = $query->param("subject");
my $text = $query->param("text");
my $body = $query->param("body");
my $from = $query->param("from");

print "Content-type: text/html\n\n";
print "<html><head><title>Memo</title>\n";
print "<style>span { page-break-after: always; }</style>\n";
print "<body bgcolor=\"#FFFFFF\">";

my @splittext = split (/\,/, $text);
for (my $i=0; $i<@splittext; $i++)
{  
  my $username=$splittext[$i];
  # format name; optional, only here because I have usernames
  # stored as email addresses in the form: joe_ryan
  my ($username1)=$username; my ($username2)=$username;
  $username1 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$1/;
  $username2 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$3/;
  $username1 =~ tr/[a-z]/[A-Z]/;
  $username2 =~ tr/[a-z]/[A-Z]/;
  $username =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$username1$2 $username2$4/;
  
  my $thetime = localtime;
  my @entry = split(' ', $thetime);
  my $thedate=$entry[1]." ".$entry[2]." ".$entry[4];
  print "<font size=\"+3\">";
  print "<b>Subject: $subject</b><br>\n";
  print "<b>To: $username</b><br>\n";
  print "<b>From: $from</b><br>\n";
  print "<b>Date: $thedate</b><br>\n";
  print "<br>\n$body\n<br>\n";
  print "<br>\n" x 2;
  print "</font><span></span>";
}
print "\n</body></html>";