From 7f6e44802a526169724a591b99315b333105ced6 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 6 Nov 2009 19:07:09 +0100 Subject: Fix Pingback error handling. Ignore-this: 33b104be9358d030a60218fbfe605fb7 darcs-hash:6a135417a311f8df633c28f5c9a124a30aa710d8 --- xml-rpc-functions.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'xml-rpc-functions.lisp') diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp index 47e9fee..55363a7 100644 --- a/xml-rpc-functions.lisp +++ b/xml-rpc-functions.lisp @@ -114,7 +114,7 @@ (entry-id (ignore-errors (parse-integer last-uri-component))) (entry (and entry-id (ignore-errors (find-entry entry-id))))) (unless entry - (error (make-condition 'xml-rpc-fault :code #x20))) + (error (make-condition 'xml-rpc-fault :code #x20 :string "Couldn't find journal entry."))) (with-transaction () (let ((existing-pingbacks (select 'journal-pingback @@ -122,7 +122,7 @@ [= [slot-value 'journal-pingback 'url] source-uri]] :flatp t))) (when existing-pingbacks - (error (make-condition 'xml-rpc-fault :code #x30))) + (error (make-condition 'xml-rpc-fault :code #x30 :string "The pingback you wanted to do was already registered."))) (let ((pingback (make-instance 'journal-pingback :id (make-journal-pingback-id) :entry-id entry-id -- cgit v1.2.3