Patch title: Release 91 bulk changes
Abstract:
File: /fullpliant/export.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/linux/kernel/module.pli"
module "/pliant/fullpliant/computer.pli"
module "/pliant/linux/schedule/process.pli"


function export_nfs_start
module "/pliant/fullpliant/computer.pli"
module "/pliant/linux/schedule/process.pli"


function export_nfs_start
  execute "insmod sunrpc" quiet
  execute "insmod lockd" quiet
  execute "insmod nfsd" quiet
  kernel_load_module "sunrpc"
  kernel_load_module "lockd"
  kernel_load_module "nfsd"
  execute "portmap" root "embedded:/" path "embedded:/" # us
  sleep 1
  execute "rpc.nfsd" root "embedded:/" path "embedded:/" # u
  (var Stream s) open "embedded:/etc/exports" out+mkdir+safe
  each c computer
    if c:env:"pliant":"system":"medium"="nfs"
      var Str ip := name_ip keyof:c
      if ip<>""
        file_tree_create "embedded:/export/diskless/"+keyof:
        s writeline "/export/diskless/"+keyof:c+" "+ip+"(rw,
  each e this_computer:env:"export"
    if e:"protocol"="nfs" or e:"protocol"="all"
      file_tree_create e:"path"
      if ((file_os_name e:"path") parse (pattern file_os_nam
        s writeline "/"+subpath+" ("+(shunt e:"mode"="rw" "r
      else
        console "Cannot export " e:"path" " through NFS sinc
  plugin nfs_configure
  s close
  execute "rpc.mountd" root "embedded:/" path "embedded:/" #
  sleep 1
  execute "exportfs -a" root "embedded:/" path "embedded:/" 

function export_nfs_stop
  process_kill "rpc.mountd"
  process_kill "nfsd" "force"
  sleep 1
  process_kill "portmap"
  sleep 1
  execute "portmap" root "embedded:/" path "embedded:/" # us
  sleep 1
  execute "rpc.nfsd" root "embedded:/" path "embedded:/" # u
  (var Stream s) open "embedded:/etc/exports" out+mkdir+safe
  each c computer
    if c:env:"pliant":"system":"medium"="nfs"
      var Str ip := name_ip keyof:c
      if ip<>""
        file_tree_create "embedded:/export/diskless/"+keyof:
        s writeline "/export/diskless/"+keyof:c+" "+ip+"(rw,
  each e this_computer:env:"export"
    if e:"protocol"="nfs" or e:"protocol"="all"
      file_tree_create e:"path"
      if ((file_os_name e:"path") parse (pattern file_os_nam
        s writeline "/"+subpath+" ("+(shunt e:"mode"="rw" "r
      else
        console "Cannot export " e:"path" " through NFS sinc
  plugin nfs_configure
  s close
  execute "rpc.mountd" root "embedded:/" path "embedded:/" #
  sleep 1
  execute "exportfs -a" root "embedded:/" path "embedded:/" 

function export_nfs_stop
  process_kill "rpc.mountd"
  process_kill "nfsd" "force"
  sleep 1
  process_kill "portmap"
  sleep 1
  execute "rmmod nfsd" quiet
  execute "rmmod lockd" quiet
  execute "rmmod sunrpc" quiet
  kernel_unload_module "nfsd"
  kernel_unload_module "lockd"
  kernel_unload_module "sunrpc"


function export_samba_start
  var Str name := computer_name ; os_sethostname name:charac
  (var Stream s) open "embedded:/etc/samba/smb.conf" out+mkd
  s writeline "[lb]global[rb]"
  s writeline "  security = share"


function export_samba_start
  var Str name := computer_name ; os_sethostname name:charac
  (var Stream s) open "embedded:/etc/samba/smb.conf" out+mkd
  s writeline "[lb]global[rb]"
  s writeline "  security = share"
  # s writeline "  max connections = 0"
  s writeline ""
  each e this_computer:env:"export"
    if e:"protocol"="samba" or e:"protocol"="all"
      if ((file_os_name e:"path") parse (pattern file_os_nam
        file_tree_create e:"path"
        s writeline "[lb]"+keyof:e+"[rb]"
        s writeline "  path = /"+subpath
        s writeline "  public = yes"
        s writeline "  writable = "+(shunt e:"mode"="rw" "ye
      else
        console "Cannot export " e:"path" " through Samba si
  plugin samba_configure
  s close
  # execute "nmbd" root "embedded:/" path "embedded:/" # use
  execute "smbd" root "embedded:/" path "embedded:/" # user 


  s writeline ""
  each e this_computer:env:"export"
    if e:"protocol"="samba" or e:"protocol"="all"
      if ((file_os_name e:"path") parse (pattern file_os_nam
        file_tree_create e:"path"
        s writeline "[lb]"+keyof:e+"[rb]"
        s writeline "  path = /"+subpath
        s writeline "  public = yes"
        s writeline "  writable = "+(shunt e:"mode"="rw" "ye
      else
        console "Cannot export " e:"path" " through Samba si
  plugin samba_configure
  s close
  # execute "nmbd" root "embedded:/" path "embedded:/" # use
  execute "smbd" root "embedded:/" path "embedded:/" # user