X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=prj-create-repo.pl;h=d8f6e0c7a40e8ff1fb8704d86142c88ac99773ea;hb=e6f25583c4a2f390f4817395cd35dac916a7bec5;hp=bf083c13e5618a458e366bade4804a5f7599f460;hpb=58482f612c447c8d1991ab5b0857b4471b827f7f;p=prj-utils.git

diff --git a/prj-create-repo.pl b/prj-create-repo.pl
index bf083c1..d8f6e0c 100755
--- a/prj-create-repo.pl
+++ b/prj-create-repo.pl
@@ -5,10 +5,14 @@ use warnings;
 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);