/examples/rest_server/src/rest_server_authentication.e
Specman e | 31 lines | 25 code | 5 blank | 1 comment | 1 complexity | bafde24781409b64f8a5b069fd1f0e84 MD5 | raw file
1note 2 description: "Summary description for {REST_SERVER_AUTHENTICATION}." 3 author: "" 4 date: "$Date$" 5 revision: "$Revision$" 6 7class 8 REST_SERVER_AUTHENTICATION 9 10inherit 11 HTTPD_AUTHORIZATION_AUTHENTICATION 12 13feature -- Status report 14 15 is_valid_login_password (a_login, a_password: STRING): BOOLEAN 16 do 17 --| This is just to test ... !!! 18 Result := a_login ~ a_password 19 end 20 21note 22 copyright: "Copyright (c) 1984-2011, Eiffel Software and others" 23 license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" 24 source: "[ 25 Eiffel Software 26 5949 Hollister Ave., Goleta, CA 93117 USA 27 Telephone 805-685-1006, Fax 805-685-6869 28 Website http://www.eiffel.com 29 Customer support http://support.eiffel.com 30 ]" 31end