David,
function RSSFeedUpdate tcontents,turl,tdir
put url ("file:/" & tdir & "/" & turl) into tvar
if (turl is "Blog/woooooooords_w_rss.xml" and word 1 to 4 of the
internet date is not in tvar and item 1 of the internet date is
"sun") \
or (turl is "Blog/woooooooords_d_rss.xml" and word 1 to 4 of the
internet date is not in tvar) then
put the seconds into tseconds
put "<item>" & cr & \
"<title>" & line 1 of tcontents & word 1 to - 2 of the internet
date && "-0500)</title>" & cr & \
"<link>http://www.woooooooords.com/</link>" & cr & \
"<description>" & line 2 to -1 of tcontents & cr & "</
description>" & cr & \
"<pubDate>" & word 1 to -2 of the internet date && "-0500</
pubDate>" & cr & \
"<guid>http://www.woooooooords.com/woooooooords.irev?rss_news="; &
item random(2) of "wo8rdsca,wo8rdsco" & "_date=" & tseconds & "</
guid>" & cr & \
"</item>" into trss_new
if "<link>http://www.woooooooords.com/</link>" & cr & \
"<description>" & line 2 to -1 of tcontents & cr & "</
description>" & cr & "<pubDate>" is not in tvar then
put offset("<lastBuildDate>",tvar) & "," & 15+offset("</
lastBuildDate>",tvar) into tipoint
put "<lastBuildDate>" & word 1 to - 2 of the internet date &&
"-0500</lastBuildDate>" & cr & cr & \
trss_new into char item 1 of tipoint to item 2
of tipoint of tvar
open file (tdir & "/" & turl) for write
write tvar to file (tdir & "/" & turl)
close file (tdir & "/" & turl)
put url ("binfile:" & char 1 to 5+offset("/k-max",the directory)
of the directory & "/Blog/zimages/w8logoprog24.jpg") into \
url ("binfile:" & char 1 to 5+offset("/k-max",the directory) of
the directory & "/Resources/w8logoprog.jpeg")
end if
end if
end RSSFeedUpdate
HTH,
Le 27 janv. 10 à 22:04, David Brooks a écrit :
I'm teaching a course from on-rev. We keep a home-grown message
service going. One person has asked for RSS (really simple
syndication) for this system.
Has anyone tried setting up RSS with RunRev?
Has anyone tried setting up RSS on on-rev?
Suggestions and/or appreciated.
Best,
Dave B._______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
--
Pierre Sahores
mobile : (33) 6 03 95 77 70
www.woooooooords.com
www.sahores-conseil.com
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
