Index: openacs-4/packages/lars-blogger/lars-blogger.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lars-blogger.info,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/lars-blogger/lars-blogger.info	27 Feb 2004 18:48:55 -0000	1.34
+++ openacs-4/packages/lars-blogger/lars-blogger.info	27 Feb 2004 19:16:24 -0000	1.35
@@ -55,8 +55,6 @@
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="TechnoratiApiUrl"  description="The URL which will be used in Technorati API lookups. If you leave this empty it will default to the blog's URL." section_name="technorati"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="TrackbackMaxExcerpt"  default="200" description="Maximum length of excerpt to send for trackback" section_name="Trackback"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="user_rss_feed_p"  default="0" description="Should we build an RSS feed for each user." section_name="rss"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="weblogs_ping_url"  default="http://rpc.weblogs.com/RPC2" description="The URL to post the update ping message to" section_name="weblogs-com"/>
-            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="weblogs_update_ping_p"  default="1" description="Should we ping weblogs.com on updates to this blog?" section_name="weblogs-com"/>
         </parameters>
 
     </version>
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 -N -r1.5 -r1.6
--- openacs-4/packages/lars-blogger/tcl/install-procs.tcl	14 Dec 2003 13:27:15 -0000	1.5
+++ openacs-4/packages/lars-blogger/tcl/install-procs.tcl	27 Feb 2004 19:16:24 -0000	1.6
@@ -9,20 +9,8 @@
 } {
 
     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 } {
     sets up default anonymous comments
 } {
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 -N -r1.9 -r1.10
--- openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl	27 Feb 2004 18:59:52 -0000	1.9
+++ openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl	27 Feb 2004 19:16:24 -0000	1.10
@@ -68,16 +68,6 @@
         set package_id [ad_conn 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
-    }
-    
     set package_url [lars_blog_public_package_url -package_id $package_id]
 
     set blog_title [lars_blog_name]
Index: openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl	8 Dec 2003 05:56:36 -0000	1.1
+++ openacs-4/packages/lars-blogger/tcl/test/blogger-api-procs.tcl	27 Feb 2004 19:16:25 -0000	1.2
@@ -20,12 +20,6 @@
                         -node_name $node_name \
                         -package_key lars-blogger]
 
-    # set package parameters
-    parameter::set_value \
-        -package_id $blog_id \
-        -parameter weblogs_update_ping_p \
-        -value 0
-
     # create the user
     set username [ad_generate_random_string]
     set password [ad_generate_random_string]
Index: openacs-4/packages/lars-blogger/www/admin/ping-url-add-api.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/ping-url-add-api.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/www/admin/ping-url-add-api.tcl	27 Feb 2004 19:16:25 -0000	1.1
@@ -0,0 +1,11 @@
+ad_page_contract {
+    Add a ping_url directly
+} {
+    ping_url
+}
+
+lars_blogger::instance::add_ping_url \
+    -package_id [ad_conn package_id] \
+    -ping_url $ping_url
+
+ad_returnredirect -message "Ping URL \"$ping_url\" has been added." ping-urls
Index: openacs-4/packages/lars-blogger/www/admin/ping-url-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/ping-url-add.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/ping-url-add.adp	13 Dec 2003 20:02:28 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/ping-url-add.adp	27 Feb 2004 19:16:25 -0000	1.2
@@ -1,5 +1,6 @@
 <master>
 <property name="title">@blog_name@: Add Ping URL</property>
 <property name="context">@context;noquote@</property>
+<property name="focus">ping_url_add.ping_url</property>
 
-<formtemplate id="ping_url_add"></formtemplate>
\ No newline at end of file
+<formtemplate id="ping_url_add"></formtemplate>
Index: openacs-4/packages/lars-blogger/www/admin/ping-url-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/ping-url-add.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/ping-url-add.tcl	13 Dec 2003 20:02:28 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/ping-url-add.tcl	27 Feb 2004 19:16:25 -0000	1.2
@@ -27,5 +27,5 @@
         -package_id $package_id \
         -ping_url $ping_url
 } -after_submit {
-    ad_returnredirect "ping-urls"
+    ad_returnredirect -message "Ping URL \"$ping_url\" has been added."  "ping-urls"
 }
Index: openacs-4/packages/lars-blogger/www/admin/ping-url-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/ping-url-remove.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/ping-url-remove.tcl	13 Dec 2003 20:02:28 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/ping-url-remove.tcl	27 Feb 2004 19:16:25 -0000	1.2
@@ -15,4 +15,4 @@
                                 -ping_url $ping_url
 }
 
-ad_returnredirect "ping-urls"
\ No newline at end of file
+ad_returnredirect -message "Ping URL \"$ping_url\" has been removed." "ping-urls"
Index: openacs-4/packages/lars-blogger/www/admin/ping-urls.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/ping-urls.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/ping-urls.adp	13 Dec 2003 20:02:28 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/ping-urls.adp	27 Feb 2004 19:16:25 -0000	1.2
@@ -15,4 +15,12 @@
     about the ping API</a>.
 </p>
 
-<listtemplate name="ping_urls"></listtemplate>
\ No newline at end of file
+<listtemplate name="ping_urls"></listtemplate>
+
+<if @default_pings:rowcount@ gt 0>
+  <h2>Suggested Ping Services</h2>
+  <p>
+    These are standard ping services which you might want to add.
+  </p>
+  <listtemplate name="default_pings"></listtemplate>
+</if>
Index: openacs-4/packages/lars-blogger/www/admin/ping-urls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/ping-urls.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/ping-urls.tcl	13 Dec 2003 20:02:28 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/ping-urls.tcl	27 Feb 2004 19:16:25 -0000	1.2
@@ -32,5 +32,31 @@
 multirow create ping_urls ping_url remove_url
 
 foreach ping_url $ping_urls {
-    multirow append ping_urls $ping_url "ping-url-remove?[export_vars -url ping_url]"
+    multirow append ping_urls $ping_url [export_vars -base ping-url-remove { ping_url }]
 }
+
+multirow create default_pings service ping_url
+foreach { service ping_url } { 
+    "Weblogs.com" "http://rpc.weblogs.com/RPC2" 
+    "blo.gs" "http://ping.blo.gs/"
+    "Technorati.com" "http://rpc.technorati.com/rpc/ping"
+} {
+    if { [lsearch -exact $ping_urls $ping_url] == -1 } {
+        multirow append default_pings $service $ping_url
+    }
+}
+
+template::list::create \
+    -name default_pings \
+    -elements {
+        service {
+            label "Service"
+        }
+        ping_url {
+            label "Ping URL"
+        }
+        add {
+            display_template {Add}
+            link_url_eval {[export_vars -base ping-url-add-api { ping_url }]}
+        }
+    }