our %k_re = ( dbi => qr/^(dbi:(Pg|mysql):(?:\w+=[\w\d\.-]+;?)+)$/i,
user => qr/^([\w\d\.-]+)$/i,
password => qr/^(.*)$/i,
+ fv_write_path => qr!^([/\w\d\.-]+)$!,
template_dir => qr!^([/\w\d\.-]+)$!,
debug => qr/^(on)?$/,
email_media => qr/^([\w\d\.-]+@[\d\w\.-]+)$/,
if ($elt{volstatus}) {
my $status = CGI::param('volstatus') || '';
- if ($status =~ /^(\w)$/) {
+ if ($status =~ /^(\w+)$/) {
$ret{status} = $1;
$limit .= "AND Media.VolStatus = '$1' ";
}