dm_cgi_get Interface

public interface dm_cgi_get

Generic interface to CGI get functions.


Module Procedures

private function cgi_get_int32(param, key, value, default, required) result(rc)

Returns (last) value associated with key in param as 32-bit integer. The return code is set to E_EMPTY if the key does not exist and required has not been passed or is .true.

Arguments

Type IntentOptional Attributes Name
type(cgi_param_type), intent(inout) :: param

CGI parameter type.
character(len=*), intent(in) :: key

Parameter key.
integer(kind=i4), intent(out) :: value

Parameter value.
integer(kind=i4), intent(in), optional :: default

Default value.
logical, intent(in), optional :: required

Required flag.

Return Value integer

private function cgi_get_int64(param, key, value, default, required) result(rc)

Returns (last) value associated with key in param as 64-bit integer. The return code is set to E_EMPTY if the key does not exist and required has not been passed or is .true.

Arguments

Type IntentOptional Attributes Name
type(cgi_param_type), intent(inout) :: param

CGI parameters.
character(len=*), intent(in) :: key

Parameter key.
integer(kind=i8), intent(out) :: value

Parameter value.
integer(kind=i8), intent(in), optional :: default

Default value.
logical, intent(in), optional :: required

Required flag.

Return Value integer

private function cgi_get_logical(param, key, value, default, required) result(rc)

Returns (last) value associated with key in param as logical. The return code is set to E_EMPTY if the key does not exist and required has not been passed or is .true.

Arguments

Type IntentOptional Attributes Name
type(cgi_param_type), intent(inout) :: param

CGI parameter type.
character(len=*), intent(in) :: key

Parameter key.
logical, intent(out) :: value

Parameter value.
logical, intent(in), optional :: default

Default value.
logical, intent(in), optional :: required

Required flag.

Return Value integer

private function cgi_get_real32(param, key, value, default, required) result(rc)

Returns (last) value associated with key in param as 32-bit real. The return code is set to E_EMPTY if the key does not exist and required has not been passed or is .true.

Arguments

Type IntentOptional Attributes Name
type(cgi_param_type), intent(inout) :: param

CGI parameter type.
character(len=*), intent(in) :: key

Parameter key.
real(kind=r4), intent(out) :: value

Parameter value.
real(kind=r4), intent(in), optional :: default

Default value.
logical, intent(in), optional :: required

Required flag.

Return Value integer

private function cgi_get_real64(param, key, value, default, required) result(rc)

Returns (last) value associated with key in param as 64-bit real. The return code is set to E_EMPTY if the key does not exist and required has not been passed or is .true..

Arguments

Type IntentOptional Attributes Name
type(cgi_param_type), intent(inout) :: param

CGI parameter type.
character(len=*), intent(in) :: key

Parameter key.
real(kind=r8), intent(out) :: value

Parameter value.
real(kind=r8), intent(in), optional :: default

Default value.
logical, intent(in), optional :: required

Required flag.

Return Value integer

private function cgi_get_string(param, key, value, default, required) result(rc)

Returns (last) value associated with key in param. The return code is set to E_EMPTY if the key does not exist and required has not been passed or is .true.

Arguments

Type IntentOptional Attributes Name
type(cgi_param_type), intent(inout) :: param

CGI parameter type.
character(len=*), intent(in) :: key

Parameter key.
character(len=*), intent(inout) :: value

Parameter value.
character(len=*), intent(in), optional :: default

Default value.
logical, intent(in), optional :: required

Required flag.

Return Value integer