add .gitignore, update README, and implement new features in nlogin, path2arg, and scp scripts
* Update nlogin: Better file handling. Allows for future additional files to be copied. * Add SCP: Efficiently copy files to remote systems * add path2arg: uupath tool
This commit is contained in:
parent
9e2fa17eeb
commit
c15dfa04d1
5 changed files with 134 additions and 13 deletions
1
.gitignore
vendored
Normal file
1
.gitignore
vendored
Normal file
|
@ -0,0 +1 @@
|
|||
nkilluser.bas
|
21
README.md
21
README.md
|
@ -18,3 +18,24 @@ If no hosts are listed as arguments it will run on all connected hosts, otherwis
|
|||
```bash
|
||||
run nremps [host1] [host2] [host3] [...]
|
||||
```
|
||||
|
||||
## scp
|
||||
Copy files from one host to another.
|
||||
* If file is not an executable it will follow the provided uupath to the destination and write the file (faster than FTP)
|
||||
* You can:
|
||||
* Copy file to each remote host in provided uupath
|
||||
* Dial a host directly and manually copy the file via ftp (iptun required)
|
||||
|
||||
### usage
|
||||
```bash
|
||||
run scp <source> [host1] [host2] [host3] [...]
|
||||
```
|
||||
|
||||
## path2arg
|
||||
Convert a uupath to arguments (replace bangs with spaces).
|
||||
* Optionally if the first argument is a command, run it with the rest of the arguments.
|
||||
|
||||
### usage
|
||||
```bash
|
||||
path2arg.bas [command] <path>
|
||||
```
|
37
nlogin.bas
37
nlogin.bas
|
@ -1,25 +1,36 @@
|
|||
INFTP=0
|
||||
COPYPROGS$="porthack.exe"
|
||||
1 LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||||
10 FOR I = 1 TO ARGC%-1
|
||||
LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||||
PRINT "Trying " + ARGV$(I) + " ("+STR$(I)+"/"+STR$(ARGC%-1)+")..."
|
||||
IF TH_HASLOGIN(ARGV$(I)) = 0 THEN GOSUB 1000
|
||||
21 TH_EXEC "rlogin "+ARGV$(I)
|
||||
IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
|
||||
REM print ARGV$(I)+"$ ls"
|
||||
REM TH_EXEC "ls"
|
||||
REM PRINT ARGV$(I)+"$"
|
||||
REM PRINT ARGV$(I)+"$ netstat"
|
||||
REM TH_EXEC "netstat"
|
||||
REM PRINT ARGV$(I)+"$"
|
||||
21 TH_EXEC "rlogin "+ARGV$(I), DUMP$
|
||||
GOSUB 2000
|
||||
30 NEXT I
|
||||
END
|
||||
|
||||
1000 PRINT "No login on " + ARGV$(I)
|
||||
IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
|
||||
IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000 : REM Download porthack
|
||||
TH_EXEC("porthack " + ARGV$(I))
|
||||
RETURN
|
||||
|
||||
2000 PRINT "Porthack not on " + TH_HOSTNAME$ + ". Trying to fetch it from " + LASTHOST$
|
||||
TH_EXEC("ftp " + LASTHOST$)
|
||||
TH_EXEC("get porthack.exe")
|
||||
TH_EXEC("quit")
|
||||
2000 FOR P=1 TO TH_RE(COPYPROGS$,"[\w.]+",1)
|
||||
prog$=TH_RE$(COPYPROGS$,"[\w.]+",P)
|
||||
IF INSTR(DIR$, prog$, 0) = -1 THEN GOSUB 2500
|
||||
NEXT P
|
||||
IF INFTP = 1 THEN GOSUB 3100
|
||||
RETURN
|
||||
|
||||
2500 PRINT prog$+" not on " + TH_HOSTNAME$ + ". Trying to fetch it from " + LASTHOST$
|
||||
IF INFTP = 0 GOSUB 3000
|
||||
TH_EXEC "get " + prog$
|
||||
RETURN
|
||||
|
||||
3000 TH_EXEC "ftp " + LASTHOST$
|
||||
INFTP=1
|
||||
RETURN
|
||||
|
||||
3100 TH_EXEC "quit"
|
||||
INFTP=0
|
||||
RETURN
|
15
path2arg.bas
Normal file
15
path2arg.bas
Normal file
|
@ -0,0 +1,15 @@
|
|||
REM Convert a uupath to arguments (replace bangs with spaces).
|
||||
REM Optionally if the first argument is a command, run it with the rest of the arguments.
|
||||
REM Usage: path2arg.bas [command] <path>
|
||||
IF ARGC% < 2 THEN PRINT "Usage: path2arg.bas [command] <path>" : END
|
||||
|
||||
HOSTNAME$=TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||||
PATH$=TH_SED$(ARG$,HOSTNAME$,"","g")
|
||||
PATH$=TH_SED$(PATH$,"!"," ","g")
|
||||
IF ARGV$(1) = "run" THEN GOTO 10
|
||||
IF TH_RE(DIR$,"[^w]"+ARGV$(1),0) > 0 THEN GOSUB 10
|
||||
PRINT PATH$
|
||||
END
|
||||
10 PRINT "Running "+PATH$
|
||||
TH_EXEC PATH$
|
||||
END
|
73
scp.bas
Normal file
73
scp.bas
Normal file
|
@ -0,0 +1,73 @@
|
|||
REM Copy a file to a remote host
|
||||
REM Usage: scp <file> <host> [host] [...]
|
||||
REM Will login (porthack if needed) to each host and copy the file to the destination
|
||||
REM File is stored in memory, and written to last host. Avoids ftp delays unless exe
|
||||
NEEDFTP=0
|
||||
IF ARGC% < 2 THEN PRINT "Usage: scp <file> <host> [host] [...]" : END
|
||||
FILENAME$=ARGV$(1)
|
||||
IF INSTR(FILENAME$, "exe", 0) > 0 THEN NEEDFTP=1
|
||||
IF NEEDFTP=1 THEN GOSUB 6000
|
||||
IF NEEDFTP = 0 GOSUB 4000 : REM Read File
|
||||
|
||||
1 LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||||
10 FOR I = 2 TO ARGC%-1
|
||||
LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
|
||||
IF TH_HASLOGIN(ARGV$(I)) = 0 THEN GOSUB 1000
|
||||
PRINT "Trying " + ARGV$(I) + " ("+STR$(I-1)+"/"+STR$(ARGC%-2)+")..."
|
||||
21 TH_EXEC "rlogin "+ARGV$(I), DUMP$
|
||||
IF NEEDFTP = 1 THEN GOSUB 2000
|
||||
30 NEXT I
|
||||
IF NEEDFTP = 0 THEN GOSUB 5000
|
||||
END
|
||||
|
||||
1000 PRINT "No login on " + ARGV$(I)
|
||||
IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
|
||||
TH_EXEC("porthack " + ARGV$(I))
|
||||
RETURN
|
||||
|
||||
2000 IF INSTR(DIR$, FILENAME$, 0) = -1 THEN GOSUB 2500
|
||||
PRINT "File already on " + TH_HOSTNAME$
|
||||
RETURN
|
||||
|
||||
2500 PRINT FILENAME$+" not on " + TH_HOSTNAME$ + ". Trying to fetch it from " + LASTHOST$
|
||||
TH_EXEC "ftp " + LASTHOST$, DUMP$
|
||||
TH_EXEC "get " + FILENAME$
|
||||
TH_EXEC "quit", DUMP$
|
||||
RETURN
|
||||
|
||||
4000 REM Read File
|
||||
CONTENT$=""
|
||||
OPEN(FILENAME$), AS #1
|
||||
4010 IF EOF(1) THEN GOTO 4020
|
||||
INPUT# 1, L$
|
||||
CONTENT$=CONTENT$+L$+CHR$(13)+CHR$(10)
|
||||
GOTO 4010
|
||||
4020 CLOSE #1
|
||||
RETURN
|
||||
|
||||
5000 REM Sub Write File
|
||||
PRINT "Writing file " + FILENAME$
|
||||
OPEN(FILENAME$), AS #1
|
||||
PRINT# 1, CONTENT$
|
||||
CLOSE #1
|
||||
RETURN
|
||||
|
||||
6000 PRINT "EXE File- Requires FTP."
|
||||
PRINT "Options:"
|
||||
PRINT " r) rlogin to each host"
|
||||
PRINT " d) dial remote host (no auto ftp)"
|
||||
PRINT " q) quit"
|
||||
6001 PRINT "Continue? (r/d/q)"
|
||||
CONT$ = INKEY$
|
||||
IF CONT$ = "r" OR CONT$ = "R" THEN RETURN
|
||||
IF CONT$ = "q" OR CONT$ = "Q" THEN PRINT "Canceling Transfer" : END
|
||||
IF CONT$ = "d" OR CONT$ = "D" THEN GOTO 8000
|
||||
GOTO 6001
|
||||
|
||||
8000 PRINT "Dialing remote host"
|
||||
HOST$=ARGV$(ARGC%-1)
|
||||
TH_EXEC "uumap " + HOST$ + " | grep '#T'", RPHONE$
|
||||
PHONE$ = TH_SED$(RPHONE$, ".*#T\s+(\d+).*", "\1")
|
||||
PRINT "Dialing " + PHONE$
|
||||
TH_EXEC "dial " + PHONE$
|
||||
END
|
Loading…
Reference in a new issue