sub gen_param_list {
   my ($name, $value, $start) = @_;
   $start ||= "";

   return $start unless $name && $value;

   my $retVal = $start;
   if($retVal ne '') {
      $retVal .= ';' unless $retVal =~m{;$}; # mir gefallen "&"'s nicht
   }

   $retVal .= "$name=$value";

   return $retVal;
}