BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
use My::Web;
use Apache::Constants qw(HTTP_NO_CONTENT);
-require "Mail::Send";
+require Mail::Send;
my $W=My::Web->init(
"__PACKAGE__"=>__PACKAGE__,
"header_only"=>1,
"args_check"=>{
- "msgscript"=>'.*', # If 'text/javascript' is supported.
- "msghtml"=>'.*', # No 'text/javascript' available.
+ "msgscript"=>'', # If 'text/javascript' is supported.
+ "msghtml"=>'', # No 'text/javascript' available.
},
);
my $msg=$W->{"args"}{"msghtml"} || $W->{"args"}{"msgscript"};