Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
tmp	[ DIR ]	drwxr-xr-x
CHANGELOG	106 B	-rw-r--r--
LICENSE	34.32 KB	-rw-r--r--
add.cgi	1.96 KB	-rwxr-xr-x
config	8 B	-rw-r--r--
config.info	117 B	-rw-r--r--
config.info.nl	133 B	-rw-r--r--
delete.cgi	1.18 KB	-rwxr-xr-x
git-favicon.png	164 B	-rw-r--r--
git-logo.png	208 B	-rw-r--r--
gitweb.cgi.source	164.73 KB	-rwxr-xr-x
gitweb.cgi.source.new	77.04 KB	-rw-r--r--
gitweb.css	3.57 KB	-rw-r--r--
help.cgi	1.82 KB	-rw-r--r--
index.cgi	4.02 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
log_parser.pl	505 B	-rwxr-xr-x
module.info	155 B	-rw-r--r--
module.info.nl	38 B	-rw-r--r--
postinstall.pl	242 B	-rwxr-xr-x
virtual_feature.pl	23.52 KB	-rwxr-xr-x
virtualmin-git-lib.pl	9.36 KB	-rw-r--r--

Code Editor : virtualmin-git-lib.pl

use strict;
use warnings;
our %config;
our $module_root_directory;

BEGIN { push(@INC, ".."); };
eval "use WebminCore;";
&init_config();
&foreign_require("virtual-server", "virtual-server-lib.pl");
my %access = &get_module_acl();

sub can_edit_domain
{
my ($d) = @_;
return &virtual_server::can_edit_domain($d);
}

# list_reps(&domain)
# Returns a list of all repositories in some domain
sub list_reps
{
my ($d) = @_;
my @rv;
my $dir = &virtual_server::public_html_dir($d)."/git";
opendir(my $DIR, $dir);
while(my $f = readdir($DIR)) {
        if ($f =~ /^(\S+)\.git$/) {
                my $rep = { 'dom' => $d,
                            'rep' => $1,
                            'dir' => "$dir/$f" };
		$rep->{'desc'} = &virtual_server::read_file_contents_as_domain_user($d, $rep->{'dir'}."/description");
		push(@rv, $rep);
                }
        }
closedir($DIR);
return @rv;
}

sub git_check
{
return &text('feat_echeck', "<tt>$config{'git'}</tt>")
        if (!&has_command($config{'git'}));
return undef;
}

# passwd_file(&domain)
# Returns the path to the Git password file for a domain
sub passwd_file
{
my ($d) = @_;
if ($config{'passfile'}) {
        return "$d->{'home'}/$config{'passfile'}";
        }
else {
        return "$d->{'home'}/etc/git.basic.passwd";
        }
}

# create_rep(&domain, &rep, description, [allow-anonymous])
# Creates a new Git repository in some domain
sub create_rep
{
my ($d, $rep, $desc, $anon) = @_;
my $git = &has_command($config{'git'});
$git || return "Git command $config{'git'} was not found!";

# Make the dir and setup a repo in it
$rep->{'dir'} = &virtual_server::public_html_dir($d)."/git/$rep->{'rep'}.git";
if (!-d $rep->{'dir'}) {
	&virtual_server::make_dir_as_domain_user($d, $rep->{'dir'}, undef, 1);
	}
my $cmd = "cd ".quotemeta($rep->{'dir'})." && $git --bare init";
my ($out, $ex) = &virtual_server::run_as_domain_user($d, $cmd);
if ($ex) {
	return $out;
	}
&set_rep_permissions($d, $rep);

# Create a <Location> block for the repo
&virtual_server::obtain_lock_web($d);
&add_git_repo_directives($d, $d->{'web_port'}, $rep, $anon);
&add_git_repo_directives($d, $d->{'web_sslport'}, $rep, $anon) if ($d->{'ssl'});
&virtual_server::release_lock_web($d);

# Run update-server-info as Apache
my $webuser = &virtual_server::get_apache_user($d);
my $qdir = quotemeta($rep->{'dir'});
&system_logged(&command_as_user($webuser, 0, 
				"cd $qdir && $git update-server-info"));

# Set description file
if ($desc) {
	my $descfile = "$rep->{'dir'}/description";
	no strict "subs";
	&virtual_server::open_tempfile_as_domain_user($d, DESC, ">$descfile");
	&print_tempfile(DESC, $desc."\n");
	&virtual_server::close_tempfile_as_domain_user($d, DESC);
	use strict "subs";
	}

# Set domain owner name in config file
my $cfile = "$rep->{'dir'}/config";
if (-r $cfile) {
	my $lref = &virtual_server::read_file_lines_as_domain_user(
				$d, $cfile);
	push(@$lref, "", "[gitweb]", "\towner=$d->{'user'}");
	&virtual_server::flush_file_lines_as_domain_user($d, $cfile);
	}

return undef;
}

