% }
 %
 % #XXX autogen
-% my @paramlist = qw( menu_position email_address
+% my @paramlist = qw( menu_position
+%                     email_address
+%                     vonage-fromnumber vonage-username vonage-password
 %                     height width availHeight availWidth colorDepth
 %                   );
 %
 % foreach (@paramlist) {
-%   scalar($cgi->param($_)) =~ /^[,.\@\w]*$/ && next;
+%   scalar($cgi->param($_)) =~ /^[,.\-\@\w]*$/ && next;
 %   $error ||= "Illegal value for parameter $_";
 %   last;
 % }