use Config::General;
use Net::SSH::Perl;
-# prj-create-repo.pl "login@host" "path/project.git"
+if (! @ARGV) {
+ print "USAGE: prj-create-repo.pl 'login\@host:path/project.git'\n";
+ exit;
+}
my ($login, $host) = split(/@/, shift);
-my $path = shift;
+my $path;
+($host, $path) = split(/:/, $host);
print "Logging to $host...\n";
my $ssh = Net::SSH::Perl->new($host, debug => 0);