sub get_git_version
{
my $out = &backquote_command("git --version </dev/null 2>&1");
if ($out =~ /version\s+(\S+)/) {
	return $1;
	}
return undef;
}

# find_gitweb()
# Returns the path to the gitweb.cgi script
sub find_gitweb
{
my $ver = &get_git_version();
my $localcgi = "gitweb.cgi.source";
if (&compare_version_numbers($ver, 1.7) >= 0) {
	$localcgi .= ".new";
	}
foreach my $p ("/var/www/git/gitweb.cgi",	# CentOS
	       "/usr/lib/cgi-bin/gitweb.cgi",	# Ubuntu
	       "$module_root_directory/$localcgi") {
	if (-r $p) {
		return $p;
		}
	}
return undef;
}

# find_gitweb_data()
# Returns the paths to additional files needed by gitweb
sub find_gitweb_data
{
my @files = ( "git-favicon.png", "git-logo.png", "gitweb.css" );
foreach my $p ("/var/www/git",			# CentOS
	       "/var/www",			# Ubuntu
	       $module_root_directory) {
	if (-r "$p/$files[0]") {
		return map { "$p/$_" } @files;
		}
	}
return ( );
}

# set_rep_permissions(&domain, &rep)
# Make a repo mode 770, and set ownership to the Apache user so it can be
# written by SVN
sub set_rep_permissions
{
my ($d, $rep) = @_;
my $qdir = quotemeta($rep->{'dir'});
my $webuser = &virtual_server::get_apache_user($d);
my @uinfo = getpwnam($webuser);
&virtual_server::run_as_domain_user($d, "chmod -R 770 $qdir");
&system_logged("chown -R $uinfo[2] $qdir");
}

# delete_rep(&domain, &rep)
# Delete a Git repository's directory
sub delete_rep
{
my ($d, $rep) = @_;
&unlink_logged($rep->{'dir'});
&virtual_server::obtain_lock_web($d);
&remove_git_repo_directives($d, $d->{'web_port'}, $rep);
&remove_git_repo_directives($d, $d->{'web_sslport'}, $rep) if ($d->{'ssl'});
&virtual_server::release_lock_web($d);
}

# list_users(&domain)
# Returns a list of htaccess user hashes for Git in some domain
sub list_users
{
my ($d) = @_;
&foreign_require("htaccess-htpasswd", "htaccess-lib.pl");
my $users = &htaccess_htpasswd::list_users(&passwd_file($d));
return @$users;
}

# list_rep_users(&domain, &rep)
# Returns a list of user hashes with access to some repo
sub list_rep_users
{
my ($d, $rep) = @_;
my ($virt, $vconf) = &virtual_server::get_apache_virtual($d->{'dom'},
							    $d->{'web_port'});
return () if (!$virt);
my @locs = &apache::find_directive_struct("Location", $vconf);
my ($reploc) = grep { $_->{'words'}->[0] eq "/git/".$rep->{'rep'}.".git" }
		       @locs;
return () if (!$reploc);
my ($limitloc) = &apache::find_directive_struct("LimitExcept",
						   $reploc->{'members'});
my $req = &apache::find_directive_struct("Require",
		$limitloc ? $limitloc->{'members'} : $reploc->{'members'});
return () if (!$req);
my @usernames = @{$req->{'words'}};
shift(@usernames);
return map { { 'user' => $_ } } @usernames;
}

