Patch title: Release 94 bulk changes
Abstract:
File: /pliant/util/crypto/synchronize.page
Key:
    Removed line
    Added line
module "synchronize.pli"

requires "administrator"

title "Remote tree synchronize"

para
  input "Source site: " (var Str src_site) noeol ; [ (leave blank if you synchronize from local computer)] ; eol
  input "Source path: " (var Str src_path) length 40
para
  input "Destination site: " (var Str dest_site)
  input "Destination path: " (var Str dest_path) length 40 noeol ; [ (leave blank if same as source path)] ; eol
para
  var Str user := http_request user_name
  input "User: " (var Str user)
  input "Password: " (var Str password) password
  var Str simulate := "simulate"
  select "Do a simulation first: " simulate
    option "no" ""
    option "yes" "simulate"
    option "yes (including touched only files discovery)" "simulate touched"
  var Str mode := ""
  select "Copy mode: " mode
    option "copy and delete" ""
    option "copy only" " nodelete"
para
  page button "Synchronize"
    if simulate<>""
      para
        text "Synchronize" ; eol
        text "from "+src_path+(shunt src_site<>"" " on "+src_site "") ; eol
        text "to "+(shunt dest_path<>"" dest_path src_path)+(shunt dest_site<>"" " on "+dest_site "") ; eol
      if (file_tree_synchronize src_site src_path dest_site (shunt dest_path<>"" dest_path src_path) user password simulate)=success
      if (file_tree_synchronize src_site src_path dest_site (shunt dest_path<>"" dest_path src_path) user password simulate+mode)=success
        page button "Synchronize (real mode)"
          if (file_tree_synchronize src_site src_path dest_site (shunt dest_path<>"" dest_path src_path) user password "")=success
          if (file_tree_synchronize src_site src_path dest_site (shunt dest_path<>"" dest_path src_path) user password mode)=success
            goto_backward
    else
      if (file_tree_synchronize src_site src_path dest_site (shunt dest_path<>"" dest_path src_path) user password "")=success
      if (file_tree_synchronize src_site src_path dest_site (shunt dest_path<>"" dest_path src_path) user password mode)=success
        reload_page