/* $VER: AskUpload.term (20.1.95)
**
** Written by Olaf `Olsen' Barthel
**
** You can put this script into the `Binary upload' text entry field
** of the transfer settings. When an upload is invoked, you will be
** asked if you only want to send files or if you want to both send
** and receive data. Depending on what you choose the Hydracom protocol
** will be invoked.
**
** NOTE: In order for this script to work it must be able to find
**       the Hydracom program. Change the line that reads `hydra = "hydracom"'
**       if necessary, e.g. into `hydra = "c:hydracom"' or where ever you
**       put the program.
*/

hydra = "hydracom"

OPTIONS results

ARG parameters

requestresponse options '"Send|Send & Receive|Cancel"' prompt '"Do you wish to send, or send & receive files?"'
/*requestresponse options '"Nur versenden|Auch empfangen|Abbrechen"' prompt '"Dateien nur versenden, oder auch empfangen?"'*/

IF rc = 0 THEN DO
	IF result = 1 THEN
		cmd = "run " || hydra || " " || parameters
	ELSE
		cmd = "run " || hydra || " " || parameters || " get"

	ADDRESS command cmd
END