use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/headfoot/inner_header.html", $this->{param}) or die "no skel /headfoot/inner_header.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");$this->out(Zen::PerlHandler->get("II248c6b5f76f837b6533900ba8a16bcf6->mnt_test")->do($this->{C}));$this->out("\n");if ( $C->{action_complete} ) {$this->out("	<div style=\"color: blue\">\n	Action complete\n	</div><br>\n");}$this->out("\n<div style=\"margin: 10px\" align=\"center\">\n\n<form method=POST action=\"$C->{SELF_URL_NO_QS}\">\n<input type=\"hidden\" name=\"ObjectID\" value=\"$C->{INPUT}{ObjectID}\">\n<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=100\%>\n<tr>\n	<td class=atkEditorLeft>Send TEST email to:</td>\n	<td class=atkEditorRight><input type=text name=email size=50></td>\n</tr>\n</table></td></tr>\n\n<tr>\n	<td class=atkEditorControl>\n	<input type=submit class=\"btn btn-primary\" name=do_it value=\"Send test email\">\n	</td>\n</tr>\n\n</table>\n</form>\n\n</div>\n\n");{my $G = (ref $this)->get("/headfoot/inner_footer.html", $this->{param}) or die "no skel /headfoot/inner_footer.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}