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.13 -r1.14
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	13 Dec 2003 17:13:34 -0000	1.13
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	13 Dec 2003 20:04:11 -0000	1.14
@@ -77,7 +77,8 @@
     lars_blogger::entry::do_notifications -entry_id $entry_id
 
     # Ping weblogs.com
-    lars_blog_weblogs_com_update_ping -package_id $package_id
+    #lars_blog_weblogs_com_update_ping -package_id $package_id
+    lars_blogger::instance::send_pings -package_id $package_id
 
     # trackback
     lars_blogger::entry::trackback -entry_id $entry_id
Index: openacs-4/packages/lars-blogger/tcl/install-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/install-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/tcl/install-procs-postgresql.xql	8 Dec 2003 05:15:04 -0000	1.1
+++ openacs-4/packages/lars-blogger/tcl/install-procs-postgresql.xql	13 Dec 2003 20:03:35 -0000	1.2
@@ -3,6 +3,25 @@
 <queryset>
     <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
+    <fullquery name="lars_blogger::install::package_uninstantiate.remove_ping_urls">
+        <querytext>
+        delete from weblogger_ping_urls
+            where package_id = :package_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="lars_blogger::install::setup_ping_urls.setup_ping_urls">
+        <querytext>
+        insert into weblogger_ping_urls (
+            package_id,
+            ping_url
+        ) values (
+            :package_id,
+            :default_ping_url
+        )
+        </querytext>
+    </fullquery>
+    
     <fullquery name="lars_blogger::install::package_uninstantiate.clear_content">
         <querytext>
 
Index: openacs-4/packages/lars-blogger/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/install-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/tcl/install-procs.tcl	8 Dec 2003 05:15:04 -0000	1.3
+++ openacs-4/packages/lars-blogger/tcl/install-procs.tcl	13 Dec 2003 20:03:35 -0000	1.4
@@ -9,7 +9,18 @@
 } {
 
     lars_blogger::install::grant_gc_create -package_id $package_id
+    lars_blogger::install::setup_ping_urls -package_id $package_id
+}
 
+ad_proc -public lars_blogger::install::setup_ping_urls { -package_id } {
+    Sets up the default ping URL with the weblogs.com ping URL. If it
+    already exists, we don't care.
+    
+    @author Guan Yang
+    @creation-date 2003-12-13
+} {
+    set default_ping_url [ad_parameter -package_id $package_id weblogs_ping_url]
+    catch { db_dml setup_ping_urls "" }
 }
 
 ad_proc -public lars_blogger::install::grant_gc_create { -package_id } {
@@ -30,5 +41,6 @@
 
     @author Vinod Kurup
 } {
+    db_dml remove_ping_urls ""
     db_exec_plsql clear_content {}
 }
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.1 -r1.2
--- openacs-4/packages/lars-blogger/tcl/weblogs-procs.xql	19 Aug 2002 21:52:59 -0000	1.1
+++ openacs-4/packages/lars-blogger/tcl/weblogs-procs.xql	13 Dec 2003 20:04:11 -0000	1.2
@@ -8,5 +8,34 @@
 			where package_id = :package_id
         </querytext>
     </fullquery>
+    
+    <fullquery name="lars_blogger::instance::remove_ping_url.remove_ping_url">
+        <querytext>
+            delete from weblogger_ping_urls
+                where package_id = :package_id
+                and ping_url = :ping_url
+        </querytext>
+    </fullquery>
+    
+    <fullquery name="lars_blogger::instance::add_ping_url.add_ping_url">
+        <querytext>
+            insert into weblogger_ping_urls (
+                package_id,
+                ping_url
+            ) values (
+                :package_id,
+                :ping_url
+            )
+        </querytext>
+    </fullquery>
+    
+    <fullquery name="lars_blogger::instance::get_ping_urls.get_ping_urls">
+        <querytext>
+            select ping_url
+            from weblogger_ping_urls
+            where package_id = :package_id
+            order by ping_url asc
+        </querytext>
+    </fullquery>
 
 </queryset>