Posted to tcl by Marko at Wed Jun 29 15:43:38 GMT 2022view pretty
#!/usr/bin/tclsh package require Tcl 8.6 package require Tclx signal error sigint try { # set rc [system $run_cmd] # if {$rc == 0} { # puts "OK" # } else { # puts "Nope" # } if { [catch {set pid [exec -ignorestderr ssh dante rsync -av --progress /home/dante/test1 /home/dante/test2 >@ stdout &]} ]} { puts stderr "ERROR: Command failed" exit 3 } wait } trap {POSIX SIG SIGINT} {} { # SIGHUP SIGKILL SIGTERM SIGQUIT SIGSTOP puts "" puts "Killing pid: $pid" kill $pid }
Comments
Posted by Marko at Wed Jun 29 16:25:31 GMT 2022 [text] [code]
Well, this was quite simple. This will handle Ctrl+C and stuff...: package require Tcl 8.6 package require Tclx system ssh -t dante2 rsync -av --progress /home/dante/test1 /home/dante/test2