8 # prj-create-repo.pl "login@host:path/project.git"
10 my ($login, $host) = split(/@/, shift);
12 ($host, $path) = split(/:/, $host);
14 print "Logging to $host...\n";
15 my $ssh = Net::SSH::Perl->new($host, debug => 0);
16 $ssh->login($login, "");
18 print "Creating remote Git Repository...\n";
19 my ($stdout, $stderr, $exit) = $ssh->cmd("mkdir $path && cd $path && git init --bare");