#!/store/bin/perl -wT
#
# Et enkelt CGI-script som returnerer data du har gitt.
use strict;
use diagnostics;
use CGI_Lite;
my $cgi = new CGI_Lite; # En annen måte å lage et objekt på
$cgi->set_platform("Unix");
$cgi->add_mime_type("text/html");
my %form = $cgi->parse_form_data; # Hente inn data fra browser
$/ = undef; # Vi vil ha alt på en gang når vi leser fra en filehandle
my $page = <DATA>; # Leser fra __DATA__ nedenfor
foreach my $data_key (keys %form) {
# Bytte ut f.eks. $NAVN med $form{NAVN}
$page =~ s/\$$data_key/$form{$data_key}/gm;
}
$page =~ s/\$\w+/foo/gm;
print "Content-type: text/html\r\n\r\n";
print $page;
__DATA__
<HTML>
<HEAD><TITLE>CGI_Lite-test</TITLE></HEAD>
<BODY>
<H1>Hei, $NAVN</H1>
Du er $ALDER år gammel, har jeg hørt!
<HR>
<FORM METHOD="POST" ACTION="navn.cgi">
Navn: <INPUT TYPE="text" NAME="NAVN" VALUE="$NAVN"><BR>
Alder: <INPUT TYPE="text" NAME="ALDER" VALUE="$ALDER"><BR>
<INPUT TYPE="submit">
</FORM>
</BODY>
</HTML>