modules/FvwmForm/FvwmForm-Rlogin

   1 DestroyModuleConfig  FvwmForm-Rlogin: *
   2 *FvwmForm-Rlogin: WarpPointer
   3 *FvwmForm-Rlogin: Line         center
   4 *FvwmForm-Rlogin: Text         "Login to Remote Host"
   5 *FvwmForm-Rlogin: Line         center
   6 *FvwmForm-Rlogin: Text         "Host:"
   7 *FvwmForm-Rlogin: Input        HostName        20      ""
   8 *FvwmForm-Rlogin: Line         center
   9 *FvwmForm-Rlogin: Selection    UserSel single
  10 *FvwmForm-Rlogin: Choice       Default Default on      "same user"
  11 *FvwmForm-Rlogin: Choice       Custom  Custom  off     "user:"
  12 *FvwmForm-Rlogin: Input        UserName        10      ""
  13 *FvwmForm-Rlogin: Line         expand
  14 *FvwmForm-Rlogin: Button       quit    "Login"         ^M
  15 *FvwmForm-Rlogin: Command      Exec exec ssh $(Custom?-l $(UserName)) $(HostName) xterm -T xterm@$(HostName) -display $HOSTDISPLAY &
  16 # Before saving the data, remove any previously saved data:
  17 *FvwmForm-Rlogin: Command DestroyModuleConfig FvwmForm-RloginDefault: *
  18 # The "Login" button causes a login and a saving of the current data:
  19 *FvwmForm-Rlogin: Command !(                                      /bin/echo \
  20   "# This file last created by FvwmForm-Rlogin on: `/bin/date`."; /bin/echo \
  21   '*FvwmForm-RloginDefault: HostName $(HostName)'               ; /bin/echo \
  22   '*FvwmForm-RloginDefault: UserName $(UserName)'               ; /bin/echo \
  23   '*FvwmForm-RloginDefault: Default $(Default?on)'              ; /bin/echo \
  24   '*FvwmForm-RloginDefault: Custom $(Custom?on)' \
  25 ) > ${FVWM_USERDIR}/.FvwmForm-Rlogin
  26 *FvwmForm-Rlogin: Button       restart "Reset"
  27 *FvwmForm-Rlogin: Button       quit    "Cancel"        ^[
  28 *FvwmForm-Rlogin: Command      Nop
  29 # Tell FvwmForm to read vars from the .FvwmForm-RloginDefault file:
  30 *FvwmForm-Rlogin: UseData .FvwmForm-Rlogin *FvwmForm-RloginDefault