===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
gitolite3-3.6.11/contrib/commands/ukm-203-BEGIN { $TEMPDIR = `mktemp -d -t tmp.XXXXXXXXXX`; chomp($TEMPDIR) }
gitolite3-3.6.11/contrib/commands/ukm:204:END { my $err = $?; `/bin/rm -rf $TEMPDIR`; $? = $err; }
gitolite3-3.6.11/contrib/commands/ukm-205-
##############################################
gitolite3-3.6.11/contrib/commands/ukm-513- # generate new pubkey create fingerprint
gitolite3-3.6.11/contrib/commands/ukm:514: system("ssh-keygen -N '' -q -f \"$TEMPDIR/session\" -C $gl_user");
gitolite3-3.6.11/contrib/commands/ukm-515- my $sessionfp = fingerprint("$TEMPDIR/session.pub");
##############################################
gitolite3-3.6.11/contrib/commands/ukm-518- add_pubkey($gl_user, "$selfkeys_dir/$gl_user/$user.pub", $keymaterial);
gitolite3-3.6.11/contrib/commands/ukm:519: print `cat "$TEMPDIR/session.pub"`;
gitolite3-3.6.11/contrib/commands/ukm-520-}
##############################################
gitolite3-3.6.11/contrib/commands/ukm-609- # generate new pubkey and create fingerprint to get a random number
gitolite3-3.6.11/contrib/commands/ukm:610: system("ssh-keygen -N '' -q -f \"$TEMPDIR/session\" -C $gl_user");
gitolite3-3.6.11/contrib/commands/ukm-611- my $sessionfp = fingerprint("$TEMPDIR/session.pub");
##############################################
gitolite3-3.6.11/contrib/hooks/repo-specific/save-push-signatures-157- # for each cert blob...
gitolite3-3.6.11/contrib/hooks/repo-specific/save-push-signatures:158: for b in `cat git-push-certs.$2/.blob.list`
gitolite3-3.6.11/contrib/hooks/repo-specific/save-push-signatures-159- do
##############################################
gitolite3-3.6.11/contrib/hooks/repo-specific/save-push-signatures-169- # for each ref described within the cert, update the index
gitolite3-3.6.11/contrib/hooks/repo-specific/save-push-signatures:170: for ref in `cat $cf | egrep '^[a-f0-9]+ [a-f0-9]+ refs/' | cut -f3 -d' '`
gitolite3-3.6.11/contrib/hooks/repo-specific/save-push-signatures-171- do
##############################################
gitolite3-3.6.11/contrib/t/ukm.t-50-# cannot add emails containing example.com or hemmecke.org.
gitolite3-3.6.11/contrib/t/ukm.t:51:system("sed -i \"s/.*ENABLE =>.*/'UKM_CONFIG'=>{'FORBIDDEN_GUEST_PATTERN'=>'example.com|hemmecke.org'}, ENABLE => ['ukm',/\" $h/.gitolite.rc");
gitolite3-3.6.11/contrib/t/ukm.t-52-
##############################################
gitolite3-3.6.11/contrib/t/ukm.t-309-# Let's enable it.
gitolite3-3.6.11/contrib/t/ukm.t:310:system("sed -i \"/'UKM_CONFIG'=>/s/=>{/=>{'SELFKEY_MANAGEMENT'=>1,/\" $h/.gitolite.rc");
gitolite3-3.6.11/contrib/t/ukm.t-311-
##############################################
gitolite3-3.6.11/contrib/triggers/IP-check-37-
gitolite3-3.6.11/contrib/triggers/IP-check:38:eval `ipcalc -n $current_ip/$mask`
gitolite3-3.6.11/contrib/triggers/IP-check-39-
##############################################
gitolite3-3.6.11/contrib/triggers/file_mirror-52- # now fetch. Maybe we can put a "-q" in there?
gitolite3-3.6.11/contrib/triggers/file_mirror:53: system( "git", "fetch", $url, "+refs/*:refs/*" );
gitolite3-3.6.11/contrib/triggers/file_mirror-54-
##############################################
gitolite3-3.6.11/contrib/triggers/file_mirror-62- # now push
gitolite3-3.6.11/contrib/triggers/file_mirror:63: system( "git", "push", "--mirror", $url );
gitolite3-3.6.11/contrib/triggers/file_mirror-64- }
##############################################
gitolite3-3.6.11/contrib/triggers/file_mirror-74- return if -d $path;
gitolite3-3.6.11/contrib/triggers/file_mirror:75: system( "git", "init", "--bare", $path );
gitolite3-3.6.11/contrib/triggers/file_mirror-76-}
##############################################
gitolite3-3.6.11/contrib/utils/rc-format-v3.4-46-END {
gitolite3-3.6.11/contrib/utils/rc-format-v3.4:47: system("rm -rf ./.home.rcupgrade.$$");
gitolite3-3.6.11/contrib/utils/rc-format-v3.4-48-}
##############################################
gitolite3-3.6.11/contrib/utils/testconf-126-
gitolite3-3.6.11/contrib/utils/testconf:127:cat `find $testconf/.gitolite/conf -type f -name "*.conf" | sort` |
gitolite3-3.6.11/contrib/utils/testconf-128- perl -ne '
##############################################
gitolite3-3.6.11/install-76- _mkdir($to);
gitolite3-3.6.11/install:77: system("cp -RpP * $to");
gitolite3-3.6.11/install-78- _print( "$to/VERSION", $version );
##############################################
gitolite3-3.6.11/src/VREF/COUNT-33-# $oldsha when you update an old feature branch from master and then push it
gitolite3-3.6.11/src/VREF/COUNT:34:count=`git log --name-only $nf --format=%n $newtree --not --all | grep . | sort -u | perl -ne '}{print "$."'`
gitolite3-3.6.11/src/VREF/COUNT-35-
##############################################
gitolite3-3.6.11/src/VREF/EMAIL-CHECK-23-my ( $ref, $old, $new ) = @ARGV;
gitolite3-3.6.11/src/VREF/EMAIL-CHECK:24:for my $rev (`git log --format="%ae\t%h\t%s" $new --not --all`) {
gitolite3-3.6.11/src/VREF/EMAIL-CHECK-25- chomp($rev);
##############################################
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE-25-
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE:26:chomp( my $author_email = `git log --format=%ae -1 $newsha` );
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE:27:my $msg = `git cat-file -p $newsha`;
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE-28-$msg =~ s/\t/ /g; # makes our regexes simpler
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE-29-
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE:30:for my $newbin (`git diff --stat=999,999 $oldtree $newtree | grep Bin.0.-`) {
gitolite3-3.6.11/src/VREF/MAX_NEWBIN_SIZE-31- next unless $newbin =~ /^ (.*) +\| +Bin 0 -> (\d+) bytes/;
##############################################
gitolite3-3.6.11/src/VREF/MERGE-CHECK-45-
gitolite3-3.6.11/src/VREF/MERGE-CHECK:46:my $ret = `git rev-list -n 1 --merges $oldsha..$newsha`;
gitolite3-3.6.11/src/VREF/MERGE-CHECK-47-print "$refex FATAL: merge commits not allowed\n" if $ret =~ /./;
##############################################
gitolite3-3.6.11/src/VREF/VOTES-72-# find how many votes have come in
gitolite3-3.6.11/src/VREF/VOTES:73:votes=`git for-each-ref refs/heads/votes/*/$branch | grep -c $newsha`
gitolite3-3.6.11/src/VREF/VOTES-74-
##############################################
gitolite3-3.6.11/src/VREF/lock-26-
gitolite3-3.6.11/src/VREF/lock:27:for my $file (`git diff --name-only $oldtree $newtree`) {
gitolite3-3.6.11/src/VREF/lock-28- chomp($file);
##############################################
gitolite3-3.6.11/src/VREF/partial-copy-19-
gitolite3-3.6.11/src/VREF/partial-copy:20:main=`git config --file $GL_REPO_BASE/$repo.git/config --get gitolite.partialCopyOf`;
gitolite3-3.6.11/src/VREF/partial-copy-21-[ -z "$main" ] && exit 0
##############################################
gitolite3-3.6.11/src/commands/D-111- owner=
gitolite3-3.6.11/src/commands/D:112: owner=`cat "$t"`
gitolite3-3.6.11/src/commands/D-113- [ "$owner" = "$GL_USER" ] && dirname $t
##############################################
gitolite3-3.6.11/src/commands/D-119- owner=
gitolite3-3.6.11/src/commands/D:120: owner=`cat $TRASH_CAN/$repo/gl-creator 2>/dev/null`
gitolite3-3.6.11/src/commands/D-121- [ "$owner" = "$GL_USER" ] || die "'$repo' is not yours!"
##############################################
gitolite3-3.6.11/src/commands/D-123- cd $TRASH_CAN
gitolite3-3.6.11/src/commands/D:124: realrepo=`dirname $repo`
gitolite3-3.6.11/src/commands/D-125- [ -d $RB/$realrepo.git ] && die "'$realrepo' already exists"
##############################################
gitolite3-3.6.11/src/commands/compile-template-data-23-
gitolite3-3.6.11/src/commands/compile-template-data:24:@ARGV = `find $rc{GL_ADMIN_BASE}/conf -type f -name "*.conf" | sort`; chomp(@ARGV);
gitolite3-3.6.11/src/commands/compile-template-data-25-# we don't see the files in the exact same order that gitolite compile sees
##############################################
gitolite3-3.6.11/src/commands/htpasswd-42-die "empty passwords are not allowed\n" unless $password;
gitolite3-3.6.11/src/commands/htpasswd:43:my $res = system( "htpasswd", "-mb", $htpasswd_file, $ENV{GL_USER}, $password );
gitolite3-3.6.11/src/commands/htpasswd-44-die "htpasswd command seems to have failed with return code: $res.\n" if $res;
##############################################
gitolite3-3.6.11/src/commands/list-dangling-repos-28-for my $r ( grep /^@/, keys %repos ) {
gitolite3-3.6.11/src/commands/list-dangling-repos:29: map { chomp; $repos{$_} = 1; } `gitolite list-members $r`;
gitolite3-3.6.11/src/commands/list-dangling-repos-30-}
##############################################
gitolite3-3.6.11/src/commands/lock-67- chomp($b);
gitolite3-3.6.11/src/commands/lock:68: system("git cat-file -e $b:$file 2>/dev/null") or return 1;
gitolite3-3.6.11/src/commands/lock-69- # note that with system(), the return value is "shell truth", so
##############################################
gitolite3-3.6.11/src/commands/mirror-65- my $creator = `cat gl-creator`; chomp($creator);
gitolite3-3.6.11/src/commands/mirror:66: trace( 1, `cat gl-perms 2>/dev/null | ssh $host CREATOR=$creator perms -c \\'$repo\\' 2>/dev/null` );
gitolite3-3.6.11/src/commands/mirror-67- }
##############################################
gitolite3-3.6.11/src/commands/mirror-70- my $glss = '';
gitolite3-3.6.11/src/commands/mirror:71: for (`git push --mirror $host:$repo 2>&1`) {
gitolite3-3.6.11/src/commands/mirror-72- $errors = 1 if $?;
##############################################
gitolite3-3.6.11/src/commands/perms-83-
gitolite3-3.6.11/src/commands/perms:84:_system( "gitolite", "trigger", "POST_CREATE", $repo, $ENV{GL_USER}, 'perms' );
gitolite3-3.6.11/src/commands/perms-85-
##############################################
gitolite3-3.6.11/src/commands/rsync-73- trace( 1, "rsync bundle", $ENV{SSH_ORIGINAL_COMMAND} );
gitolite3-3.6.11/src/commands/rsync:74: Gitolite::Common::_system( split ' ', $ENV{SSH_ORIGINAL_COMMAND} );
gitolite3-3.6.11/src/commands/rsync-75- exit 0;
##############################################
gitolite3-3.6.11/src/commands/rsync-92- if ( -f $bundle ) {
gitolite3-3.6.11/src/commands/rsync:93: %b = map { chomp; reverse split; } `git ls-remote --heads --tags $bundle`;
gitolite3-3.6.11/src/commands/rsync-94- %r = map { chomp; reverse split; } `git ls-remote --heads --tags .`;
##############################################
gitolite3-3.6.11/src/commands/rsync-117-
gitolite3-3.6.11/src/commands/rsync:118: `git rev-list --count --left-right $b{$ref}...$r{$ref}` =~ /^(\d+)\s+(\d+)$/ or _die "git too old";
gitolite3-3.6.11/src/commands/rsync-119- if ($1) {
##############################################
gitolite3-3.6.11/src/commands/rsync-135- -f $bundle and ( unlink $bundle or die "a horrible death" );
gitolite3-3.6.11/src/commands/rsync:136: system("git bundle create $bundle --branches --tags >&2");
gitolite3-3.6.11/src/commands/rsync-137-
##############################################
gitolite3-3.6.11/src/commands/sshkeys-lint-35-if ( not @pubkeyfiles ) {
gitolite3-3.6.11/src/commands/sshkeys-lint:36: chomp( @pubkeyfiles = `find $kd -type f -name "*.pub" | sort` );
gitolite3-3.6.11/src/commands/sshkeys-lint-37-}
##############################################
gitolite3-3.6.11/src/commands/sskm-127-BEGIN { $TEMPDIR = `mktemp -d -t tmp.XXXXXXXXXX`; }
gitolite3-3.6.11/src/commands/sskm:128:END { `/bin/rm -rf $TEMPDIR`; }
gitolite3-3.6.11/src/commands/sskm-129-
##############################################
gitolite3-3.6.11/src/commands/who-pushed-57- } else {
gitolite3-3.6.11/src/commands/who-pushed:58: system("git rev-list $old$new 2>/dev/null | grep ^$sha >/dev/null && echo '$ts $pid $who $ref $d_old $new'");
gitolite3-3.6.11/src/commands/who-pushed-59- }
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Common.pm-152- if ( system(@_) != 0 ) {
gitolite3-3.6.11/src/lib/Gitolite/Common.pm:153: trace( 1, "system() failed", @_, "-> $?" );
gitolite3-3.6.11/src/lib/Gitolite/Common.pm-154- if ( $? == -1 ) {
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Common.pm-235- my $cmd = 'find . ' . ($Gitolite::Rc::rc{REPO_SYMLINKS} || '') . ' -name "*.git" -prune';
gitolite3-3.6.11/src/lib/Gitolite/Common.pm:236: for my $repo (`$cmd`) {
gitolite3-3.6.11/src/lib/Gitolite/Common.pm-237- chomp($repo);
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Common.pm-402- my $cmd = shift; die "try: expects only one argument" if @_;
gitolite3-3.6.11/src/lib/Gitolite/Common.pm:403: $text = `( $cmd ) 2>&1; printf RC=\$?`;
gitolite3-3.6.11/src/lib/Gitolite/Common.pm-404- if ( $text =~ s/RC=(\d+)$// ) {
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Conf/Load.pm-515- return $cache{$user} if $cache{$user};
gitolite3-3.6.11/src/lib/Gitolite/Conf/Load.pm:516: my @extgroups = map { s/^@?/@/; $_; } split ' ', `$rc{GROUPLIST_PGM} $user`;
gitolite3-3.6.11/src/lib/Gitolite/Conf/Load.pm-517- return ( $cache{$user} = \@extgroups );
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm-59-
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm:60: for my $ref ( map { chomp; s(^)(VREF/NAME/); $_; } `git diff --name-only $oldtree $newtree` ) {
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm-61- check_vref( $aa, $ref );
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm-124- # for branch create or delete, merge_base stays at '0'x40
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm:125: chomp( $merge_base = `git merge-base $oldsha $newsha` )
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm-126- unless $oldsha eq '0' x 40
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm-149- } else {
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm:150: $aa .= 'M' if `git rev-list -n 1 --merges $oldsha..$newsha` =~ /./;
gitolite3-3.6.11/src/lib/Gitolite/Hooks/Update.pm-151- }
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Rc.pm-330- trace( 2, 'trigger command', $s );
gitolite3-3.6.11/src/lib/Gitolite/Rc.pm:331: _system( $pgm, @args, $rc_section, @_ ); # they better all return with 0 exit codes!
gitolite3-3.6.11/src/lib/Gitolite/Rc.pm-332- }
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Test/Tsh.pm-342- dbg( 4, " running: ( $cmd ) 2>&1" );
gitolite3-3.6.11/src/lib/Gitolite/Test/Tsh.pm:343: $text = `( $cmd ) 2>&1; /bin/echo -n RC=\$?`;
gitolite3-3.6.11/src/lib/Gitolite/Test/Tsh.pm-344- $lec = $cmd;
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-39- # this expects valid perms content on STDIN
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm:40: _system("gitolite perms -c $repo");
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-41- delete $ENV{GL_BYPASS_CREATOR_CHECK};
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-92- trace( 1, "redirect to $master" );
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm:93: exec( "ssh", $master, "USER=$user", "SOC=$ENV{SSH_ORIGINAL_COMMAND}" );
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-94- } else {
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-239- trace( 1, "push_to_slaves: skipping self" ), next if $s eq $hn;
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm:240: system("gitolite 1plus1 $lb.$s gitolite mirror push $s $repo </dev/null >/dev/null 2>&1 &") if $slaves{$s} eq 'async';
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm:241: system("gitolite 1plus1 $lb.$s gitolite mirror push $s $repo </dev/null >/dev/null 2>&1") if $slaves{$s} eq 'sync';
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-242- _warn "manual mirror push pending for '$s'" if $slaves{$s} eq 'nosync';
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-251- delete $ENV{GL_USER};
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm:252: system("gitolite mirror status all $repo >&2");
gitolite3-3.6.11/src/lib/Gitolite/Triggers/Mirroring.pm-253- $ENV{GL_USER} = $u;
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Triggers/RepoUmask.pm-41-
gitolite3-3.6.11/src/lib/Gitolite/Triggers/RepoUmask.pm:42: system("chmod -R $mode $repo.git >&2");
gitolite3-3.6.11/src/lib/Gitolite/Triggers/RepoUmask.pm:43: system("find $repo.git -type f -exec chmod a-x '{}' \\;");
gitolite3-3.6.11/src/lib/Gitolite/Triggers/RepoUmask.pm-44-}
##############################################
gitolite3-3.6.11/src/lib/Gitolite/Triggers/TProxy.pm-94- # redirect to upstream
gitolite3-3.6.11/src/lib/Gitolite/Triggers/TProxy.pm:95: exec( "ssh", $rc{TPROXY_FORWARDS_TO}, "TPROXY_FOR=$user", "SOC=$ENV{SSH_ORIGINAL_COMMAND}" );
gitolite3-3.6.11/src/lib/Gitolite/Triggers/TProxy.pm-96-}
##############################################
gitolite3-3.6.11/src/triggers/partial-copy-18-user=$2
gitolite3-3.6.11/src/triggers/partial-copy:19:main=`git config --file $GL_REPO_BASE/$repo.git/config --get gitolite.partialCopyOf`;
gitolite3-3.6.11/src/triggers/partial-copy-20-[ -z "$main" ] && exit 0
##############################################
gitolite3-3.6.11/src/triggers/partial-copy-57-do
gitolite3-3.6.11/src/triggers/partial-copy:58: SHA=`git rev-list -1 $ref`
gitolite3-3.6.11/src/triggers/partial-copy-59- for branch in `git for-each-ref refs/heads '--format=%(refname)'`
gitolite3-3.6.11/src/triggers/partial-copy-60- do
gitolite3-3.6.11/src/triggers/partial-copy:61: if [ "`git merge-base $SHA $branch`" = "$SHA" ]; then
gitolite3-3.6.11/src/triggers/partial-copy-62- # tag is reachable in current branch, continue higher loop
##############################################
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-48- # is this a multi-key?
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split:49: lines=`wc -l < $k`
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-50- case $lines in
##############################################
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-53-
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split:54: base=`basename $k .pub`
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-55- mv $k $base.multi
##############################################
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-62- # do we need to split?
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split:63: lines=`wc -l < $k`
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-64- case $lines in
##############################################
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-67-
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split:68: base=`basename $k .multi`
gitolite3-3.6.11/src/triggers/post-compile/ssh-authkeys-split-69- # sanity check
##############################################
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs-41- my $gc = git_config( $pr, '.', 1 );
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs:42: my $ac = `git config --file $RB/$pr.git/config -l`;
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs-43- while ( my ( $key, $value ) = each( %{$gc} ) ) {
##############################################
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs-48- if ( $value ne "" ) {
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs:49: system( "git", "config", "--file", "$RB/$pr.git/config", $key, $value );
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs-50- } elsif ( $ac =~ /^\Q$lkey\E=/m ) {
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs:51: system( "git", "config", "--file", "$RB/$pr.git/config", "--unset-all", $key );
gitolite3-3.6.11/src/triggers/post-compile/update-git-configs-52- }
##############################################
gitolite3-3.6.11/src/triggers/post-compile/update-git-daemon-access-list-22-
gitolite3-3.6.11/src/triggers/post-compile/update-git-daemon-access-list:23:for my $d (`$cmd | gitolite access % daemon R any`) {
gitolite3-3.6.11/src/triggers/post-compile/update-git-daemon-access-list-24- my @F = split "\t", $d;
##############################################
gitolite3-3.6.11/src/triggers/post-compile/update-gitweb-access-list-17-# filename (note: 'mktemp -u' on some systems, this gets close enough)
gitolite3-3.6.11/src/triggers/post-compile/update-gitweb-access-list:18:tmpfile=`mktemp $plf.tmp_XXXXXXXX`
gitolite3-3.6.11/src/triggers/post-compile/update-gitweb-access-list-19-rm -f $tmpfile;
##############################################
gitolite3-3.6.11/src/gitolite-82- trace( 2, "attempting gitolite command $c" );
gitolite3-3.6.11/src/gitolite:83: _system( $c, @args );
gitolite3-3.6.11/src/gitolite-84-
##############################################
gitolite3-3.6.11/src/gitolite-shell-143- my $repodir = "'$rc{GL_REPO_BASE}/$repo.git'";
gitolite3-3.6.11/src/gitolite-shell:144: _system( "git", "shell", "-c", "$verb $repodir" );
gitolite3-3.6.11/src/gitolite-shell-145- }
##############################################
gitolite3-3.6.11/t/gitolite-receive-pack-11-$ENV{SSH_ORIGINAL_COMMAND} = "git-receive-pack '$repo'";
gitolite3-3.6.11/t/gitolite-receive-pack:12:exec( "$ENV{GL_BINDIR}/../src/gitolite-shell", $user );
##############################################
gitolite3-3.6.11/t/gitolite-upload-pack-11-$ENV{SSH_ORIGINAL_COMMAND} = "git-upload-pack '$repo'";
gitolite3-3.6.11/t/gitolite-upload-pack:12:exec( "$ENV{GL_BINDIR}/../src/gitolite-shell", $user );
##############################################
gitolite3-3.6.11/t/glt-23- $ENV{SSH_ORIGINAL_COMMAND} = join(" ", $cmd, @ARGV);
gitolite3-3.6.11/t/glt:24: exec( "$ENV{GL_BINDIR}/../src/gitolite-shell", $user );
gitolite3-3.6.11/t/glt-25-} elsif ( $cmd eq 'push' ) {
gitolite3-3.6.11/t/glt-26- print STDERR "TRACE: glt(", join( ")(", @ARGV ), ")\n";
gitolite3-3.6.11/t/glt:27: $rc = system( "git", $cmd, "--receive-pack=$ENV{GL_BINDIR}/gitolite-receive-pack", @ARGV );
gitolite3-3.6.11/t/glt-28-} else {
gitolite3-3.6.11/t/glt-29- print STDERR "TRACE: glt(", join( ")(", @ARGV ), ")\n";
gitolite3-3.6.11/t/glt:30: $rc = system( "git", $cmd, "--upload-pack=$ENV{GL_BINDIR}/gitolite-upload-pack", @ARGV );
gitolite3-3.6.11/t/glt-31-}
##############################################
gitolite3-3.6.11/t/mirror-test-37- my $k = shift;
gitolite3-3.6.11/t/mirror-test:38: system("cp $h/.ssh/$k $h/.ssh/id_rsa");
gitolite3-3.6.11/t/mirror-test:39: system("cp $h/.ssh/$k.pub $h/.ssh/id_rsa.pub");
gitolite3-3.6.11/t/mirror-test-40-}
##############################################
gitolite3-3.6.11/.pc/fix-paths/src/gitolite-82- trace( 2, "attempting gitolite command $c" );
gitolite3-3.6.11/.pc/fix-paths/src/gitolite:83: _system( $c, @args );
gitolite3-3.6.11/.pc/fix-paths/src/gitolite-84-
##############################################
gitolite3-3.6.11/.pc/fix-paths/src/gitolite-shell-143- my $repodir = "'$rc{GL_REPO_BASE}/$repo.git'";
gitolite3-3.6.11/.pc/fix-paths/src/gitolite-shell:144: _system( "git", "shell", "-c", "$verb $repodir" );
gitolite3-3.6.11/.pc/fix-paths/src/gitolite-shell-145- }