logging, tracing, and perltidy, ...
...plus renamed a couple of log events for consistency
This commit is contained in:
parent
a439f47a67
commit
906ed4cbe2
20 changed files with 75 additions and 65 deletions
|
@ -23,7 +23,7 @@ printing anything, which makes it possible to do this in shell:
|
|||
|
||||
usage() if not @ARGV or $ARGV[0] eq '-h';
|
||||
my $nl = "\n";
|
||||
if ($ARGV[0] eq '-n') {
|
||||
if ( $ARGV[0] eq '-n' ) {
|
||||
$nl = '';
|
||||
shift;
|
||||
}
|
||||
|
@ -36,5 +36,5 @@ if ($user) {
|
|||
exit 0 if $creator eq $user;
|
||||
exit 1;
|
||||
}
|
||||
return ($creator eq $user) if $user;
|
||||
return ( $creator eq $user ) if $user;
|
||||
print "$creator$nl";
|
||||
|
|
|
@ -26,8 +26,8 @@ my ( $lc, $patt ) = args();
|
|||
|
||||
print_version();
|
||||
|
||||
print_patterns(); # repos he can create for himself
|
||||
print_phy_repos(); # repos already created
|
||||
print_patterns(); # repos he can create for himself
|
||||
print_phy_repos(); # repos already created
|
||||
print "\n$rc{SITE_INFO}\n" if $rc{SITE_INFO};
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
|
|
|
@ -35,7 +35,7 @@ if ( $ARGV[0] eq '-l' ) {
|
|||
}
|
||||
|
||||
setperms(@ARGV);
|
||||
_system("gitolite", "trigger", "POST_CREATE");
|
||||
_system( "gitolite", "trigger", "POST_CREATE" );
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue