home *** CD-ROM | disk | FTP | other *** search
- ; 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
- }
-