Patch title: Release 85 bulk changes
Abstract:
File: /pliant/util/network/forward.page
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/util/crypto/proxy.pli"


var Int src_port := 579
module "/pliant/language/stream.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/util/crypto/proxy.pli"


var Int src_port := 579
var Bool src_secured := false
var Int dest_port := 580
var Str dest_ip := ""
var Int dest_port := 580
var Str dest_ip := ""
var Bool dest_secured := false


input "Source port: " src_port length 4
input "Destination port: " dest_port length 4
input "Destination IP: " dest_ip length 15
page button "Start forwarding"
para
  input "Source port: " src_port length 4
  select "Source mode: " src_secured
    option "clear" "false"
    option "secured" "true"
para
  input "Destination IP or name: " dest_ip length 15
  input "Destination port: " dest_port length 4
  select "Destination mode: " dest_secured
    option "clear" "false"
    option "secured" "true"
page button "Start forwarding" noeol
  please_stop := true
  (var Stream s) open "tcp://127.0.0.1/client/"+string:port 
  s close
  sleep 0.1
  port := src_port
  please_stop := false
  thread
    part forward "forward TCP port "+string:src_port
  please_stop := true
  (var Stream s) open "tcp://127.0.0.1/client/"+string:port 
  s close
  sleep 0.1
  port := src_port
  please_stop := false
  thread
    part forward "forward TCP port "+string:src_port
      proxy "tcp:/server/"+string:src_port "tcp://"+dest_ip+
      proxy (shunt src_secured "zchannel:/server/" "tcp:/server/")+string:src_port (shunt dest_secured "zchannel://"+dest_ip+"/site/"+string:dest_port+"/"+computer_fullname "tcp://"+dest_ip+"/client/"+string:dest_port) true please_stop
  reload_page

page button "Stop forwarding"
  please_stop := true
  (var Stream s) open "tcp://127.0.0.1/client/"+string:port 
  s close
  reload_page
  
  reload_page

page button "Stop forwarding"
  please_stop := true
  (var Stream s) open "tcp://127.0.0.1/client/"+string:port 
  s close
  reload_page