Index: openacs-4/packages/rss-support/rss-support.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/rss-support.info,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rss-support/rss-support.info	4 Nov 2001 23:17:40 -0000	1.1
@@ -0,0 +1,45 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="rss-support" url="http://openacs.org/repository/apm/packages/rss-support" type="apm_service">
+    <package-name>RSS Support</package-name>
+    <pretty-plural>RSS Support</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+
+    <version name="0.1d" url="http://openacs.org/repository/download/apm/rss-support-0.1d.apm">
+    <database-support>
+        <database>oracle</database>
+        <database>postgresql</database>
+    </database-support>
+        <owner url="mailto:aegrumet@alum.mit.edu">Andrew Grumet</owner>
+        <owner url="mailto:jerry@theashergroup.com">Jerry Asher</owner>
+        <owner url="mailto:dave@thedesignexperience.org">Dave Bauer</owner>
+        <summary>Basic support for RSS generation (and parsing).  RDF Site Summary (RSS) is a lightweight multipurpose extensible metadata description and syndication format.  This package can be used to publish ACS objects in a manner useful to other websites and webservices.
+</summary>
+        <description format="text/html">For each item (news event, ticket, bboard message, ...) that you want to publish, you create a property list that describes that item (url to item, title of item, description of item, etc.). You pass a list of those items 
+(and some other parameters) to rss_gen, and it will generate your XML for you.
+
+&lt;ul&gt;
+&lt;li&gt; &lt;a href='http://www.google.com/search?q=rss+0.91'&gt;RSS 0.91 specification&lt;/a&gt;
+&lt;li&gt; &lt;a href='http://groups.yahoo.com/group/rss-dev/files/specification.html'&gt;RSS 1.0 specification&lt;/a&gt;
+&lt;/ul&gt;
+
+</description>
+
+        <!-- No dependency information -->
+
+        <files>
+            <file type="package_spec" path="rss-support.info"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/rss-generation-create.sql"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/rss-generation-sc-create.sql"/>
+            <file type="data_model_create" db_type="postgresql" path="sql/postgresql/rss-support-create.sql"/>
+            <file type="tcl_procs" path="tcl/rss-generation-procs.tcl"/>
+            <file type="documentation" path="www/doc/index.html"/>
+        </files>
+        <parameters>
+        <!-- No version parameters -->
+        </parameters>
+
+    </version>
+</package>
Index: openacs-4/packages/rss-support/sql/postgresql/rss-generation-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/sql/postgresql/rss-generation-create.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rss-support/sql/postgresql/rss-generation-create.sql	4 Nov 2001 23:17:40 -0000	1.1
@@ -0,0 +1,32 @@
+create table rss_generation_subscriptions (
+   subscription_id			  integer,
+   impl_name				  varachar(100),
+   context_identifier			  varchar(100),
+   timeout				  integer
+);
+
+comment on table rss_generation_subscriptions is '
+   Table for storing the different parts of the site we will generate
+   summaries for.
+';
+
+comment on column rss_generation_subscriptions.subscription_id is '
+   Subscriptions are ACS objects.  They will typically inherit
+   permission from a package instance.
+';
+
+comment on column rss_generation_subscriptions.impl_name is '
+   The implementation which will provide summary information and
+   update status.
+';
+
+comment on column rss_generation_subscriptions.context_identifier is '
+   An identifier unique to the site section whose content is to be
+   summarized.  A context identifier need not be a package instance
+   id.  We will suggest a convention but the format is entirely up to
+   the implementors.
+';
+
+comment on column rss_generation_subscriptions.timeout is '
+   The minimum number of seconds between summary builds. 
+';
Index: openacs-4/packages/rss-support/sql/postgresql/rss-generation-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/sql/postgresql/rss-generation-sc-create.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rss-support/sql/postgresql/rss-generation-sc-create.sql	4 Nov 2001 23:17:40 -0000	1.1
@@ -0,0 +1,48 @@
+--
+-- ACS-SC Contract: RssGenerationSubscriber
+--
+
+select acs_sc_contract__new (
+       'RssGenerationSubscriber',		-- contract_name
+       'RSS Generation Subscriber'		-- contract_desc
+);
+
+select acs_sc_msg_type__new (
+       'RssGenerationSubscriber.Datasource.InputType',
+       'context_identifier:string'  
+);
+
+select acs_sg_msg_type__new (
+       'RssGenerationSubscriber.Datasource.OutputType',
+       'datasource:string'			-- ????
+);
+
+select acs_sc_operation__new (
+       'RssGenerationSubscriber',			-- contract_name
+       'datasource',					-- operation_name
+       'Data Source',					-- operation_desc
+       'f',						-- operation_iscachable_p,
+       1,						-- operation_nargs
+       'RssGenerationSubscriber.Datasource.InputType',  -- operation_inputtype
+       'RssGenerationSubscriber.Datasource.OutputType'  -- operation_outputtype
+);
+
+select acs_sc_msg_type__new (
+       'RssGenerationSubscriber.LastUpdated.InputType',
+       'context_identifier:string'  
+);
+
+select acs_sg_msg_type__new (
+       'RssGenerationSubscriber.LastUpdated.OutputType',
+       'lastupdate:timestamp'
+);
+
+select acs_sc_operation__new (
+       'RssGenerationSubscriber',			-- contract_name
+       'lastUpdated',					-- operation_name
+       'Last Updated',					-- operation_desc
+       'f',						-- operation_iscachable_p,
+       1,						-- operation_nargs
+       'RssGenerationSubscriber.LastUpdated.InputType',  -- operation_inputtype
+       'RssGenerationSubscriber.LastUpdated.OutputType'  -- operation_outputtype
+);
Index: openacs-4/packages/rss-support/sql/postgresql/rss-support-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/sql/postgresql/rss-support-create.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rss-support/sql/postgresql/rss-support-create.sql	4 Nov 2001 23:17:40 -0000	1.1
@@ -0,0 +1,2 @@
+\i rss-generation-create.sql
+\i rss-generation-sc-create.sql
Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	4 Nov 2001 23:17:40 -0000	1.1
@@ -0,0 +1,637 @@
+# /tcl/rss-defs.tcl
+ad_library {
+     procs to generate rss feeds
+     procs to help with rssness
+     @author jerry@theashergroup.com [jerry@theashergroup.com]
+     @creation-date Fri Oct 26 11:43:26 2001
+     @cvs-id
+}
+
+
+###
+# rss
+# generates an rss feed given channel information
+# and item information
+###
+
+#Convert to ad_register_proc if we plan to keep.
+#ns_register_proc GET /*.rss ns_sourceproc
+#ns_register_proc POST /*.rss ns_sourceproc
+#ns_register_proc HEAD /*.rss ns_sourceproc
+#ns_register_proc PUT /*.rss ns_putscript
+
+ad_proc rss_gen_100 {
+    {
+        -channel_title                  ""
+        -channel_link                   ""
+        -channel_description            ""
+        -image                          ""
+        -items                          ""
+        -channel_copyright              ""
+        -channel_managingEditor         ""
+        -channel_webMaster              ""
+        -channel_pubDate                ""
+    }
+} { 
+    generate an rss 1.0 xml feed
+    very basic rss 1.0, with no modules implemented....
+} {
+
+    set rss ""
+
+    if {[empty_string_p $channel_title]} {
+        error "argument channel_title not provided"
+    }
+    if {[empty_string_p $channel_link]} {
+        error "argument channel_link not provided"
+    }
+    if {[empty_string_p $channel_description]} {
+        error "argument channel_description not provided"
+    }
+
+    set channel_date [clock format [clock seconds] -format "%Y-%m-%dT%H:%M"]
+
+    append rss "<rdf:RDF "
+    append rss "xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\""
+    append rss " xmlns:dc=\"http://purl.org/dc/elements/1.1/\""
+    append rss " xmlns=\"http://purl.org/rss/1.0/\""
+    append rss ">"
+    append rss "<channel rdf:about=\"$channel_link\">\n"
+
+    append rss "<title>"
+    append rss [ad_quotehtml $channel_title]
+    append rss "</title>\n"
+
+    append rss "<link>"
+    append rss $channel_link
+    append rss "</link>\n"
+
+    append rss "<description>"
+    append rss [ad_quotehtml $channel_description]
+    append rss "</description>\n"
+
+    if {[empty_string_p $channel_pubDate]} {
+        append rss "<dc:date>$channel_date</dc:date>\n"
+    } else {
+        append rss "<dc:date>[ad_quotehtml $channel_pubDate]</dc:date>\n"
+    }
+
+    if {![empty_string_p $channel_copyright]} {
+        append rss "<dc:rights>"
+        append rss [ad_quotehtml $channel_copyright]
+        append rss "</dc:rights>\n"
+    }
+
+    if {![empty_string_p $channel_managingEditor]} {
+        append rss "<dc:creator>"
+        append rss [ad_quotehtml $channel_managingEditor]
+        append rss "</dc:creator>\n"
+    }
+
+    if {![empty_string_p $channel_webMaster]} {
+        append rss "<dc:publisher>"
+        append rss [ad_quotehtml $channel_webMaster]
+        append rss "</dc:publisher>\n"
+    }
+
+
+    if {[empty_string_p $image]} {
+        set logo_rss "/graphics/openacs_logo_rss.gif"
+        set url      [ad_parameter systemurl ""]
+        append       url $logo_rss
+        set title    $channel_title
+        set link     $channel_link
+        set size     [ns_gifsize [ns_url2file $logo_rss]]
+        set image [list                                          \
+                url $url                                         \
+                title $title                                     \
+                link $link                                       \
+                width [lindex $size 0]                           \
+                height [lindex $size 1]]
+    }
+
+    array set imarray $image
+
+    # channel image handling
+    append rss "<image rdf:resource=\"[ad_quotehtml $imarray(url)]\" />\n"
+
+    append rss "<items>\n"
+    append rss "<rdf:Seq>\n"
+
+    # channel item handling
+    foreach item $items {
+        array unset iarray
+        array set iarray $item
+        append rss "<rdf:li resource=\"[ad_quotehtml $iarray(link)]\" />\n"
+    }
+
+    append rss "</rdf:Seq>\n"
+    append rss "</items>\n"
+    append rss "</channel>\n"
+
+    # now top level image
+    append rss "<image rdf:about=\"$imarray(url)\">\n"
+    append rss "<title>[ad_quotehtml $imarray(title)]</title>\n"
+    append rss "<url>$imarray(url)</url>\n"
+    append rss "<link>[ad_quotehtml $imarray(link)]</link>\n"
+    if {[info exists iarray(width)]} {
+        set element [ad_quotehtml $iarray(width)]
+        append rss "<width>$element</width>\n"
+    }
+    append rss "</image>\n"
+
+    # now top level items
+    foreach item $items {
+        array unset iarray
+        array set iarray $item
+        append rss "<item rdf:about=\"[ad_quotehtml $iarray(link)]\">\n"
+        set element [ad_quotehtml $iarray(title)]
+        append rss "<title>$element</title>\n"
+        append rss "<link>[ad_quotehtml $iarray(link)]</link>\n"
+        if {[info exists iarray(description)]} {
+            set element [ad_quotehtml $iarray(description)]
+            append rss "<description>$element</description>\n"
+        }
+        if {[info exists iarray(timestamp)]} {
+            set element [ad_quotehtml $iarray(timestamp)]
+            append rss "<dc:date>$element</dc:date>\n"
+        }
+
+        append rss "</item>\n"
+    }
+
+    append rss "</rdf:RDF>"
+    return $rss
+
+}
+
+ad_proc rss_gen_091 {
+    {
+        -channel_title                  ""
+        -channel_link                   ""
+        -channel_description            ""
+        -channel_language               "en-us"
+        -channel_copyright              ""
+        -channel_managingEditor         ""
+        -channel_webMaster              ""
+        -channel_rating                 ""
+        -channel_pubDate                ""
+        -channel_lastBuildDate          ""
+        -channel_skipDays               ""
+        -channel_skipHours              ""
+        -image                          ""
+        -items                          ""
+    }
+} { 
+    generate an rss 0.91 xml feed
+} {
+
+    set rss ""
+
+    if {[empty_string_p $channel_title]} {
+        error "argument channel_title not provided"
+    }
+    if {[empty_string_p $channel_link]} {
+        error "argument channel_link not provided"
+    }
+    if {[empty_string_p $channel_description]} {
+        error "argument channel_description not provided"
+    }
+
+    append rss "<rss version=\"0.91\">\n"
+    append rss "<channel>\n"
+
+    append rss "<title>"
+    append rss [ad_quotehtml $channel_title]
+    append rss "</title>\n"
+
+    append rss "<link>"
+    append rss [ad_quotehtml $channel_link]
+    append rss "</link>\n"
+
+    append rss "<description>"
+    append rss [ad_quotehtml $channel_description]
+    append rss "</description>\n"
+
+    append rss "<language>"
+    append rss [ad_quotehtml $channel_language]
+    append rss "</language>\n"
+
+    if {![empty_string_p $channel_copyright]} {
+        append rss "<copyright>"
+        append rss [ad_quotehtml $channel_copyright]
+        append rss "</copyright>\n"
+    }
+
+    if {![empty_string_p $channel_managingEditor]} {
+        append rss "<managingEditor>"
+        append rss [ad_quotehtml $channel_managingEditor]
+        append rss "</managingEditor>\n"
+    }
+
+    if {![empty_string_p $channel_webMaster]} {
+        append rss "<webMaster>"
+        append rss [ad_quotehtml $channel_webMaster]
+        append rss "</webMaster>\n"
+    }
+
+    if {![empty_string_p $channel_rating]} {
+        append rss "<rating>"
+        append rss [ad_quotehtml $channel_rating]
+        append rss "</rating>\n"
+    }
+
+    if {![empty_string_p $channel_pubDate]} {
+        append rss "<pubDate>"
+        append rss [ad_quotehtml $channel_pubDate]
+        append rss "</pubDate>\n"
+    }
+
+    if {![empty_string_p $channel_lastBuildDate]} {
+        append rss "<lastBuildDate>"
+        append rss [ad_quotehtml $channel_lastBuildDate]
+        append rss "</lastBuildDate>\n"
+    }
+
+    append rss "<docs>"
+    append rss "http://backend.userland.com/stories/rss091"
+    append rss "</docs>\n"
+
+    if {![empty_string_p $channel_skipDays]} {
+        append rss "<skipDays>"
+        append rss [ad_quotehtml $channel_skipDays]
+        append rss "</skipDays>\n"
+    }
+
+    if {![empty_string_p $channel_skipHours]} {
+        append rss "<skipHours>"
+        append rss [ad_quotehtml $channel_skipHours]
+        append rss "</skipHours>\n"
+    }
+
+    if {[empty_string_p $image]} {
+        set logo_rss "/graphics/openacs_logo_rss.gif"
+        set url      [ad_parameter systemurl ""]
+        append       url $logo_rss
+        set title    $channel_title
+        set link     $channel_link
+        set size     [ns_gifsize [ns_url2file $logo_rss]]
+        set image [list                                          \
+                url $url                                         \
+                title $title                                     \
+                link $link                                       \
+                width [lindex $size 0]                           \
+                height [lindex $size 1]]
+    }
+
+    # image handling
+    append rss "<image>\n"
+    array set iarray $image
+
+    append rss "<title>[ad_quotehtml $iarray(title)]</title>\n"
+    append rss "<url>$iarray(url)</url>\n"
+    append rss "<link>[ad_quotehtml $iarray(link)]</link>\n"
+    if {[info exists iarray(width)]} {
+        set element [ad_quotehtml $iarray(width)]
+        append rss "<width>$element</width>\n"
+    }
+    if {[info exists iarray(height)]} {
+        set element [ad_quotehtml $iarray(height)]
+        append rss "<height>$element</height>\n"
+    }
+    if {[info exists iarray(description)]} {
+        set element [ad_quotehtml $iarray(description)]
+        append rss "<description>$element</description>\n"
+    }
+
+    append rss "</image>\n"
+
+    # now do the items
+    foreach item $items {
+        array unset iarray
+        array set iarray $item
+        append rss "<item>\n"
+        set element [ad_quotehtml $iarray(title)]
+        append rss "<title>$element</title>\n"
+        append rss "<link>[ad_quotehtml $iarray(link)]</link>\n"
+        if {[info exists iarray(description)]} {
+            set element [ad_quotehtml $iarray(description)]
+            if {[info exists iarray(timestamp)]} {
+                # if {[info exists iarray(timeformat)]} {
+                    # set timeformat $iarray(timeformat)
+                # } else {
+                    set timeformat "%B %e, %Y %H:%M%p %Z"
+                # }
+                set timestamp [clock format [clock scan $iarray(timestamp)] \
+                        -format $timeformat]
+                append element " $timestamp"
+            }
+            append rss "<description>$element</description>\n"
+        }
+        append rss "</item>\n"
+    }
+
+    append rss "</channel>\n"
+    append rss "</rss>\n"
+    
+    return $rss
+
+}
+
+ad_proc rss_gen {
+    {
+        -version                        .91
+        -channel_title                  ""
+        -channel_link                   ""
+        -channel_description            ""
+        -image                          ""
+        -items                          ""
+        -channel_language               "en-us"
+        -channel_copyright              ""
+        -channel_managingEditor         ""
+        -channel_webMaster              ""
+        -channel_rating                 ""
+        -channel_pubDate                ""
+        -channel_lastBuildDate          ""
+        -channel_skipDays               ""
+        -channel_skipHours              ""
+    }
+} { 
+    <pre>
+    Generates an RSS XML doc given channel information and item
+    information.  Supports versions .91 and 1.0.
+
+    Does not determine if field lengths are valid, nor does it
+    determine if field values are of the proper type.
+
+    Doesn't support textInput forms
+
+    Merely creates the XML doc.  GIGO and caveat emptor.
+
+    version is 0.91 or 1.0.  If not present, defaults to 0.91
+    
+    the default image is openacs/www/graphics/openacs_logo_rss.gif 
+
+    For 0.91, 
+    pubdate, copyright, lastbuildate, skipdays, skiphours,
+    webmaster, managingeditor fields,
+    if not specified are not included in the xml.
+
+    the image parameter is a property list of:
+      url $url title $title link $link 
+          [width $width] [height $height] [description $description]
+      where the elements within brackets are optional
+
+    items are a list of property lists, one for each item
+      title $title link $link description $description
+
+    Spec/channel docs url for 0.91 is
+    http://backend.userland.com/stories/rss091
+    
+    For 1.0
+    Spec can be found at
+    http://groups.yahoo.com/group/rss-dev/files/specification.html
+    The 1.0 spec is very primitive: my needs are primitive as of yet,
+    and I don't grok the rss 1.0 modules stuff as yet.  Whoops p'gazonga.
+    
+    </pre>
+} {
+    set rss "<?xml version=\"1.0\"?>\n"
+    switch $version {
+        100 -
+        1.00 -
+        1.0 -
+        1 {
+            set rss [rss_gen_100                                         \
+                    -channel_title           $channel_title              \
+                    -channel_link            $channel_link               \
+                    -channel_description     $channel_description        \
+                    -image                   $image                      \
+                    -items                   $items                      \
+                    ]
+        }
+        default {
+
+            set rss [rss_gen_091                                         \
+                    -channel_title           $channel_title              \
+                    -channel_link            $channel_link               \
+                    -channel_description     $channel_description        \
+                    -channel_language        $channel_language           \
+                    -channel_copyright       $channel_copyright          \
+                    -channel_managingEditor  $channel_managingEditor     \
+                    -channel_webMaster       $channel_webMaster          \
+                    -channel_rating          $channel_rating             \
+                    -channel_pubDate         $channel_pubDate            \
+                    -channel_lastBuildDate   $channel_lastBuildDate      \
+                    -channel_skipDays        $channel_skipDays           \
+                    -channel_skipHours       $channel_skipHours          \
+                    -image                   $image                      \
+                    -items                   $items                      \
+                    ]
+
+        }
+    }
+    return $rss
+}
+
+proc_doc rss_lang_widget {{selected_lang en}} {
+    creates an html-select field widget with lots of html language
+    choices in it
+} {
+    foreach {value lang} {
+        af {Afrikaans}
+        sq {Albanian}
+        eu {Basque}
+        be {Belarusian}
+        bg {Bulgarian}
+        ca {Catalan}
+        zh-cn {Chinese (Simplified)}
+        zh-tw {Chinese (Traditional)}
+        hr {Croatian}
+        cs {Czech}
+        da {Danish}
+        nl {Dutch}
+        nl-be {Dutch (Belgium)}
+        nl-nl {Dutch (Netherlands)}
+        en {English}
+        en-au {English (Australia)}
+        en-bz {English (Belize)}
+        en-ca {English (Canada)}
+        en-ie {English (Ireland)}
+        en-jm {English (Jamaica)}
+        en-nz {English (New Zealand)}
+        en-ph {English (Phillipines)}
+        en-za {English (South Africa)}
+        en-tt {English (Trinidad)}
+        en-gb {English (United Kingdom)}
+        en-us {English (United States)}
+        en-zw {English (Zimbabwe)}
+        fo {Faeroese}
+        fi {Finnish}
+        fr {French}
+        fr-be {French (Belgium)}
+        fr-ca {French (Canada)}
+        fr-fr {French (France)}
+        fr-lu {French (Luxembourg)}
+        fr-mc {French (Monaco)}
+        fr-ch {French (Switzerland)}
+        gl {Galician}
+        gd {Gaelic}
+        de {German}
+        de-at {German (Austria)}
+        de-de {German (Germany)}
+        de-li {German (Liechtenstein)}
+        de-lu {German (Luxembourg)}
+        de-ch {German (Switzerland)}
+        el {Greek}
+        hu {Hungarian}
+        is {Icelandic}
+        in {Indonesian}
+        ga {Irish}
+        it {Italian}
+        it-it {Italian (Italy)}
+        it-ch {Italian (Switzerland)}
+        ja {Japanese}
+        ko {Korean}
+        mk {Macedonian}
+        no {Norwegian}
+        pl {Polish}
+        pt {Portuguese}
+        pt-br {Portuguese (Brazil)}
+        pt-pt {Portuguese (Portugal)}
+        ro {Romanian}
+        ro-mo {Romanian (Moldova)}
+        ro-ro {Romanian (Romania)}
+        ru {Russian}
+        ru-mo {Russian (Moldova)}
+        ru-ru {Russian (Russia)}
+        sr {Serbian}
+        sk {Slovak}
+        sl {Slovenian}
+        es {Spanish}
+        es-ar {Spanish (Argentina)}
+        es-bo {Spanish (Bolivia)}
+        es-cl {Spanish (Chile)}
+        es-co {Spanish (Colombia)}
+        es-cr {Spanish (Costa Rica)}
+        es-do {Spanish (Dominican Republic)}
+        es-ec {Spanish (Ecuador)}
+        es-sv {Spanish (El Salvador)}
+        es-gt {Spanish (Guatemala)}
+        es-hn {Spanish (Honduras)}
+        es-mx {Spanish (Mexico)}
+        es-ni {Spanish (Nicaragua)}
+        es-pa {Spanish (Panama)}
+        es-py {Spanish (Paraguay)}
+        es-pe {Spanish (Peru)}
+        es-pr {Spanish (Puerto Rico)}
+        es-es {Spanish (Spain)}
+        es-uy {Spanish (Uruguay)}
+        es-ve {Spanish (Venezuela)}
+        sv {Swedish}
+        sv-fi {Swedish (Finland)}
+        sv-se {Swedish (Sweden)}
+        tr {Turkish}
+        uk {Ukranian}
+    } {
+        
+        if {[string equal $value $selected_lang]} {
+            set selected SELECTED
+        } else {
+            set selected ""
+        }
+        
+        lappend options "<option value='$value' $selected>$lang"
+        
+    }
+    return "\n\n<select name=lang>\n[join $options \n]\n</select>\n\n
+    "
+}
+
+###
+# simple httppost to weblogs
+###
+
+proc_doc rss_weblogUpdatesping {
+    blog_title
+    blog_url
+    {location http://rpc.weblogs.com/RPC2}
+    {timeout 30}
+    {depth 0}
+} {
+    sends the xml/rpc message weblogUpldates.ping to weblogs.com
+    returns 1 if successful and logs the result
+} {
+    ns_log notice rss_weblogupdatesping:
+    if [catch {
+        if {[incr depth] > 10} {
+            return -code error "rss_weblogUpdatesping:  Recursive redirection:  $location"
+        }
+        set req_hdrs [ns_set create]
+
+        set message "<?xml version=\"1.0\"?>
+<methodCall>
+  <methodName>weblogUpdates.ping</methodName>
+  <params>
+    <param>
+      <value>[ad_quotehtml $blog_title]</value>
+    </param>
+    <param>
+      <value>[ad_quotehtml $blog_url]</value>
+    </param>
+  </params>
+</methodCall>"
+
+        # headers necesary for a post and the form variables
+        ns_set put $req_hdrs "Content-type" "text/xml"
+        ns_set put $req_hdrs "Content-length" [string length $message]
+        set http [ns_httpopen POST $location $req_hdrs 30 $message]
+        set rfd [lindex $http 0]
+        set wfd [lindex $http 1]
+        set rpset [lindex $http 2]
+
+        flush $wfd
+        close $wfd
+
+    ns_log notice rss_weblogupdatesping: pinging for blog $blog_title and url $blog_url
+    ns_log notice message: \"$message\"
+
+        set headers $rpset
+        set response [ns_set name $headers]
+        set status [lindex $response 1]
+        if {$status == 302} {
+            set location [ns_set iget $headers location]
+            if {$location != ""} {
+                ns_set free $headers
+                close $rfd
+                return [rss_weblogUpdatesping $blog_title $blog_url $location $timeout $depth]
+            }
+        }
+        set length [ns_set iget $headers content-length]
+        if [string match "" $length] {set length -1}
+        set err [catch {
+            while 1 {
+                set buf [_ns_http_read $timeout $rfd $length]
+                append page $buf
+                if [string match "" $buf] break
+                if {$length > 0} {
+                    incr length -[string length $buf]
+                    if {$length <= 0} break
+                }
+            }
+        } errMsg]
+        ns_set free $headers
+        close $rfd
+        if $err {
+            global errorInfo
+            return -code error -errorinfo $errorInfo $errMsg
+        }
+    } errmsg ] {
+        ns_log error rss_weblogUpdatesping error: $errmsg
+        return -1
+    } else {
+        ns_log notice rss_weblogUpdatesping: $page
+        return 1
+    }
+}
+
Index: openacs-4/packages/rss-support/www/doc/index.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/doc/index.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rss-support/www/doc/index.html	4 Nov 2001 23:17:40 -0000	1.1
@@ -0,0 +1,124 @@
+<html>
+<head>
+<title>RSS Support</title>
+</head>
+<body bgcolor=white>
+<h2>RSS Support</h2>
+by <a href="mailto:aegrumet@alum.mit.edu">Andrew Grumet</a>,
+<a href="mailto:jerry@theashergroup.com">Jerry Asher</a> and
+<a href="mailto:dave@thedesignexperience.org">Dave Bauer</a>
+<hr>
+
+<p>
+
+From the <a href="http://groups.yahoo.com/group/rss-dev/files/specification.html">specification</a>,
+
+<blockquote><em>
+RDF Site Summary (RSS) is a lightweight multipurpose extensible
+metadata description and syndication format. RSS is an XML
+application, conforms to the W3C's RDF Specification and is extensible
+via XML-namespace and/or RDF based modularization.
+</em></blockquote>
+
+This service package provides low-level support for generating and parsing RSS feeds.
+
+<h3>1. Feed generation</h3>
+
+Feed generation is the process of summarizing local content as RSS
+xml.  To generate a feed we need to know
+<ul>
+<li> the site context whose content is to be summarized,
+<li> how to retrieve the various required and optional metadata fields
+<li> whether any changes have been made since the last summary was built
+<li> how often to rebuild the summary (if changes are present)
+</ul>
+
+The last item is included with an eye toward performance.  In the
+event that a particular summary is expensive to produce, we may opt
+to rebuild at most every N minutes (or hours, or days).
+
+<p>
+
+<b>Usage scenarios</b>
+
+<ul>
+
+<li>Publisher wishes to syndicate the Bar Forum in the Foo Bboard package instance.
+
+<li>Luckily, the bboard package implements the summary service contract for
+    context type bboard:forum of which the Bar Forum is an example.
+
+<li>Programmer registers the context identifier for the Bar Forum with
+summary service, indicating that the summary should be built no more
+than once per hour.
+
+<li>Summary is available at /some/url/specific/to/bar/forum/summary.xml
+
+</ul>
+
+
+<p>
+
+<b>Service contract</b>
+
+<p>
+
+The feed generation service contract consists of two operations.
+
+<ol>
+<li><code>RssGenDatasource</code>.  The return value of RssGenDatasource
+contains all required metadata fields as well as configuration
+information such as the RSS version to be used (0.91 or 1.00 are
+supported at present).
+<li><code>RssLastUpdated</code>.  Used to determine if the live summary
+is out of date.
+</ol>
+
+<p>
+
+<b>Under the hood</b>
+
+<p>
+
+Implementation suggestions:
+
+<ol>
+<li>All summaries are static files.  We will devise an appropriate file-naming scheme.
+
+<li>A programmer registers a context with the summary service through API functions
+    (we can make it possible through web UI as well if that makes sense).
+
+<li>A summary context is a content-containing domain which implements
+    the summary service contract.  A summary context is not identical
+    to a package instance.  For example, a single bboard package
+    instance might contain 3 summary contexts, one for each of the
+    forums in the instance.
+
+<li>A scheduled proc runs through all registered contexts, checking to see if the
+    live summary is stale and also if the minimum "quiet time" has elapsed.
+
+<li>If the conditions for rebuild are met for a context, the scheduled proc pulls
+    out the context's summary data via <code>RssGenDatasource</code> and uses the
+    information to build a new summary page.  This generic and simple scheme
+    can be used to dispatch different versions of the summary builder as well 
+    as to support extensibility via modules. <font color=red>Warning:</font>
+    This design expects the output of RssGenDatasource to be reasonably small,
+    as we will have to parse this list-of-lists to generate a summary.
+
+</ol>
+
+<h3>2. Feed Parsing</h3>
+
+(aeg's vague ideas: needs can vary.  I can imagine slurping the content into
+the db or converting to includable ADPs using XSLT.  Service contract
+operations are used to generate mappings to RDBMS tables or stylesheets.
+
+
+<hr>
+<address>
+<a href="mailto:aegrumet@alum.mit.edu">aegrumet@alum.mit.edu</a>,
+<a href="mailto:jerry@theashergroup.com">jerry@theashergroup.com</a>,
+<a href="mailto:dave@thedesignexperience.org">dave@thedesignexperience.org</a>
+
+</body>
+</html>