$time = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
$mon++;
$year += 1900;

my $memo = "Original Message\n------------\n$INPUT{'memo'}";
my $memo_final = "$memo" . "\n\nCreated by: $username\nDate Created: $year-$mon-$mday\n\n";

use DBI;

	 my $dbh_m = DBI->connect('DBI:mysql:MEMO') or print "Couldn't connect to database: " . 		
		DBI->errstr;
DBI->trace(2);

my $sth_m = $dbh_m->prepare(<<SQL);
INSERT INTO memo (id, date, user, ref, creator, status, memo_text) values (?, ?, ?, ?, ?, ?, ?)
SQL

$sth_m->execute('?', '$year-$mon-$mday', '$INPUT{'user'}', 'INPUT{'ref'}', '$INPUT{'username'}', 'notread', '$memo_final');   #line 148
$sth_m->finish;
$dbh_m->disconnect; 
DBI->trace(0);

&header;
print <<EOF;
<B>Memo to $INPUT{'user'} successfully added.</b>
<br>
EOF
&footer;