Code: Select all
# < SSHtransfer > function of forwarding the SSH client script to the SSH server
# by Sertik 19/01/2023
# use SSH and ftp
# to work, you need to configure the local variables parameters for ftp: fport 21, fuser and fpassword (see below)
# the length of the portable script is limited to 4096 bytes
#
# $1 - address SSH-server
# $2 - port SSH service
# $3 - userName SSH-server
# $4 - name of the source script
# $5 - dst script name
# $6 - "run", if you need to execute the transmitted script immediately
# examples usage:
# :put [$SSHtransfer 192.168.1.2 22 admin sourceScript DstScript]
# :put [$SSHtransfer 192.168.1.2 22 admin sourceScript DstScript run]
:global SSHtransfer do={
# fetch ftp transfer parametrs:
# :local fport 21
# :local fuser admin
# :local fpassword "user`s password"
:if ([:len $1]=0) do={:return "Error IP SSH-Server"}
do {:set $1 [:toip $1]} on-error={:return "Error syntax address IP SSH-Server"}
:if (!any $2) do={:return "Error port"}
do {:set $2 [:tonum $2]} on-error={:return "Error syntax port"}
:if ([:len $3]=0) do={:return "Error username"}
:if ([:len $4]=0) do={:return "Error Source Script name not set"}
:if ([:len $5]=0) do={:return "Error Dst Script name on SSH-server not set"}
:if (([:len $6]>0) && ($6!="run")) do={:return "Error parametr \$6 $6"}
:if ([:len [/system script find name=$4]]=0) do={:return "Error Source Script $4 no find in repository router SSH-client"}
:if ([:len [/system script get $4 source]]>4096) do={:return "Error long source script"}
:global fileContent
:if ([:len [/file find name="transferSSH.txt"]]>0) do={[/file remove transferSSH.txt]}
:delay 1s
/file print file=transferSSH.txt;
do {
:set fileContent [/system script get $4 source]
:delay 3s
:execute script=":put [/system script get \"$4\" source]" file="transferSSH.txt"
} on-error={
[/file remove transferSSH.txt]
:set fileContent
:return "Error script to long"}
:delay 3s
do {
/tool fetch address=$1 port=$fport src-path=transferSSH.txt user=$fuser mode=ftp password=$fpassword dst-path=tSSH.rsc upload=yes
} on-error={:set fileContent; [/file remove transferSSH.txt]; :return "Error ftp transfer script on SSH-server"}
:delay 3s
:set fileContent
[/file remove transferSSH.txt]
:if ($6!="run") do={
:do {
[/system ssh-exec address=$1 port=$2 user=$3 command=":if ([:len [/system script find name=\"$5\"]]>0) do={/system script remove \"$5\"}; \
/system script add name=\"$5\" source=[/file get tSSH.rsc contents]; :delay 2s; /file remove tSSH.rsc"]; \
} on-error={:return "Error add script $5 in SSH-server repository"}
} else={\
:do {
[/system ssh-exec address=$1 port=$2 user=$3 command=":if ([:len [/system script find name=\"$5\"]]>0) do={/system script remove \"$5\"}; \
/system script add name=\"$5\" source=[/file get tSSH.rsc contents]; :delay 3s; /file remove tSSH.rsc; \
:put RUN;\
/system script run \"$5\""]
} on-error={:return "Error add script $5 in SSH-server repository or run"}
:set $6 ("and $6")
}
:return "Done: Script $5 add to SSH-server repository $6"
}
Code: Select all
:local Answer [$SSHtransfer 192.168.1.2 22 admin sourceScript DstScript]
:if ([:len [:find $Answer "Error"]]!=0) do={:log error $Answer} else={:log warning $Answer}
:local Answer [$SSHtransfer 192.168.1.2 22 admin sourceScript DstScript run]
:if ([:len [:find $Answer "Error"]]!=0) do={:log error $Answer} else={:log warning $Answer}I will be glad to comments and criticism. I hope someone will suggest a better and more rational option
