#!/usr/bin/gosh ;;; ;;; wiliki/rssmix - Fetch and show RSSs ;;; ;;; Copyright (c) 2003-2004 Shiro Kawai, All rights reserved. ;;; ;;; Permission is hereby granted, free of charge, to any person ;;; obtaining a copy of this software and associated documentation ;;; files (the "Software"), to deal in the Software without restriction, ;;; including without limitation the rights to use, copy, modify, ;;; merge, publish, distribute, sublicense, and/or sell copies of ;;; the Software, and to permit persons to whom the Software is ;;; furnished to do so, subject to the following conditions: ;;; ;;; The above copyright notice and this permission notice shall be ;;; included in all copies or substantial portions of the Software. ;;; ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS ;;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN ;;; AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF ;;; OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. ;;; ;;; $Id: rssmix.cgi,v 1.12 2004/05/23 22:57:52 shirok Exp $ ;;; ;; *EXPERIMENTAL* (use wiliki.rssmix) (define (main args) (rss-main (make <rssmix> :db-name "/home/csw/data/rssmix.dbm" :sites '(("Community-Scheme-Wiki" "http://community.schemewiki.org/cgi-bin/scheme.cgi" "http://community.schemewiki.org/cgi-bin/scheme.cgi?c=rss") ("WiLiKi" "http://www.shiro.dreamhost.com/scheme/wiliki/wiliki.cgi" "http://www.shiro.dreamhost.com/scheme/wiliki/wiliki.cgi?c=rss") ("SchemeXref" "http://www.shiro.dreamhost.com/scheme/wiliki/schemexref.cgi" "http://www.shiro.dreamhost.com/scheme/wiliki/schemexref.cgi?c=rss")) ;;Add More sites that have RSS and are relative to scheme :title "CommunitySchemeWikiRSSMix: Recent Entries"))) ;; Local variables: ;; mode: scheme ;; end: