Over the years, one of my device has accumulated a lot of unnecessary backups, so I pieced things together (from other posts here and some generative AI) to write some code to delete old backups:
It seems to work well when I paste it on the console, but how I can run this code via ssh? I would have expected something like: would work but nope.
[update] This seems to work, but do I need policy=write?Or maybe there's an easier way?
Please: linux-only answer and strongly preferably command-line only, no need to overcomplicate this. You don't need to worry about password, I use a key pair to login on this device.
Code:
:global datetime2epoch do={ :local dtime [:tostr $1] /system clock :local cyear [get date] ; :if ($cyear ~ "....-..-..") do={:set cyear [:pick $cyear 0 4]} else={:set cyear [:pick $cyear 7 11]} :if (([:len $dtime] = 10) or ([:len $dtime] = 11)) do={:set dtime "$dtime 00:00:00"} :if ([:len $dtime] = 15) do={:set dtime "$[:pick $dtime 0 6]/$cyear $[:pick $dtime 7 15]"} :if ([:len $dtime] = 14) do={:set dtime "$cyear-$[:pick $dtime 0 5] $[:pick $dtime 6 14]"} :if ([:len $dtime] = 8) do={:set dtime "$[get date] $dtime"} :if ([:tostr $1] = "") do={:set dtime ("$[get date] $[get time]")} :local vdate [:pick $dtime 0 [:find $dtime " " -1]] :local vtime [:pick $dtime ([:find $dtime " " -1] + 1) [:len $dtime]] :local vgmt [get gmt-offset]; :if ($vgmt > 0x7FFFFFFF) do={:set vgmt ($vgmt - 0x100000000)} :if ($vgmt < 0) do={:set vgmt ($vgmt * -1)} :local arrm [:toarray "0,0,31,59,90,120,151,181,212,243,273,304,334"] :local vdoff [:toarray "0,4,5,7,8,10"] :local MM [:pick $vdate ($vdoff->2) ($vdoff->3)] :local M [:tonum $MM] :if ($vdate ~ ".../../....") do={ :set vdoff [:toarray "7,11,1,3,4,6"] :set M ([:find "xxanebarprayunulugepctovecANEBARPRAYUNULUGEPCTOVEC" [:pick $vdate ($vdoff->2) ($vdoff->3)] -1] / 2) :if ($M>12) do={:set M ($M - 12)} } :local yyyy [:pick $vdate ($vdoff->0) ($vdoff->1)] ; :if ((($yyyy - 1968) % 4) = 0) do={:set ($arrm->1) -1; :set ($arrm->2) 30} :local totd ((($yyyy - 1970) * 365) + (($yyyy - 1968) / 4) + ($arrm->$M) + ([:pick $vdate ($vdoff->4) ($vdoff->5)] - 1)) :return (((((($totd * 24) + [:pick $vtime 0 2]) * 60) + [:pick $vtime 3 5]) * 60) + [:pick $vtime 6 8] - $vgmt)}{ /system clock :local now [$datetime2epoch ("$[get date] $[get time]")] :local wait 2592000 :local fdate 0 :local removed 0 /file :foreach file in=[find where type="backup"] do={ :set fdate [$datetime2epoch [get $file last-modified]] :if ($fdate < ($now - $wait)) do={ remove $file } }}Code:
cat script | ssh admin@device[update] This seems to work, but do I need policy=write?
Code:
scp delete-script admin@sea-rou-001:~/ssh admin@sea-rou-001 /system/script/remove delete-scriptssh admin@sea-rou-001 /system/script/add name="delete-script" source=[ /file get delete-script contents ] policy=writessh admin@sea-rou-001 /system/script/run delete-scriptssh admin@sea-rou-001 /system/script/remove delete-scriptPlease: linux-only answer and strongly preferably command-line only, no need to overcomplicate this. You don't need to worry about password, I use a key pair to login on this device.
Statistics: Posted by jibanes — Tue Mar 04, 2025 7:18 am