diff options
| author | Jan Pazdziora <jpazdziora@redhat.com> | 2014-01-07 22:18:28 -0500 |
|---|---|---|
| committer | Jan Pazdziora <jpazdziora@redhat.com> | 2014-01-08 12:55:11 +0800 |
| commit | 30be3f9accf36e363f9bd479f5527261ba44f0c5 (patch) | |
| tree | 2c340fd310d9ca1f786762efddac60dd9c6fd145 | |
| parent | 96b30869b9270fb7f82c5a8c5eb23b955aa23763 (diff) | |
| download | CGI-sessions-30be3f9accf36e363f9bd479f5527261ba44f0c5.tar.gz CGI-sessions-30be3f9accf36e363f9bd479f5527261ba44f0c5.tar.xz CGI-sessions-30be3f9accf36e363f9bd479f5527261ba44f0c5.zip | |
Some HTML content.
| -rwxr-xr-x | app.cgi | 23 |
1 files changed, 20 insertions, 3 deletions
@@ -2,9 +2,26 @@ use strict; use warnings FATAL => 'all'; +use CGI (); -print "Content-Type: text/plain\n"; -print "Pragma: no-cache\n\n"; +print "Content-Type: text/html; charset=UTF-8\n"; +print "Pragma: no-cache\n"; -print scalar(time), "\n"; +print <<"EOS"; + +<html> + <head> + <title>Application</title> + </head> + <body> + <h1>Application</h1> + <p> + This is a test application. + </p> + <hr/> + <pre>@{[ join "\n", map CGI::escapeHTML("$_=$ENV{$_}"), sort keys %ENV ]} + </pre> + </body> +</html> +EOS |