Index: openacs-4/packages/lars-blogger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	27 Feb 2004 18:30:58 -0000	1.20
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	27 Feb 2004 18:59:52 -0000	1.21
@@ -128,7 +128,6 @@
     lars_blogger::entry::do_notifications -entry_id $entry_id
 
     # Ping weblogs.com
-    #lars_blog_weblogs_com_update_ping -package_id $package_id
     lars_blogger::instance::send_pings -package_id $package_id
 
     # trackback
Index: openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl	6 Jan 2004 04:15:12 -0000	1.8
+++ openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl	27 Feb 2004 18:59:52 -0000	1.9
@@ -113,58 +113,4 @@
         return -1
     }
 }
-    
-ad_proc -private lars_blog_weblogs_com_update_ping {
-    {-package_id ""}
-    {-location}
-} {
-    Sends the xml/rpc message weblogUpdates.ping to weblogs.com
-    returns 1 if successful and logs the result.
-    @author Jerry Asher (jerry@theashergroup.com)
-    @author Lars Pind (lars@pinds.com)
-} {
-    if { ![exists_and_not_null package_id] } {
-        set package_id [ad_conn package_id]
-    }
 
-    set package_url [lars_blog_public_package_url -package_id $package_id]
-
-    # Should we ping?
-    set ping_p [parameter::get -boolean \
-                    -package_id $package_id \
-                    -parameter "weblogs_update_ping_p" \
-                    -default 0]
-
-    if { !$ping_p } {
-        return
-    }
-    
-    if { ![info exists location] } {
-        set location [parameter::get -package_id $package_id \
-                          -parameter "weblogs_ping_url"]
-    }
-    if { [empty_string_p $location] } {
-        ns_log Error "lars_blog_weblogs_com_update_ping: No URL to ping"
-        return
-    }
-
-    set blog_title [db_string package_name {}]
-    set blog_url "[ad_url]$package_url"
-
-    ns_log debug "lars_blog_weblogs_com_update_ping:"
-    if { [catch {xmlrpc::remote_call $location weblogUpdates.ping -string [ad_quotehtml $blog_title] -string [ad_quotehtml $blog_url]} errmsg ] } {
-        ns_log warning "lars_blog_weblogs_com_update_ping error: $errmsg"
-        return -1
-    } else {
-        array set result $errmsg
-        if { $result(flerror) } {
-            # got an error
-            ns_log warning "lars_blog_weblogs_com_update_ping error: $result(message)"
-            return -1
-        } else {
-            # success
-            ns_log debug "lars_blog_weblogs_com_update_ping success: $result(message)"
-            return 1
-        }
-    }
-}
Index: openacs-4/packages/lars-blogger/tcl/weblogs-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/weblogs-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/weblogs-procs.xql	13 Dec 2003 20:04:11 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/weblogs-procs.xql	27 Feb 2004 18:59:52 -0000	1.3
@@ -2,13 +2,6 @@
 
 <queryset>
 
-    <fullquery name="lars_blog_weblogs_com_update_ping.package_name">
-        <querytext>
-			select instance_name from apm_packages 
-			where package_id = :package_id
-        </querytext>
-    </fullquery>
-    
     <fullquery name="lars_blogger::instance::remove_ping_url.remove_ping_url">
         <querytext>
             delete from weblogger_ping_urls