| Server IP : 172.67.156.203 / Your IP : 216.73.216.72 Web Server : Apache System : Linux gator4057.hostgator.com 5.14.0-687.17.1.el9_8.x86_64 #1 SMP PREEMPT_DYNAMIC Mon Jun 22 07:21:26 EDT 2026 x86_64 User : badawi ( 1130) PHP Version : 8.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Net-OpenSSH/examples/ |
Upload File : |
#!/usr/bin/perl
use strict;
use warnings;
use Net::OpenSSH;
@ARGV or die <<EOU;
Usage:
$0 <ssh_target> <git_command> [<arg1> [<arg2> [...]]]
For instance:
$0 kkabuto:sayaka\@mazingerz.pplab.or.jp clone ssh://kkabuto\@mazingerz.pplab.or.jp/home/kkabuto/pilder-linux
EOU
my $target = shift @ARGV; # password:user@host
my $ssh = Net::OpenSSH->new($target);
$ssh->die_on_error("Unable to connect to $target");
$ENV{GIT_SSH} = 'git_ssh_through_mux.pl';
$ENV{SSH_MUX} = $ssh->get_ctl_path;
system 'env';
system git => @ARGV;