Convert YAML booleans
This commit is contained in:
parent
d8460423ec
commit
e094810b83
|
@ -56,6 +56,15 @@ sub save_cursor {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub yaml_convert_bool {
|
||||||
|
my $val = shift;
|
||||||
|
if ( $val =~ m/^y|Y|yes|Yes|YES|true|True|TRUE$/ ){
|
||||||
|
return 1;
|
||||||
|
} else {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
#### End Routines ####
|
#### End Routines ####
|
||||||
|
|
||||||
GetOptions (
|
GetOptions (
|
||||||
|
@ -90,6 +99,11 @@ foreach ( keys %{ $cmd } ){
|
||||||
$conf->{$_} = $cmd->{$_} if ( $cmd->{$_} );
|
$conf->{$_} = $cmd->{$_} if ( $cmd->{$_} );
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# YAML::Tiny doesn't handle boolean
|
||||||
|
foreach my $key ( qw(compress keep_alive) ) {
|
||||||
|
$conf->{$key} = yaml_convert_bool($conf->{$key});
|
||||||
|
}
|
||||||
|
|
||||||
# Now check config makes sens
|
# Now check config makes sens
|
||||||
if (
|
if (
|
||||||
not $conf->{url} or
|
not $conf->{url} or
|
||||||
|
|
|
@ -8,7 +8,10 @@
|
||||||
|
|
||||||
# If enabled, data will be compressed before being sent. Default is enabled
|
# If enabled, data will be compressed before being sent. Default is enabled
|
||||||
# Might be disabled for debuging purpose
|
# Might be disabled for debuging purpose
|
||||||
# compress: True
|
# compress: yes
|
||||||
|
|
||||||
|
# If enabled, will use keep-alive with the HTTP server. Default is enabled
|
||||||
|
# keep_alive: yes
|
||||||
|
|
||||||
# If you http endpoint is protected with basic auth, set username and password
|
# If you http endpoint is protected with basic auth, set username and password
|
||||||
# username: foo
|
# username: foo
|
||||||
|
|
Loading…
Reference in New Issue