; n e t e d i t ; ; Edit a remote file on the local computer. Automatically downloads the file, ; loads into your preferred editor, and uploads the edited result. Use SET ; EDITOR to configure your preferred editor, SHOW EDITOR to show it. ; ; Use NETEDIT when already logged into another computer with Kermit. TAKE ; this file to define the NETEDIT macro (or add the NETEDIT definition to your ; Kermit customization file), and then type "netedit filename" at the local ; Kermit prompt whenever you want to edit a remote file. ; ; Requires C-Kermit 7.0 or Kermit 95 1.1.19 or later. ; ; F. da Cruz, Columbia University, May 2000. ; def NETEDIT { local current status if not \v(local) end 1 No connection ; Works only in local mode while not defined \%1 { ; Prompt for filename if not given. ask \%1 { Filename? } } asg current \v(directory) ; Save current directory if def \v(download) cd \v(download) ; CD to download directory set transfer display brief ; No flourishes lineout kermit -x ; Start Kermit server on remote get /text \%1 ; Get the file text mode if fail end 1 Download failed ; Make sure it worked edit \%1 ; Edit the file if fail end 1 Edit failed ; Make sure it worked if not exist \%1 { end 1 File "\%1" missing after edit - Did you change its name? } send /text \%1 ; Send the edited file back asg status \v(status) ; Remember SEND return code finish ; Shut down the remote Kermit server if = \v(status) 0 { ; If OK delete the file echo UPLOAD OK. delete \%1 if success echo Local copy deleted. } else { echo UPLOAD FAILED. echo Edited file retained: \fpathname(\%1) } cd \m(current) ; Return to previous directory end \m(status) ; Done }