prj-create-repo.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use Config::General;
   6 use Net::SSH::Perl;
   7
   8 # prj-create-repo.pl "login@host:path/project.git"
   9
  10 my ($login, $host) = split(/@/, shift);
  11 my $path;
  12 ($host, $path) = split(/:/, $host);
  13
  14 print "Logging to $host...\n";
  15 my $ssh = Net::SSH::Perl->new($host, debug => 0);
  16 $ssh->login($login, "");
  17
  18 print "Creating remote Git Repository...\n";
  19 my ($stdout, $stderr, $exit) = $ssh->cmd("mkdir $path && cd $path && git init --bare");
  20 print $stdout;