+my $tx;
+
+if ($ARGS{'create'}) {
+ my $date = `date --iso-8601=minutes`; chomp $date or die;
+ $tx = { desc => "Message created $date",
+ subject => "Away from my email",
+ textid => "new",
+ text => "" };
+} else {
+ my $sth = $dbh->prepare("SELECT * FROM texts WHERE textid=?");
+ $sth->execute($textid);
+ $tx = $sth->fetchrow_hashref();#
+}
+
+my $usedq = $dbh->prepare("SELECT * FROM addresses ORDER BY emailaddr");
+$usedq->execute();