Changeset 26415 in project


Ignore:
Timestamp:
04/08/12 14:51:36 (9 years ago)
Author:
sjamaan
Message:

http-client: Restore message-digest compatibility after lots of procedures got moved around and renamed and whatnot. Update copyright year

Location:
release/4/http-client/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.meta

    r24002 r26415  
    11((egg "http-client.egg")
    22 (synopsis "High-level HTTP client library")
    3  (depends (intarweb 0.6) openssl (uri-common 0.7) md5 (sendfile "1.7.4"))
     3 (depends (intarweb 0.6) openssl (uri-common 0.7) (message-digest "3.0.0")
     4          (md5 "3.0.0") string-utils (sendfile "1.7.4"))
    45 (author "Peter Bex")
    56 (category net)
  • release/4/http-client/trunk/http-client.scm

    r24556 r26415  
    22;; Convenient HTTP client library
    33;;
    4 ; Copyright (c) 2008-2011, Peter Bex
     4; Copyright (c) 2008-2012, Peter Bex
    55; Parts copyright (c) 2000-2004, Felix L. Winkelmann
    66; All rights reserved.
     
    4444(use srfi-1 srfi-13 srfi-18 srfi-69
    4545     ports files extras tcp data-structures posix
    46      openssl intarweb uri-common message-digest md5 sendfile)
     46     openssl intarweb uri-common message-digest md5 string-utils sendfile)
    4747
    4848;; Major TODOs:
     
    358358        ((message-digest-primitive-final primitive) ctx result)
    359359        (unless (procedure? ctx-info) (free ctx))
    360         (byte-string->hexadecimal result)))))
     360        (string->hex result)))))
    361361
    362362(define (get-username/password for-request-header for-uri for-realm)
     
    386386         (let* ((hashconc
    387387                 (lambda args
    388                    (md5-digest (string-join (map ->string args) ":"))))
     388                   (message-digest-string
     389                    (md5-primitive) (string-join (map ->string args) ":"))))
    389390                (authless-uri (update-uri (request-uri new-request)
    390391                                          username: #f password: #f))
Note: See TracChangeset for help on using the changeset viewer.