#!/usr/bin/perl -w use strict; use CGI; my @months = qw(JAN FEB MAR APR MAJ JUN JUL AUG SEP OKT NOV DEC); my $name = CGI::url_param('name'); my $day = CGI::url_param('day'); my $month = CGI::url_param('month'); my $year = CGI::url_param('year'); my $img = $name ? qq|| : ''; my $days; foreach my $d (1..31) { my $select = $d == $day ? 'SELECTED' : ''; $days .= qq||; } my $months; foreach my $m (0..11) { my $t = $months[$m]; my $select = $t eq $month ? 'SELECTED' : ''; $months .= qq||; } my $years; foreach my $m (2001..2004) { my $select = $m == $year ? 'SELECTED' : ''; $years .= qq||; } my $HTML = <<"EOF"; Rundstyk

Tømmermænd

Skriv dit navn og vælg en dato til højre. Når du trykker på knappen bliver der lavet et kort, som du kan udskrive og give til den eller de personer du mødte til den fest, som du i virkeligheden nok aldrig skulle have været mødt op til.
Navn:
Dato:

$img
© 2003 Jesper Christensen, Inc.
EOF print "Content-type: text/html\n\n"; print $HTML;