tclsh httpwiki eget http://www.purl.org/mini/cgi-bin/wikit 33 > 33

 {.+<textarea .+>(.*)</textarea>}

  #!/usr/bin/tclsh
  package require http 1.0

  proc getpage {wikiurl N} {
    set s [http_data [http_get $wikiurl/${N}@]]
    if {[regexp "\n<textarea \[^\n>\]*>\n(.*)\n</textarea>" $s -> text]} {
      regsub -all {\&quot;} $text {"} text
      regsub -all {\&lt;}   $text {<} text
      regsub -all {\&gt;}   $text {>} text
      regsub -all {\&amp;}  $text {&} text
    } else {
      error "Bad edit page"
    }
    return $text
  }

  proc sendpage {wikiurl N text} {
    set answer [http_data [http_get $wikiurl/$N.html \
        -query [http_formatQuery C $text]]]
  }

  proc emacsheader {argv0 wikiurl N} {
    return \
  "; To send back the edited version, place the cursor at the beginning
  ; of the first non-void line after the S-expression and do a C-x C-e.
  ;
  (shell-command-on-region (point) (point-max)
    \"$argv0 send $wikiurl $N\")\n\n\n"
  }

  if {$argc!=3} {
    puts stderr "Usage: $argv0 get|eget|send wikiurl pagenumber"
    puts stderr "Example: $argv0 eget http://www.purl.org/mini/cgi-bin/wikit 33 | tee 33"
    puts stderr "  then edit the file \"33\" with Emacs and follow the instructions there."
    exit 1
  }
  foreach {action wikiurl N} $argv {}

  switch $action {
    get {
      puts -nonewline [getpage $wikiurl $N]
    }
    eget {
      puts -nonewline "[emacsheader $argv0 $wikiurl $N][getpage $wikiurl $N]"
    }
    send {
      sendpage $wikiurl $N [read stdin]
    }
    default {
      puts stderr "Bad action!"
      exit 1
    }
  }

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References