[HJG] Someone has uploaded a lot of pictures to [Flickr],
and I want to show them someplace where no internet is available.

The pages at Flickr have a lot of links, icons etc.,
so a simple recursive download with e.g. wget would fetch lots of unwanted stuff.
Of course, I could tweak the parameters for calling wget (-accept, -reject, etc.),
but doing roughtly the same thing in Tcl looks like more fun :-)

So the first step is to downloading the html-pages from that person,
extract the links to the photos from them,
then download the photo-pages (containing titles and descriptions),
and the pictures in the selected size.

Then we can make our [Flickr Offline Photoalbum].

First draft for the download:
  package require http

  proc getPage { url } {
       set token [::http::geturl $url]
       set data [::http::data $token]
       ::http::cleanup $token
       return $data
  }

 #catch {console show}	;##

  set url http://www.flickr.com/photos/siegfrieden
  set filename "s01.html"

  set url http://www.flickr.com/photos/siegfrieden/page2
  set filename "s02.html"

  set data  [ getPage $url ]
 #puts "$data"		;##
  set fileId [open $filename "w"]
  puts -nonewline $fileId $data
  close $fileId

  set n 0
  foreach line [split $data \n] {
    if {[regexp -- "<title>" $line]} { 
      puts "1: $line\n"; incr n 
    }
  }  

This will only get the first html-page,
so the next step is to also get the other pages, 
extract all the informations we need,
and then fetch the pictures.

Strings to look for:
   * "<title>"       - Title for album
   * "h4"            - Title for an image
   * (class="Desc")  - Description for an image (if present)
   * (class="Photo") - Links to preview-image and page with a single photo
   * (class="end")   - Link to last album-page
   * -
   * "profile"       - Link to profile-page of album-owner
   * "/page"         - Links to more album-pages


...


----
See also:
   * [http] - [Download file via HTTP]
   * [A little file searcher] - [incrfilter]

----
[Category Internet] - [Category File]