diff --git a/scripts/ZoneMinder/lib/ZoneMinder/ConfigData.pm.in b/scripts/ZoneMinder/lib/ZoneMinder/ConfigData.pm.in index 480c22085..041ea0b03 100644 --- a/scripts/ZoneMinder/lib/ZoneMinder/ConfigData.pm.in +++ b/scripts/ZoneMinder/lib/ZoneMinder/ConfigData.pm.in @@ -72,97 +72,97 @@ sub INIT { # Types our %types = ( string => { - db_type => 'string', - hint => 'string', - pattern => qr|^(.+)$|, - format => q( $1 ) - }, - alphanum => { - db_type => 'string', - hint => 'alphanumeric', - pattern => qr|^([a-zA-Z0-9-_]+)$|, - format => q( $1 ) - }, - text => { - db_type => 'text', - hint => 'free text', - pattern => qr|^(.+)$|, - format => q( $1 ) - }, - boolean => { - db_type => 'boolean', - hint => 'yes|no', - pattern => qr|^([yn])|i, - check => q( $1 ), - format => q( ($1 =~ /^y/) ? "yes" : "no" ) - }, - integer => { - db_type => 'integer', - hint => 'integer', - pattern => qr|^(\d+)$|, - format => q( $1 ) - }, - decimal => { - db_type => 'decimal', - hint => 'decimal', - pattern => qr|^(\d+(?:\.\d+)?)$|, - format => q( $1 ) - }, - hexadecimal => { - db_type => 'hexadecimal', - hint => 'hexadecimal', - pattern => qr|^(?:0x)?([0-9a-f]{1,8})$|, - format => q( "0x".$1 ) - }, - tristate => { - db_type => 'string', - hint => 'auto|yes|no', - pattern => qr|^([ayn])|i, check=>q( $1 ), - format => q( ($1 =~ /^y/) ? "yes" : ($1 =~ /^n/ ? "no" : "auto" ) ) - }, - abs_path => { - db_type => 'string', - hint => '/absolute/path/to/somewhere', - pattern => qr|^((?:/[^/]*)+?)/?$|, - format => q( $1 ) - }, - rel_path => { - db_type => 'string', - hint => 'relative/path/to/somewhere', - pattern => qr|^((?:[^/].*)?)/?$|, - format => q( $1 ) - }, - directory => { - db_type => 'string', - hint => 'directory', - pattern => qr|^([a-zA-Z0-9-_.]+)$|, - format => q( $1 ) - }, - file => { - db_type => 'string', - hint => 'filename', - pattern => qr|^([a-zA-Z0-9-_.]+)$|, - format => q( $1 ) - }, - hostname => { - db_type => 'string', - hint => 'host.your.domain', - pattern => qr|^([a-zA-Z0-9_.-]+)$|, - format => q( $1 ) - }, - url => { - db_type => 'string', - hint => 'http://host.your.domain/', - pattern => qr|^(?:http://)?(.+)$|, - format => q( "http://".$1 ) - }, - email => { - db_type => 'string', - hint => 'your.name@your.domain', - pattern => qr|^([a-zA-Z0-9_.-]+)\@([a-zA-Z0-9_.-]+)$|, - format => q( $1\@$2 ) - }, - ); + db_type => 'string', + hint => 'string', + pattern => qr|^(.+)$|, + format => q( $1 ) + }, + alphanum => { + db_type => 'string', + hint => 'alphanumeric', + pattern => qr|^([a-zA-Z0-9-_]+)$|, + format => q( $1 ) + }, + text => { + db_type => 'text', + hint => 'free text', + pattern => qr|^(.+)$|, + format => q( $1 ) + }, + boolean => { + db_type => 'boolean', + hint => 'yes|no', + pattern => qr|^([yn])|i, + check => q( $1 ), + format => q( ($1 =~ /^y/) ? "yes" : "no" ) + }, + integer => { + db_type => 'integer', + hint => 'integer', + pattern => qr|^(\d+)$|, + format => q( $1 ) + }, + decimal => { + db_type => 'decimal', + hint => 'decimal', + pattern => qr|^(\d+(?:\.\d+)?)$|, + format => q( $1 ) + }, + hexadecimal => { + db_type => 'hexadecimal', + hint => 'hexadecimal', + pattern => qr|^(?:0x)?([0-9a-f]{1,8})$|, + format => q( "0x".$1 ) + }, + tristate => { + db_type => 'string', + hint => 'auto|yes|no', + pattern => qr|^([ayn])|i, check=>q( $1 ), + format => q( ($1 =~ /^y/) ? "yes" : ($1 =~ /^n/ ? "no" : "auto" ) ) + }, + abs_path => { + db_type => 'string', + hint => '/absolute/path/to/somewhere', + pattern => qr|^((?:/[^/]*)+?)/?$|, + format => q( $1 ) + }, + rel_path => { + db_type => 'string', + hint => 'relative/path/to/somewhere', + pattern => qr|^((?:[^/].*)?)/?$|, + format => q( $1 ) + }, + directory => { + db_type => 'string', + hint => 'directory', + pattern => qr|^([a-zA-Z0-9-_.]+)$|, + format => q( $1 ) + }, + file => { + db_type => 'string', + hint => 'filename', + pattern => qr|^([a-zA-Z0-9-_.]+)$|, + format => q( $1 ) + }, + hostname => { + db_type => 'string', + hint => 'host.your.domain', + pattern => qr|^([a-zA-Z0-9_.-]+)$|, + format => q( $1 ) + }, + url => { + db_type => 'string', + hint => 'http://host.your.domain/', + pattern => qr|^(?:http://)?(.+)$|, + format => q( "http://".$1 ) + }, + email => { + db_type => 'string', + hint => 'your.name@your.domain', + pattern => qr|^([a-zA-Z0-9_.-]+)\@([a-zA-Z0-9_.-]+)$|, + format => q( $1\@$2 ) + }, +); sub qqq { ## Un-pad paragraph of text. local $_ = shift;