#!/usr/bin/perl -w # # Yksinkertainen CGI-esimerkki # - kokeile lomake.html:n kanssa # Jukka Mäntylä # use CGI qw(:standard); # Otetaan CGI-kirjasto käyttöön. print header; # Lähetetään otsikkotiedot selaimelle print < Yksinkertain CGI-esimerkki HTML_ALKU # tästä pitäisi tehdä funktio :) print "

Lähettäjän nimi: ", param("lomake_lahettaja"), "

\n"; print "

Lähettäjän sähköposti: ", param("lomake_lahettaja"), "

\n"; print "

Katuosoite: ", param("katu"), "

\n"; print "

Postitoimipaikka: ", param("postit"), "

\n"; print "

Postinumero: ", param("postin"), "

\n"; print "

Puhelinnumero: ", param("puhnro"), "

\n"; print "

Sukupuoli: ", param("sukupuoli"), "

\n"; print "

Koulutus: ", param("ktaso"), "

\n"; print "

Katsomisaika: ", param("aika"), "

\n"; print "

Kommentit: ", param("komm"), "

\n"; print < HTML_LOPPU