Fix some spacing
This commit is contained in:
Isaac Connor
parent
368567335b
commit
0c25cecb93
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue