Select Code to Download

ssh -p 3334 shmem@gateway -L1025:host.example.com:22

ssh -p 1025 admin@localhost -L1026:192.168.123.2:975 -R993:localhost:1
+993

ssh -p 1026 wrxd15@localhost -L1027:192.168.254.2:22

ssc shmem@gateway:3334 admin@host.example.com wrxd15@192.168.123.2:975
+,-R993:localhost:1993 root@192.168.254.2

#!/usr/bin/perl -w
# $Id: ssc,v 0.4 2006/09/28 20:31:37 shmem Exp $
...

# XXX is there a portable way to check for busy ports?
sub port_busy { system("lsof -i :$_[0] >/dev/null") ? 0 : 1 }