Select Code to Download

Select or download this

---
db_host: localhost
db_database: poll
db_user: itpeople
db_pass: secret

Select or download this

--- #YAML:1.0
identifier: IT_Staff
...
  id: q01
- question: Please rate ...
  id: q02

Select or download this

#!/usr/bin/perl

...
        or die "$sql_create: $dbh->errstr\n";

exit;

Select or download this

#!/usr/bin/perl

...
          or die "Failed to connect via DBI:$!\n";
  return $dbh;
}

Select or download this

#!/usr/bin/perl

...

$template->param( 'polls'     => $polls );
print $template->output;

Select or download this

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
...
<meta name="generator" content="Perl-Script using HTML::Template" />
<link rel="stylesheet" type="text/css" href="default.css" />
</head>

Select or download this

<TMPL_INCLUDE NAME="header.tmpl">
<body>
...
</div>
</body>
</html>

Select or download this

<TMPL_INCLUDE NAME="header.tmpl">
<body>
...
</TMPL_IF>
</body>
</html>

Select or download this

<TMPL_INCLUDE NAME="header.tmpl">
<body>
...
</TMPL_LOOP>
</body>
</html>