dm_cgi_get Interface

public interface dm_cgi_get

Generic interface to CGI get functions.


Module Procedures

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

Returns (last) value associated with key in query 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_query_type), intent(inout) :: query

CGI query 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(query, key, value, default, required) result(rc)

Returns (last) value associated with key in query 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_query_type), intent(inout) :: query

CGI query 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(query, key, value, default, required) result(rc)

Returns (last) value associated with key in query 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_query_type), intent(inout) :: query

CGI query 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(query, key, value, default, required) result(rc)

Returns (last) value associated with key in query 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_query_type), intent(inout) :: query

CGI query 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(query, key, value, default, required) result(rc)

Returns (last) value associated with key in query 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_query_type), intent(inout) :: query

CGI query 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(query, key, value, default, required) result(rc)

Returns (last) value associated with key in query. 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_query_type), intent(inout) :: query

CGI query 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