Index: openacs-4/packages/trackback/tcl/trackback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/trackback/tcl/trackback-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/trackback/tcl/trackback-procs.tcl 29 Sep 2003 17:56:24 -0000 1.1 +++ openacs-4/packages/trackback/tcl/trackback-procs.tcl 1 Oct 2003 19:13:04 -0000 1.2 @@ -34,8 +34,9 @@ -is_live $is_live \ -title $title \ -context_id $object_id] - + ns_log notice "Trackback tb_url=$tb_url blog_name=$blog_name" db_dml add_trackback "" + return $comment_id } @@ -184,7 +185,9 @@ ns_set put $query_set blog_name $blog_name } - set result [ns_httppost $ping_url "" $query_set] + if {[catch {[ns_httppost $ping_url "" $query_set]} result]} { + ns_log notice "trackback: trackback returned: $result" + } } ns_log debug "trackback: trackback returned: $result" return $result