DZone Snippets: pictures code

newLISP code to fetch flickr interesting photos and display on screen via TK

frontera000 (bob bae) — Fri, 08 Sep 2006 01:42:47 GMT

// simple newLISP code to fetch interesting pictures from
// flickr and display on the monitor using TK



(set 'api "/services/rest")

(set 'apikey "YOUR-OWN-KEY-HERE")

(set 'host "http://flickr.com")

(set 'email "")

(set 'password "")



(define (doget method auth params)

  (setq url (append host api "/?api_key=" apikey "&method=" method))

  (if (list? params) 

   (setq url (append url "&" (urlencode params))))

  (if (not (nil? auth)) 

   (setq url (append url "&email=" email "&password=" password)))

  (setq xmldata (get-url url)))





(define (urlencode params)

  (setq urlstring "")

  (dolist (param1 params) 

   (if (not (= urlstring "")) 

    (setq urlstring (append urlstring "&"))) 

   (setq urlstring (append urlstring (nth 0 param1) "=" (nth 1 param1)))))



(define (xmlconvert data)

  (xml-type-tags nil nil nil nil)

  (setq sxmldata (xml-parse data (+ 1 2 4 8 16))))

  

(define (getphotos data)

  (if (ref 'photo sxmldata) 

   (setq photolist (slice (data (chop (ref 'photo data) 2)) 2 -1)) 

   (setq photolist '())))



(define (handlephotos sxmldata)

  (dolist (aphoto (getphotos sxmldata)) 

   (setq pr (first (rest aphoto))) 

   (print (format "http://static.flickr.com/%s/%s_%s_o.jpg" (lookup 

      'server pr) 

     (lookup 'id pr) 

     (lookup 'secret pr)))))



(define (fiv)

  (tk "package require Img")

  (tk "destroy .fivwin")

  (tk "toplevel  .fivwin")

  

  (tk "wm geometry .fivwin [winfo screenwidth .]x[winfo screenheight .]+0+0")

  

  ;; uncomment the following lines to make display "fullscreen"

  ;;(tk "bind .fivwin  {destroy .fivwin}")

  ;;(tk "bind .fivwin  {destroy .fivwin}")

  ;;(tk "bind .fivwin

How to download files with Ruby

TDonaghe (Terry Donaghe) — Fri, 25 Aug 2006 19:59:34 GMT

// Note: the "b" in "wb" in the open method may not be needed in
// non-Windows environments. In Windows it indicates that you're writing
// binary information. You probably won't need it for downloading straight text
// or html either.



require 'net/http'



Net::HTTP.start("static.flickr.com") { |http|

  resp = http.get("/92/218926700_ecedc5fef7_o.jpg")

  open("fun.jpg", "wb") { |file|

    file.write(resp.body)

   }

}

puts "Yay!!"

Download recent flickr pictures with ruby and the flickr api

TDonaghe (Terry Donaghe) — Fri, 25 Aug 2006 19:51:25 GMT

// To make this work, you need to get your own flickr api key.
// Get one here: http://www.flickr.com/services/api/misc.api_keys.html
// Other than that, just plug and chug and have fun!
// The "b" in "wb" in the second open method may not be necessary in
// non-windows environments.



require 'open-uri'

require 'rexml/document'



open('http://www.flickr.com/services/rest/?method=flickr.photos.getRecent&api_key=YOUR_KEY_HERE') { |f|

    doc = REXML::Document.new f.read

    i = 0

    doc.elements.each("rsp/photos/photo") { |element|

        if i < 3

            open("images/file" << i.to_s << ".jpg", "wb").

                write(open("http://static.flickr.com/" << \

                element.attributes["server"] << "/" << \

                element.attributes["id"] << "_" << \

                element.attributes["secret"] << "_o.jpg").read)

        else

            break

        end

        i = i + 1

    }

}



puts "Done!"