File: hello.cgi

package info (click to toggle)
libcgi-compile-perl 0.27-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 248 kB
  • sloc: perl: 372; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 325 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use CGI;
$COUNTER++;

BEGIN { $SIG{USR1} = 'IGNORE'; $SIG{TERM} = sub {"COMPILE TERM"} }

$SIG{USR1} = 'IGNORE';
$SIG{TERM} = sub {"RUN TERM"};

my $q = CGI->new;

chomp(my $greeting = <DATA>);

print $q->header, $greeting, scalar $q->param('name'), " counter=$COUNTER";

exit $q->param('exit_status') || 0;

__DATA__
Hello