Help for this page

Select Code to Download


  1. or download this
    print $cgi->start_td({valign=>'TOP'}), "Message:  ", $cgi->end_td,
      $cgi->start_td, $cgi->textarea({name=>'MESSAGE', wrap=>'SOFT', r
+ows=>24,
                                      cols=>80, tabindex=>3, -default=
+>"On $date, $from wrote:\n$message"}),
  2. or download this
    $replytxt = "On $date $from wrote $message";
print $cgi->start_td({valign=>'TOP'}), "Message:  ", $cgi->end_td,
      $cgi->start_td, $cgi->textarea({name=>'MESSAGE', wrap=>'SOFT', r
+ows=>24,
                                      cols=>80, tabindex=>3, -default=
+>$replytxt}),