form.cgi



#!/usr/bin/perl -w

use CGI::FormBuilder;

my $build_path = '../build';

# TODO: check if protocol-agnostic URL works
my $webroot = 'http://bynu.biks.dk/feedback/';
my $req_path = $build_path . '/html/feedback/index.html';
my $ack_path = $build_path . '/html/feedback/tak/index.html';

my $webmaster = 'info@byvandring.nu';
#my $frontdesk = 'info@byvandring.nu';
my $frontdesk = 'siri@jones.dk';
my $helpdesk = 'siri@jones.dk';

# Set this to 1 for a separate confirmation page
my ($confirm) = 1;

# Built-in email validation is too simplistic
my $valid_email = '/^[+_A-Za-z0-9-]+(\.[+_A-Za-z0-9-]+)*@[A-Za-z0-9-]+(\.[A-Za-z0-9-]+)*(\.[_A-Za-z0-9-]+)$/';

my $form = CGI::FormBuilder->new(
    lang => 'da',
    title => 'Feedback til Byvandring.nu',
    method => 'POST',
    fields => [qw/
        kommentar
        postnr
        email
    /],
    validate => {
        postnr => INT,
        email => $valid_email,
        _email => $valid_email, #fake check to silence warning of variable used only once
    },
    required => [qw/
        kommentar
    /],
    messages => ':da_DK',
    submit => ['Send oplysningerne'],
    action => $webroot, #avoids loosing submitted values when redirected from other site
);

$form->field(
    name => 'postnr',
    label => 'Postnummer',
    size => 5,
    comment => '(hvis du har lyst)'
);
$form->field(
    name => 'email',
    comment => '(hvis du vil kontaktes igen)'
);
$form->field(
    name    => 'kommentar',
    type    => 'textarea',
    rows    => 3,
);

my ($form_required_text) = $form->{opt}{messages}{form_required_text};
my ($mail_from) = $webmaster;
my ($mail_to, $mail_subject);

if ($form->submitted) {
    $infostring = "Tak for din feedback!";
    if ($form->validate) {
        $mail_to = $frontdesk;
        $mail_subject = 'Feedback til Byvandring.nu';
    } else {
        $mail_to = "$frontdesk, $helpdesk";
        $mail_subject = 'FEJL ved feedback til Byvandring.nu';
        $infostring .= "\n<P>OBS! Der var fejl i et eller flere af felterne. Informationerne er sendt uanset, men det anbefales at gå tilbage, checke at alle felter er udfyldt korrekt, og derefter sende igen.";
        $confirm = 0;
    };
    # Abuse subject to add additional headers
#   $mail_subject .= "\n" . 'Content-Type: text/plain; charset="ISO-8859-1";';
#   $mail_subject .= "\n" . 'Content-Transfer-Encoding: 8bit';
    $form->mailresults(
        to  => $mail_to,
        from    => $mail_from,
        subject => "$mail_subject",
    );
    if ($confirm) {
        $infostring .= "\n<P>Følgende informationer er blevet sendt:";
        $form->{opt}{messages}{form_confirm_text} = "$infostring";
        print $form->confirm(
            header      => 1,
            template    => $ack_path
        );
    } else {
        print $form->render(
            header      => 1,
            sticky      => (! $form->validate),
#FIXME          text        => $infostring,
            template    => $req_path
        );
    }
} else {
    print $form->render(
        header      => 1,
        template    => $req_path
    );
}