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 : help.cgi

#!/usr/bin/perl
# Show commands for using some repository
use strict;
use warnings;
our (%text, %in);

require './virtualmin-git-lib.pl';
&ReadParse();

# Get the domain and repository
my $dom = &virtual_server::get_domain($in{'dom'});
&can_edit_domain($dom) || &error($text{'add_edom'});
my @reps = &list_reps($dom);
my ($rep) = grep { $_->{'rep'} eq $in{'rep'} } @reps;
$rep || &error($text{'delete_erep'});
my @users = &list_rep_users($dom, $rep);
my $user = @users ? $users[0]->{'user'} : "\$username";

&ui_print_header(&virtual_server::domain_in($dom), $text{'help_title'}, "");

&print_git_commands($text{'help_init'},
	"mkdir ~/public_html/git/$rep->{'rep'}",
	"cd ~/public_html/git/$rep->{'rep'}",
	"git init");

&print_git_commands($text{'help_remote'},
	"cd ~/public_html/git/$rep->{'rep'}",
	"git config remote.upload.url http://$user\@$dom->{'dom'}/git/$rep->{'rep'}.git/",
	"echo machine $dom->{'dom'} login $user password \$password &gt;&gt; ~/.netrc");

&print_git_commands($text{'help_first'},
	"cd ~/public_html/git/$rep->{'rep'}",
	"git --bare init",
	"echo hello &gt; hello.txt",
	"git add hello.txt",
	"git commit -m 'initial checkin'",
	"git push upload master");

&print_git_commands($text{'help_pull'},
	"cd ~/public_html/git/$rep->{'rep'}",
	"git pull upload master");

&print_git_commands($text{'help_push'},
	"cd ~/public_html/git/$rep->{'rep'}",
	"git add somefile.pl",
	"git commit",
	"git push upload master");

&print_git_commands($text{'help_anon'},
	"cd ~",
	"git clone remote.upload.url http://$user/git/$rep->{'rep'}.git/ ~/anontest");

&ui_print_footer("index.cgi?show=$in{'show'}",
		 $text{'index_return'});

sub print_git_commands
{
my ($header, @lines) = @_;
print "<b>$header</b><p>\n";
print &ui_table_start(undef, "width=100%", 2);
print "<pre>".join("\n", @lines)."</pre>\n";
print &ui_table_end();
print "<p>\n";
}

${this.title}

Code Editor : help.cgi