Changeset 26437 in project


Ignore:
Timestamp:
04/09/12 15:33:27 (9 years ago)
Author:
sjamaan
Message:

qwiki: Fix for new version of message-digest (and sha1)

Location:
release/4/qwiki/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki.meta

    r24037 r26437  
     1;; -*- Scheme -*-
     2
    13((synopsis "qwiki - the quick wiki")
    24 (depends intarweb (uri-common "1.0") (spiffy "4.8") (doctype "1.2")
    35          (sxml-transforms "1.4") multidoc (svn-client "0.17") estraier-client
    4           sxpath sha1 (svnwiki-sxml 0.2.1) html-parser colorize)
     6          sxpath (message-digest "3.0.0") (sha1 "3.0.0") (svnwiki-sxml 0.2.1)
     7          html-parser colorize)
    58 (test-depends test)
    69 (author "Peter Bex")
  • release/4/qwiki/trunk/qwiki.scm

    r26119 r26437  
    6767(use extras files posix ports data-structures srfi-1 srfi-13 srfi-14
    6868     intarweb uri-common spiffy sxml-transforms sxpath
    69      svnwiki-sxml qwiki-sxml doctype sha1
     69     svnwiki-sxml qwiki-sxml doctype sha1 message-digest
    7070     ;; There should be a way to parameterize the versioning implementation
    7171     qwiki-svn)
     
    316316         (make-spam-control-hash
    317317          (lambda (answer time)
    318             (sha1-digest (sprintf "Answer: ~A for file ~A (r~A by ~A) at ~A"
    319                                   answer source-file file-rev file-author time))))
     318            (message-digest-string
     319             (sha1-primitive)
     320             (sprintf "Answer: ~A for file ~A (r~A by ~A) at ~A"
     321                      answer source-file file-rev file-author time))))
    320322         (auth (or auth-required (alist-ref 'auth postdata)))
    321323         (title (title-for-wiki-page sxml))
Note: See TracChangeset for help on using the changeset viewer.