src/commands/svnserve

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib $ENV{GL_LIBDIR};
   7 use Gitolite::Rc;
   8 my $svnserve = $rc{SVNSERVE} || '';
   9 $svnserve ||= "/usr/bin/svnserve -r /var/svn/ -t --tunnel-user=%u";
  10
  11 my $cmd = $ENV{SSH_ORIGINAL_COMMAND};
  12
  13 die "expecting 'svnserve -t', got '$cmd'\n" unless $cmd eq 'svnserve -t';
  14
  15 $svnserve =~ s/%u/$ENV{GL_USER}/g;
  16 exec $svnserve;
  17 die "svnserve exec failed\n";