d3610191d3
I was very, very, tempted to say "sorry; not supported". Sadly, prudence won over juvenile glee... PS: DOS == dominant operating system
34 lines
545 B
Perl
Executable file
34 lines
545 B
Perl
Executable file
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
unlink "$ENV{HOME}/.ssh/authorized_keys";
|
|
}
|
|
|
|
# this is hardcoded; change it if needed
|
|
use lib "src/lib";
|
|
use Gitolite::Test;
|
|
|
|
use Cwd;
|
|
my $workdir = getcwd();
|
|
|
|
confreset;confadd '
|
|
repo foo/..*
|
|
C = u1 u2 u3
|
|
RW+ = CREATOR
|
|
RW = WRITERS
|
|
R = READERS
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/" or die text();
|
|
|
|
try "
|
|
mkdir -p keydir
|
|
cp \$HOME/.ssh/u*.pub keydir
|
|
cp \$HOME/.ssh/admin.pub keydir
|
|
git add keydir
|
|
git commit -m 6k
|
|
glt push admin origin
|
|
";
|