41e
@verb #7407:"do_sendmail" this none this rxdo #7407
@program #7407:"do_sendmail" this none this
for x in (args)
  if (x[1] == "sender")
    sender = x[2]
  elseif (x[1] == "subj")
    subj = x[2]
  elseif (x[1] == "message")
    msg = x[2]
  endif
endfor
msg = {tostr("Connected from ", $string_utils:connection_hostname(connection_name(player)), " using ", player.user_agent, "."), @msg}
msg = {tostr("Sent by ", $su:nn(player), " (aka ", sender, ")"), "", @msg}
b = $mail_agent:send_message(player, {this}, subj, msg)
if (b[1])
  player:tell("The mail was sent and will be read as soon as possible. Thanks for caring! :) Click <A HREF=\"/7407\">here</A> to return to my main page.")
else
  player:tell("An error happened during the sending process, which was most likely not your fault. Please send mail to <A HREF=\"mailto:cecil@iaw.on.ca\">cecil@iaw.on.ca</A> and tell me about this.  I'll hopefully have it fixed ASAP. In the meantime you might want to return to my <A HREF=\"/7407\">main page</A>.")
endif
player:tell("<P>")
.

0