49 lines
987 B
Perl
Executable File
49 lines
987 B
Perl
Executable File
#!/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>
|