Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.107 -r1.108
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	8 Nov 2007 08:56:56 -0000	1.107
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	8 Nov 2007 13:18:10 -0000	1.108
@@ -818,7 +818,40 @@
   }
 }
 
+namespace eval ::xowiki::portlet {
+  #############################################################################
+  #
+  # list the most frequent visitors
+  #
 
+  ::xowiki::PortletClass create rss-client \
+      -superclass ::xowiki::Portlet \
+      -parameter {
+        {title "RSS client"}
+        {parameter_declaration {
+          {-url:required}
+          {-max_entries:integer "15"}
+        }}
+      }
+  
+  rss-client instproc render {} {
+    my get_parameters
+    set feed [::xowiki::RSS-client new -url $url -volatile]
+    my msg "feed=$feed"
+    set channel [$feed channel]
+    my msg "channel=$channel"
+    set html "<H1>[$channel title]</H1>"
+    append html "<UL>\n"
+    foreach item [ $feed items ] {
+      #my msg "[$item title]"
+      append html "<LI><B>[$item title]</B><BR> [$item description] <a href='[$item link]'>...</a>\n"
+    }
+    append html "</UL>\n"
+    return $html
+  }
+
+}
+
 namespace eval ::xowiki::portlet {
   #############################################################################
   #