Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] random music videos

From: ryan:christiansen:intellisol at: 31-May-2001 12:56

If you'd like to view a random music video from the farmclub.com music video archives, go to this handy-dandy REBOL music video grabber... http://www.fargonews.com/cgi-bin/musicvideo.cgi You WILL get a Javascript error. Just click "no" about debugging and the video will play anyway. I don't know Javascript very well. If someone else can help me fix that error, then great. Also, if the script doesn't retrieve a music video, just hit refresh. The script is using a random number for the video id and such a video may not exist after all. Enjoy! Here's the code. #!rebol -cs REBOL [] read-random-video: func [ vid-id ][ video-url: make url! (rejoin [{http://www.farmclub.com/watch/videovault/me/vv_redirect?video_id=} video-id {&m=}]) read video-url ] random/seed now if error? try [ video-id: random 11404 video-page: read-random-video video-id ][ video-id: random 11404 video-page: read-random-video video-id ] parse video-page [thru <!-- nav_middle --> copy text to <!--END VIDEO DISPLAY--> (video-javascript: copy text)] print "Content-Type: text/html^/" ;-- Required Page Header print rejoin [{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE></TITLE></HEAD><BODY>} video-javascript {</BODY></HTML>}] -Ryan