diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-06 19:07:09 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-06 19:07:09 +0100 |
| commit | 7f6e44802a526169724a591b99315b333105ced6 (patch) | |
| tree | 82684c51e31cf488f2681d811248fa83ab5763be | |
| parent | 19e9c1b783b88a342c06fdf1d0da66d1cc1a3110 (diff) | |
Fix Pingback error handling.
Ignore-this: 33b104be9358d030a60218fbfe605fb7
darcs-hash:6a135417a311f8df633c28f5c9a124a30aa710d8
| -rw-r--r-- | xml-rpc-functions.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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 |