#!/usr/bin/perl -wT
use strict;
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

my $cgi  = new CGI;
my $vars = $cgi->Vars;
my $tmpl = HTML::Template->new(filename => './form.tmpl');

my $statement = genstt('table', $vars);

$tmpl->param(STATEMENT => $statement);
print "Content-Type: text/html\n\n", $tmpl->output;

sub genstt {
   my $tbl  = shift;
   my $vars = shift;
   my $stt  = ();

   # Die erlaubten Parameter filtern ...
   foreach my $param (qw(param1 param2 param3)) {
      next unless defined $vars->{$param};
      next if $vars->{$param} eq '';

      # Parameter anhaengen
      if (defined $stt) {
         $stt .= ",$param='$vars->{$param}'";
      } else {
         $stt = "$param='$vars->{$param}'";
      }
   }

   return $stt ? "insert into $tbl set $stt" : undef;
}