Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^15: RFC: Proposed tutorial - simple login script using CGI::Application

by scorpio17 (Canon)
on Jan 25, 2016 at 17:56 UTC ( [id://1153597] : note . print w/replies, xml ) Need Help??


in reply to Re^14: RFC: Proposed tutorial - simple login script using CGI::Application
in thread RFC: Proposed tutorial - simple login script using CGI::Application

You can't use a print statement in a runmode like this (better read the CGI::Application docs more carefully: see the "Important note about run mode methods" section. It says, "never print to stdout"!). Change your "print" statement to this:
my $output = "Testing after login success.\n";
Then make sure your myrunmode.html template looks something like this:
<html> <head> <title>VPage</title> </head> <body> <TMPL_IF OUTPUT><TMPL_VAR OUTPUT></TMPL_IF> </body> </html>

Note that the OUPUT variable in the template gets populated with the value of the $output variable in the runmode in the $template->param() statement.