Patch title: Release 92 bulk changes
Abstract:
File: /protocol/http/proxy.page
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "proxy.pli"


para
  [User name: ] ; fixed (text http_request:user_name) ; eol
  input "Password: " (var Str password) password noeol
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "proxy.pli"


para
  [User name: ] ; fixed (text http_request:user_name) ; eol
  input "Password: " (var Str password) password noeol
  page button "Start proxy"
  page button "Start proxy" noeol
    var Str user := http_request user_name
    if user<>"" and password<>""
      if user_secret_database:data:user:user:key_md5<>"" and
        http_proxy_running := false
        text "Password for '"+user+"' is wrong."
        sleep 1
        return
      http_proxy_user := user
      http_proxy_password := password
      http_proxy_ports := var (Dictionary Str Int) empty_dic
      each s site_database:data:site
        if s:public_key<>""
          var Int port := 80
          if s:port=defined
            port := s port
          eif s:computer<>""
            var Data:NameHost h :> name_database:data:host s
            if h:http_port=defined
              port := h http_port
          http_proxy_ports insert keyof:s port
      each h name_database:data:host
        if h:public_key<>""
          http_proxy_ports insert keyof:h (shunt h:http_port
    else
      http_proxy_user := ""
      http_proxy_password := ""
      http_proxy_ports := var (Dictionary Str Int) empty_dic
    http_proxy_browser := http_request browser
    http_proxy_running := true
    reload_page
    var Str user := http_request user_name
    if user<>"" and password<>""
      if user_secret_database:data:user:user:key_md5<>"" and
        http_proxy_running := false
        text "Password for '"+user+"' is wrong."
        sleep 1
        return
      http_proxy_user := user
      http_proxy_password := password
      http_proxy_ports := var (Dictionary Str Int) empty_dic
      each s site_database:data:site
        if s:public_key<>""
          var Int port := 80
          if s:port=defined
            port := s port
          eif s:computer<>""
            var Data:NameHost h :> name_database:data:host s
            if h:http_port=defined
              port := h http_port
          http_proxy_ports insert keyof:s port
      each h name_database:data:host
        if h:public_key<>""
          http_proxy_ports insert keyof:h (shunt h:http_port
    else
      http_proxy_user := ""
      http_proxy_password := ""
      http_proxy_ports := var (Dictionary Str Int) empty_dic
    http_proxy_browser := http_request browser
    http_proxy_running := true
    reload_page
para
  button "Stop proxy"
  button "Stop proxy" noeol
    http_proxy_browser := ""
    http_proxy_running := false
    http_proxy_user := ""
    http_proxy_password := ""
    http_proxy_ports := var (Dictionary Str Int) empty_dict
    reload_page


    http_proxy_browser := ""
    http_proxy_running := false
    http_proxy_user := ""
    http_proxy_password := ""
    http_proxy_ports := var (Dictionary Str Int) empty_dict
    reload_page