# save_rep_users(&domain, &rep, &users)
# Updates the list of users for some repository
sub save_rep_users
{
my ($d, $rep, $users) = @_;
my @usernames = map { $_->{'user'} } @$users;
my @ports = ( $d->{'web_port'} );
push(@ports, $d->{'web_sslport'}) if ($d->{'ssl'});
foreach my $p (@ports) {
	my ($virt, $vconf, $conf) =
		&virtual_server::get_apache_virtual($d->{'dom'}, $p);
	next if (!$virt);
	my @locs = &apache::find_directive_struct("Location", $vconf);
	my ($reploc) = grep { $_->{'words'}->[0] eq
				 "/git/".$rep->{'rep'}.".git" } @locs;
	next if (!$reploc);
	my ($limitloc) = &apache::find_directive_struct(
				"LimitExcept", $reploc->{'members'});
	&apache::save_directive("Require", [ "user ".join(" ", @usernames) ],
				$limitloc ? $limitloc->{'members'}
					  : $reploc->{'members'}, $conf);
	&flush_file_lines($virt->{'file'});
	}
&virtual_server::register_post_action(\&restart_apache_null);
}

sub restart_apache_null
{
&virtual_server::set_all_null_print();
&virtual_server::restart_apache();
}

# add_git_repo_directives(&domain, port, &repo, [allow-anonymous])
# Add Apache directives for DAV access to some path under /git
sub add_git_repo_directives
{
my ($d, $port, $rep, $anon) = @_;
my ($virt, $vconf) = &virtual_server::get_apache_virtual($d->{'dom'}, $port);
if ($virt) {
	my $lref = &read_file_lines($virt->{'file'});
	my ($locstart, $locend) =
	  &find_git_repo_lines($lref, $virt->{'line'}, $virt->{'eline'}, $rep);
	my @lines;
	if (!$locstart) {
		push(@lines,
		  "<Location /git/$rep->{'rep'}.git>",
		  ($anon ? ("<LimitExcept GET HEAD PROPFIND OPTIONS REPORT>",
			    "Require user",
			    "</LimitExcept>",
			    "<Limit GET HEAD PROPFIND OPTIONS REPORT>",
			    "Satisfy Any",
			    "</Limit>")
		         : ("Require user")),
		  "</Location>");
		}
	splice(@$lref, $virt->{'eline'}, 0, @lines);
	&flush_file_lines();
	undef(@apache::get_config_cache);
	return 1;
	}
else {
	return 0;
	}
}

# remove_git_repo_directives(&domain, port, &rep)
# Delete Apache directives for the /git/repo location
sub remove_git_repo_directives
{
my ($d, $port, $rep) = @_;
my ($virt, $vconf) = &virtual_server::get_apache_virtual($d->{'dom'}, $port);
if ($virt) {
        my $lref = &read_file_lines($virt->{'file'});
        my ($locstart, $locend) =
	  &find_git_repo_lines($lref, $virt->{'line'}, $virt->{'eline'}, $rep);
        if ($locstart) {
                splice(@$lref, $locstart, $locend-$locstart+1);
                }
        &flush_file_lines();
        undef(@apache::get_config_cache);
        return 1;
        }
else {
        return 0;
        }
}

# find_git_repo_lines(&directives, start, end, &repo)
# Returns the start and end lines containing the <Location /git/repo> block
sub find_git_repo_lines
{
my ($dirs, $start, $end, $rep) = @_;
my $repname = $rep->{'rep'};
my ($locstart, $locend, $i);
for($i=$start; $i<=$end; $i++) {
        if ($dirs->[$i] =~ /^\s*<Location\s+\/git\/\Q$repname\E\.git>/i &&
	    !$locstart) {
                $locstart = $i;
                }
        elsif ($dirs->[$i] =~ /^\s*<\/Location>/i && $locstart && !$locend) {
                $locend = $i;
                }
        }
return ($locstart, $locend);
}

# set_user_password(&svn-user, &virtualmin-user, &domain)
# Sets password fields for a Git user based on their virtualmin user hash
sub set_user_password
{
my ($newuser, $user, $dom) = @_;
if ($user->{'pass_crypt'}) {
	# Hashed password is available, use it
	$newuser->{'pass'} = $user->{'pass_crypt'};
	}
elsif ($user->{'pass'} =~ /^\$/ && $user->{'plainpass'}) {
	# MD5-hashed, re-hash plain version
	&foreign_require("htaccess-htpasswd", "htaccess-lib.pl");
        $newuser->{'pass'} = &htaccess_htpasswd::encrypt_password(
				$user->{'plainpass'});
        }
else {
	# Just copy hashed password
        $newuser->{'pass'} = $user->{'pass'};
        }
}

${this.title}

Code Editor : virtualmin-git-lib.pl