HP3000-L Archives

February 1999, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Shawn Gordon <[log in to unmask]>
Reply To:
Shawn Gordon <[log in to unmask]>
Date:
Mon, 8 Feb 1999 10:16:19 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (100 lines)
here is the script


COMMENT ---
COMMENT --- REFLMENU: This is a USE file to do file transfers within
COMMENT ---           menus.  To use it, keep it as file REFLMENU and
COMMENT ---           add the following lines to your own menu:
COMMENT ---
COMMENT ---           *CAPTION Reflection Commands
COMMENT ---           USE REFLMENU
COMMENT ---

COMMENT ---
COMMENT --- If you dont have version 3.2 or later of Reflection,
COMMENT --- change the "&oB" to "&oC" and delete the completion
COMMENT --- code checking (see below).
SETVAR REFLECT CHR(27)+"&oB"

ECHO Choose one of the following options:
ECHO
ECHO    SEND a file from the PC to the HP3000
ECHO    RECEIVE a file to the PC from the HP3000
ECHO    Execute an arbitrary COMMAND on the PC
ECHO

SETVAR REFL_CMD "INITIALIZE"
WHILE POS("/"+REFL_CMD+"/","/SEND/RECEIVE/COMMAND/")<=0
   INPUT REFL_CMD; PROMPT="SEND, RECEIVE, or COMMAND? "
   SETVAR REFL_CMD UPS(REFL_CMD)
ENDWHILE

IF REFL_CMD="COMMAND" THEN
   INPUT REFL_CMD; PROMPT="REFLECTION Command? "
   ECHO !REFLECT!REFL_CMD
   COMMENT --- If you don't have Reflection 3.2 or later, delete
   COMMENT --- the following two lines (see above, also).
   INPUT REFLECT_CC; PROMPT=":"
   ECHO REFLECTION Completion Code: !REFLECT_CC
ELSE
   SETVAR PC_FILESPEC ""
   INPUT PC_FILESPEC; PROMPT="PC filespec? "
   SETVAR HP_FILENAME ""
   INPUT HP_FILENAME; PROMPT="HP filename? "
   ECHO
   ECHO    Review the REFLECTIONS manual, for a complete set, of
   ECHO    file transfer options. All options MUST be spelled out
   ECHO    and separated by spaces.
   ECHO      Example: ASCII DELETE
   ECHO
   SETVAR XFER_OPTS ""
   INPUT XFER_OPTS; PROMPT="File transfer options? "
   SETVAR TO_OR_FROM "![IF REFL_CMD='SEND' THEN 'TO' ELSE 'FROM']"
   ECHO &
!REFLECT!REFL_CMD !PC_FILESPEC !TO_OR_FROM !HP_FILENAME !XFER_OPTS
   INPUT MPE_COMMAND; PROMPT=":"
   COMMENT ---
   COMMENT --- Verify that the command sent by REFLECTION is a
   COMMENT --- "RUN PCLINK.PUB.SYS", since this string is user-
   COMMENT --- configurable and we are going to execute it as an
   COMMENT --- MPE command.
   COMMENT --- If you are using PCLINK2, change the following line
   COMMENT --- to IF UPS(MPE_COMMAND[0:19])="RUN PCLINK2.PUB.SYS"
   IF UPS(MPE_COMMAND[0:18])="RUN PCLINK.PUB.SYS"
      !MPE_COMMAND
      COMMENT --- If you don't have Reflection 3.2 or later, delete
      COMMENT --- the following two lines (see above, also).
      INPUT REFLECT_CC; PROMPT=":"
      ECHO REFLECTION Completion Code: !REFLECT_CC
   ELSE
      ECHO ERROR!
      ECHO After VEMENU transmitted:
      ECHO &
'!REFL_CMD !PC_FILESPEC !TO_OR_FROM !HP_FILENAME !XFER_OPTS'
      ECHO the PC transmitted:
      ECHO '!MPE_COMMAND'
      ECHO rather than
      ECHO 'RUN PCLINK.PUB.SYS'
   ENDIF
ENDIF





Joseph Rosenblatt <[log in to unmask]> on 02/08/99 09:48:39 AM

Please respond to [log in to unmask]

To:   [log in to unmask]
cc:    (bcc: Shawn Gordon/IS/FHM/FHS)
Subject:  security 3000/file transfer problem




I had this problem about five years ago. At the time VESOFT gave me the
name
of a Reflection script in the VESOFT contributed library account. I don't
remember the details but VESOFT support should be able to help.

ATOM RSS1 RSS2