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 -r1.8.2.5 -r1.8.2.6 --- openacs-4/packages/lars-blogger/lars-blogger.info 13 Mar 2003 17:03:47 -0000 1.8.2.5 +++ openacs-4/packages/lars-blogger/lars-blogger.info 9 May 2003 22:42:14 -0000 1.8.2.6 @@ -7,18 +7,18 @@ f f - + Lars Pind Write your own web log 2003-03-13 Collaboraid Manages multiple web logs for your site. Just mount multiple instances, and you can do all the blogging you want. - + - + @@ -34,7 +34,7 @@ - + Index: openacs-4/packages/lars-blogger/sql/oracle/rss-register.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/oracle/rss-register.sql,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/lars-blogger/sql/oracle/rss-register.sql 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/sql/oracle/rss-register.sql 9 May 2003 22:42:33 -0000 1.1.2.1 @@ -32,6 +32,11 @@ impl_pl => 'TCL' ); + acs_sc_binding.new ( + contract_name => 'RssGenerationSubscriber', + impl_name => 'pinds_blog_entries' + ); + end; / show errors Index: openacs-4/packages/lars-blogger/sql/postgresql/rss-register.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/rss-register.sql,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/lars-blogger/sql/postgresql/rss-register.sql 19 Aug 2002 21:52:59 -0000 1.1 +++ openacs-4/packages/lars-blogger/sql/postgresql/rss-register.sql 9 May 2003 22:42:47 -0000 1.1.2.1 @@ -27,3 +27,8 @@ 'lars_blog__rss_lastUpdated', -- impl_alias 'TCL' -- impl_pl ); + +select acs_sc_binding__new ( + 'RssGenerationSubscriber', -- contract_name + 'pinds_blog_entries' -- impl_name +); Index: openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 24 Oct 2002 08:57:25 -0000 1.1.2.1 +++ openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 9 May 2003 22:43:00 -0000 1.1.2.2 @@ -5,7 +5,7 @@ - select to_char(sysdate,'DD Mon YYYY hh12:MI am') + select to_char(sysdate,'DD Mon YYYY hh12:MI am') from dual Index: openacs-4/packages/lars-blogger/www/blog.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.adp,v diff -u -r1.9.2.3 -r1.9.2.4 --- openacs-4/packages/lars-blogger/www/blog.adp 13 Mar 2003 18:08:18 -0000 1.9.2.3 +++ openacs-4/packages/lars-blogger/www/blog.adp 9 May 2003 22:43:19 -0000 1.9.2.4 @@ -27,16 +27,16 @@

- Visit @blog_name@ home + » @blog_name@
 - Visit the archive for @blog_name@ + » Archive
- Add an entry to @blog_name@ + » Add entry Index: openacs-4/packages/lars-blogger/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.tcl,v diff -u -r1.4.2.5 -r1.4.2.6 --- openacs-4/packages/lars-blogger/www/index.tcl 13 Mar 2003 14:30:31 -0000 1.4.2.5 +++ openacs-4/packages/lars-blogger/www/index.tcl 9 May 2003 22:43:19 -0000 1.4.2.6 @@ -16,8 +16,8 @@ set page_title [lars_blog_name] -if { ![empty_string_p [ad_parameter "rss_file_url"]] } { - set rss_file_url "[ad_url][lars_blog_public_package_url][ad_parameter "rss_file_url"]" +if { ![empty_string_p [parameter::get -parameter "rss_file_url"]] } { + set rss_file_url "[ad_url][lars_blog_public_package_url][parameter::get -parameter "rss_file_url"]" } set admin_p [ad_permission_p [ad_conn package_id] admin] Index: openacs-4/packages/lars-blogger/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.adp,v diff -u -r1.3.2.2 -r1.3.2.3 --- openacs-4/packages/lars-blogger/www/admin/index.adp 13 Mar 2003 14:31:02 -0000 1.3.2.2 +++ openacs-4/packages/lars-blogger/www/admin/index.adp 9 May 2003 22:43:51 -0000 1.3.2.3 @@ -7,35 +7,35 @@

- Add new blog entry + » Add new blog entry

- View draft entries + » View draft entries

- Show E-Mail subscribers + » Show E-Mail subscribers

- Set parameters + » Set parameters

- Setup an RSS feed + » Setup an RSS feed

- Manage your RSS feed - Manage your RSS feed + » + Manage your RSS feed (View feed XML)

Index: openacs-4/packages/lars-blogger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/lars-blogger/www/admin/index.tcl 13 Mar 2003 14:31:02 -0000 1.1.2.1 +++ openacs-4/packages/lars-blogger/www/admin/index.tcl 9 May 2003 22:43:51 -0000 1.1.2.2 @@ -21,3 +21,6 @@ set rss_manage_url "[apm_package_url_from_key "rss-support"]my-subscrs" +if { ![empty_string_p [parameter::get -parameter "rss_file_url"]] } { + set rss_file_url "[ad_url][lars_blog_public_package_url][parameter::get -parameter "rss_file_url"]" +} Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/rss-setup-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/www/admin/rss-setup-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl 13 Mar 2003 14:31:02 -0000 1.1.2.1 +++ openacs-4/packages/lars-blogger/www/admin/rss-setup.tcl 9 May 2003 22:43:51 -0000 1.1.2.2 @@ -15,10 +15,17 @@ db_transaction { - set subscr_id [db_string create_subscr {}] + if { [empty_string_p [parameter::get -parameter "rss_file_url"]] } { + parameter::set_value -parameter "rss_file_url" -value "rss/rss.xml" + } + + set subscr_id [db_exec_plsql create_subscr {}] db_dml update_subscr {} } -ad_returnredirect . \ No newline at end of file +# Run it now +rss_gen_report $subscr_id + +ad_returnredirect . Index: openacs-4/packages/lars-blogger/www/admin/rss-setup.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/rss-setup.xql,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/lars-blogger/www/admin/rss-setup.xql 13 Mar 2003 14:31:02 -0000 1.1.2.1 +++ openacs-4/packages/lars-blogger/www/admin/rss-setup.xql 9 May 2003 22:43:51 -0000 1.1.2.2 @@ -2,24 +2,6 @@ - - - select rss_gen_subscr__new ( - null, -- subscr_id - acs_sc_impl__get_id('RssGenerationSubscriber','pinds_blog_entries'), - -- impl_id - :package_id, -- summary_context_id - :timeout, -- timeout - null, -- lastbuild - 'rss_gen_subscr', -- object_type - now(), -- creation_date - :creation_user, -- creation_user - :creation_ip, -- creation_ip - :package_id -- context_id - ) - - - update rss_gen_subscrs Index: openacs-4/packages/lars-blogger/www/doc/index.html =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/doc/index.html,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/lars-blogger/www/doc/index.html 28 Mar 2003 12:41:59 -0000 1.1.2.3 +++ openacs-4/packages/lars-blogger/www/doc/index.html 9 May 2003 22:44:08 -0000 1.1.2.4 @@ -167,6 +167,13 @@
  • + 0.8.6 Cleaned up RSS-support even more and made it work + under Oracle. Also made a slight style change, using the + » (») style for action links, which I've adopted + for other packages. It's less intrusive than the harshly-colored + arrow-box.gif I used to use. (May 9, 2003) +
    • +
  • 0.8.5 Added title URL, cleanup (March 28, 2003)