You can edit this page using wiki syntax for markup.

Article contents:== Outdated egg! This is an egg for CHICKEN 3, the unsupported old release. You're almost certainly looking for [[/eggref/4/http-auth|the CHICKEN 4 version of this egg]], if it exists. If it does not exist, there may be equivalent functionality provided by another egg; have a look at the [[https://wiki.call-cc.org/chicken-projects/egg-index-4.html|egg index]]. Otherwise, please consider porting this egg to the current version of CHICKEN. [[tags: egg]] == http-auth === Introduction The {{http-auth}} library contains client-side routines for HTTP basic and digest access ([[http://tools.ietf.org/html/rfc2617|RFC 2617]]) authentication. === Requires ; [[syntax-case]] ; [[matchable]] ; [[datatype]] ; [[base64]] ; [[md5]] ; [[http]] ; [[uri-generic]] ; [[lalr]] === Library procedures ==== {{http:basic-header:: USERNAME * PASSWORD -> AUTH-HEADER}} Given a username and password, creates and returns a basic access authorization header in the form of a dotted pair. ==== {{http:digest-header:: USERNAME * REALM * NONCE * URI * RESPONSE * OPAQUE * MESSAGE-QOP -> AUTH-HEADER}} Creates and returns a digest authorization header. Argument {{OPAQUE}} can be {{#f}} or a string. Argument {{MESSAGE-QOP}} can be {{#f}} or one of the variant records {{AuthInt (nonce-count cnonce H-entity-body)}}, {{Auth (nonce-count cnonce)}}, or {{AuthEmpty}}. The values for arguments {{REALM}}, {{NONCE}}, {{OPAQUE}} are contained in the server response. The value for argument {{URI}} must be obtained via the {{uri-path}} procedure in the [[uri]] egg. The value for argument {{RESPONSE}} is computed by procedure {{http:digest-response}}. ==== {{http:digest-response:: USERNAME * REALM * PASSWORD * METHOD * DIGEST-URI * NONCE * MESSAGE-QOP [* HA1] -> RESPONSE}} Creates and returns digest response. ==== {{http:authenticate:: RESPONSE-HANDLER * GET-USER+PW * REQUEST * RETRY? [* AUTH-STATE] -> ...}} An implementation of an HTTP authentication state machine. ; Argument {{RESPONSE-HANDLER}} is a procedure of the form {{LAMBDA STATUS * RESPONSE-ATTRS * IN * OUT * QOP-STATE -> ...}}. ; Argument {{GET-USER+PW}} is a procedure of the form {{LAMBDA AUTH-TYPE * REALM -> USERNAME * PASSWORD}}, where {{AUTH-TYPE}} is one of {{'BASIC}} or {{'DIGEST}}. ; Argument {{REQUEST}} is an HTTP request object. ; Argument {{RETRY?}} can be a positive integer to specify number of authentication retries, or a boolean ({{#t}} or {{#f}}). ; {{AUTH-STATE}} is a list {{[QOP-STATE RESPONSE-FST RESPONSE-ATTRS RESPONSE-IN RESPONSE-OUT]}}. When first called with an empty {{AUTH-STATE}}, this procedure sends he request as-is. If the server returns 401 Unauthorized and argument {{RETRY?}} is not {{#F}}, the procedure parses the WWW-Authenticate header returned by the server, creates an authorization header for basic or digest authentication, and resends the request. If the server returns a code other than 401, the response handler is invoked with the server response as arguments. === Example (use http-utils) (use http-client) (use http-auth) (define (default-handler status headers in out . rest) (close-input-port in) (close-output-port out) (print "Status: " status) (print "Headers: " headers)) (http:authenticate default-handler (lambda (auth-type realm) (list "user" "password")) (http:make-request 'GET "http://server/") #t) === Authors Ivan Raikov === Version ; 1.6 : Now using uri-generic instead of uri library ; 1.5 : Bug fix in digest authentication ; 1.3 : Bug fix in basic authentication ; 1.2 : Added lalr as a dependence ; 1.1 : Documentation updates ; 1.0 : Initial version === License Copyright 2008 Ivan Raikov. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. A full copy of the GPL license can be found at <http://www.gnu.org/licenses/>. Description of your changes:

I would like to authenticate

Spam control

What do you get when you multiply 6 by 1?