RSS in on-rev

[Pierre Sahores]

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
> use-revolution at lists.runrev.com
> 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