#!/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 "Memo\n";
print "\n";
print "";
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 "";
print "Subject: $subject
\n";
print "To: $username
\n";
print "From: $from
\n";
print "Date: $thedate
\n";
print "
\n$body\n
\n";
print "
\n" x 2;
print "";
}
print "\n";