Recover from microbel

2025-03-05 12:33:13 +01:00
commit f46dae2dea
10 changed files with 2349 additions and 0 deletions
--- a/navn.cgi
+++ b/navn.cgi
@@ -0,0 +1,48 @@
+#!/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>