Initial commit

6 files changed, 304 insertions, 0 deletions

diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..0e259d4
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,121 @@
+Creative Commons Legal Code
+
+CC0 1.0 Universal
+
+    CREATIVE COMMONS CORPORATION IS NOT A LAW FIRM AND DOES NOT PROVIDE
+    LEGAL SERVICES. DISTRIBUTION OF THIS DOCUMENT DOES NOT CREATE AN
+    ATTORNEY-CLIENT RELATIONSHIP. CREATIVE COMMONS PROVIDES THIS
+    INFORMATION ON AN "AS-IS" BASIS. CREATIVE COMMONS MAKES NO WARRANTIES
+    REGARDING THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS
+    PROVIDED HEREUNDER, AND DISCLAIMS LIABILITY FOR DAMAGES RESULTING FROM
+    THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS PROVIDED
+    HEREUNDER.
+
+Statement of Purpose
+
+The laws of most jurisdictions throughout the world automatically confer
+exclusive Copyright and Related Rights (defined below) upon the creator
+and subsequent owner(s) (each and all, an "owner") of an original work of
+authorship and/or a database (each, a "Work").
+
+Certain owners wish to permanently relinquish those rights to a Work for
+the purpose of contributing to a commons of creative, cultural and
+scientific works ("Commons") that the public can reliably and without fear
+of later claims of infringement build upon, modify, incorporate in other
+works, reuse and redistribute as freely as possible in any form whatsoever
+and for any purposes, including without limitation commercial purposes.
+These owners may contribute to the Commons to promote the ideal of a free
+culture and the further production of creative, cultural and scientific
+works, or to gain reputation or greater distribution for their Work in
+part through the use and efforts of others.
+
+For these and/or other purposes and motivations, and without any
+expectation of additional consideration or compensation, the person
+associating CC0 with a Work (the "Affirmer"), to the extent that he or she
+is an owner of Copyright and Related Rights in the Work, voluntarily
+elects to apply CC0 to the Work and publicly distribute the Work under its
+terms, with knowledge of his or her Copyright and Related Rights in the
+Work and the meaning and intended legal effect of CC0 on those rights.
+
+1. Copyright and Related Rights. A Work made available under CC0 may be
+protected by copyright and related or neighboring rights ("Copyright and
+Related Rights"). Copyright and Related Rights include, but are not
+limited to, the following:
+
+  i. the right to reproduce, adapt, distribute, perform, display,
+     communicate, and translate a Work;
+ ii. moral rights retained by the original author(s) and/or performer(s);
+iii. publicity and privacy rights pertaining to a person's image or
+     likeness depicted in a Work;
+ iv. rights protecting against unfair competition in regards to a Work,
+     subject to the limitations in paragraph 4(a), below;
+  v. rights protecting the extraction, dissemination, use and reuse of data
+     in a Work;
+ vi. database rights (such as those arising under Directive 96/9/EC of the
+     European Parliament and of the Council of 11 March 1996 on the legal
+     protection of databases, and under any national implementation
+     thereof, including any amended or successor version of such
+     directive); and
+vii. other similar, equivalent or corresponding rights throughout the
+     world based on applicable law or treaty, and any national
+     implementations thereof.
+
+2. Waiver. To the greatest extent permitted by, but not in contravention
+of, applicable law, Affirmer hereby overtly, fully, permanently,
+irrevocably and unconditionally waives, abandons, and surrenders all of
+Affirmer's Copyright and Related Rights and associated claims and causes
+of action, whether now known or unknown (including existing as well as
+future claims and causes of action), in the Work (i) in all territories
+worldwide, (ii) for the maximum duration provided by applicable law or
+treaty (including future time extensions), (iii) in any current or future
+medium and for any number of copies, and (iv) for any purpose whatsoever,
+including without limitation commercial, advertising or promotional
+purposes (the "Waiver"). Affirmer makes the Waiver for the benefit of each
+member of the public at large and to the detriment of Affirmer's heirs and
+successors, fully intending that such Waiver shall not be subject to
+revocation, rescission, cancellation, termination, or any other legal or
+equitable action to disrupt the quiet enjoyment of the Work by the public
+as contemplated by Affirmer's express Statement of Purpose.
+
+3. Public License Fallback. Should any part of the Waiver for any reason
+be judged legally invalid or ineffective under applicable law, then the
+Waiver shall be preserved to the maximum extent permitted taking into
+account Affirmer's express Statement of Purpose. In addition, to the
+extent the Waiver is so judged Affirmer hereby grants to each affected
+person a royalty-free, non transferable, non sublicensable, non exclusive,
+irrevocable and unconditional license to exercise Affirmer's Copyright and
+Related Rights in the Work (i) in all territories worldwide, (ii) for the
+maximum duration provided by applicable law or treaty (including future
+time extensions), (iii) in any current or future medium and for any number
+of copies, and (iv) for any purpose whatsoever, including without
+limitation commercial, advertising or promotional purposes (the
+"License"). The License shall be deemed effective as of the date CC0 was
+applied by Affirmer to the Work. Should any part of the License for any
+reason be judged legally invalid or ineffective under applicable law, such
+partial invalidity or ineffectiveness shall not invalidate the remainder
+of the License, and in such case Affirmer hereby affirms that he or she
+will not (i) exercise any of his or her remaining Copyright and Related
+Rights in the Work or (ii) assert any associated claims and causes of
+action with respect to the Work, in either case contrary to Affirmer's
+express Statement of Purpose.
+
+4. Limitations and Disclaimers.
+
+ a. No trademark or patent rights held by Affirmer are waived, abandoned,
+    surrendered, licensed or otherwise affected by this document.
+ b. Affirmer offers the Work as-is and makes no representations or
+    warranties of any kind concerning the Work, express, implied,
+    statutory or otherwise, including without limitation warranties of
+    title, merchantability, fitness for a particular purpose, non
+    infringement, or the absence of latent or other defects, accuracy, or
+    the present or absence of errors, whether or not discoverable, all to
+    the greatest extent permissible under applicable law.
+ c. Affirmer disclaims responsibility for clearing rights of other persons
+    that may apply to the Work or any use thereof, including without
+    limitation any person's Copyright and Related Rights in the Work.
+    Further, Affirmer disclaims responsibility for obtaining any necessary
+    consents, permissions or other rights required for any use of the
+    Work.
+ d. Affirmer understands and acknowledges that Creative Commons is not a
+    party to this document and has no duty or obligation with respect to
+    this CC0 or use of the Work.
diff --git a/README b/README
new file mode 100644
index 0000000..1b97967
--- /dev/null
+++ b/README
@@ -0,0 +1,2 @@
+mgagit is a tool used to manage Mageia git repositories.
+
diff --git a/config_default b/config_default
new file mode 100644
index 0000000..f233c16
--- /dev/null
+++ b/config_default
@@ -0,0 +1,7 @@
+---
+tmpl_dir: /usr/share/mgagit/tmpl
+gitolite_config: /var/lib/git/.gitolite/conf/gitolite.conf
+repos_config:
+  - prefix: software
+    include_dir: /var/lib/git/repos/software
+    gl_template: soft_repo
diff --git a/lib/MGA/Git.pm b/lib/MGA/Git.pm
new file mode 100644
index 0000000..16ea709
--- /dev/null
+++ b/lib/MGA/Git.pm
@@ -0,0 +1,90 @@
+package MGA::Git;
+
+use strict;
+use YAML qw(LoadFile);
+use IO::File;
+use Template;
+use File::Slurp;
+use feature 'state';
+use Data::Dump qw/dd/;
+
+our $config_file = '/usr/share/mgagit/config';
+our $config = LoadFile($ENV{MGAGIT_CONF} || $config_file);
+our $etc_config_file = '/etc/mgagit.conf';
+my $etc_config = LoadFile($etc_config_file);
+@{$config}{keys %$etc_config} = values %$etc_config;
+
+sub load_gitrepos_dir {
+    my ($repos, $infos) = @_;
+    opendir(my $dh, $infos->{include_dir})
+        || die "Error opening $infos->{include_dir}: $!";
+    while (my $file = readdir($dh)) {
+        if (-d "$infos->{include_dir}/$file") {
+            next if $file =~ m/^\./;
+            my %i = %$infos;
+            $i{prefix} .= '/' . $file;
+            $i{include_dir} .= '/' . $file;
+            load_gitrepos_dir($repos, \%i);
+        } elsif ($file =~ m/(.+)\.repo$/) {
+            my $bname = $1;
+            my $name = "$infos->{prefix}/$bname";
+            $repos->{$name} = LoadFile("$infos->{include_dir}/$file");
+            $repos->{$name}{name} = $bname;
+            @{$repos->{$name}}{keys %$infos} = values %$infos;
+        }
+    }
+}
+
+sub load_gitrepos {
+    my ($r) = @_;
+    $r->{repos} = {};
+    foreach my $include (@{$config->{repos_config}}) {
+        load_gitrepos_dir($r->{repos}, $include);
+    }
+}
+
+sub get_tmpl {
+    my ($name, $ext) = @_;
+    state %tmpl;
+    return $tmpl{"$name.$ext"} if $tmpl{"$name.$ext"};
+    my $tmpl_file = "$config->{tmpl_dir}/$name.$ext";
+    $tmpl{"$name.$ext"} = read_file($tmpl_file);
+    die "Error reading $tmpl_file" unless $tmpl{"$name.$ext"};
+    return $tmpl{"$name.$ext"};
+}
+
+sub gitolite_repo_config {
+    my ($r, $repo) = @_;
+    my $tt = Template->new;
+    my $tmpl = get_tmpl($r->{repos}{$repo}{gl_template}, 'gl');
+    my $vars = {
+        r      => $r,
+        repo   => $repo,
+        config => $config,
+    };
+    my $c;
+    $tt->process(\$tmpl, $vars, \$c);
+    return $c;
+}
+
+sub gitolite_config {
+    my ($r) = @_;
+    my @repos;
+    @repos = map { gitolite_repo_config($r, $_) } sort keys %{$r->{repos}};
+    return join("\n", @repos);
+}
+
+sub update_gitolite_config {
+    my ($r) = @_;
+    my $oldconf = -f $config->{gitolite_config} 
+                ? read_file($config->{gitolite_config}) : '';
+    my $newconf = gitolite_config($r);
+    if ($oldconf eq $newconf) {
+        print "Gitolite config didn't change\n";
+        return;
+    }
+    write_file($config->{gitolite_config}, $newconf);
+    print "TODO: Run gitolite\n";
+}
+
+1;
diff --git a/mgagit b/mgagit
new file mode 100755
index 0000000..df5e699
--- /dev/null
+++ b/mgagit
@@ -0,0 +1,79 @@
+#!/usr/bin/perl -w
+
+use strict;
+use MGA::Git;
+#use Data::Dump qw/dd/;
+
+my %actions = (
+    glconf => {
+        run  => \&glconf,
+        descr => 'Print gitolite configuration',
+        usage => <<END,
+$0 glconf [repo]
+
+Print the gitolite configuration. Optionaly you can add a repository
+name as parameter to display the configuration for this repository only.
+END
+    },
+    glrun  => {
+        run  => \&glrun,
+        descr => 'Update gitolite configuration',
+        usage => <<END,
+$0 glrun
+
+Update gitolite configuration, and run gitolite if changed.
+END
+    },
+    usage  => {
+        run   => \&usage,
+        descr => 'Show usage informations for an action',
+        usage => <<END,
+$0 usage [action]
+
+Show action usage
+END
+    },
+);
+
+sub usage {
+    if ($_[1] && $actions{$_[1]}) {
+        print STDERR $actions{$_[1]}->{usage};
+    } else {
+        print STDERR "$0 [action] [options]\n";
+        print STDERR "$0 usage [action]\n\n";
+        print STDERR "Available actions:\n";
+        print STDERR map { " - $_ : $actions{$_}->{descr}\n" } keys %actions;
+    }
+}
+sub usageexit {
+    usage(@_);
+    exit 1;
+}
+
+sub glconf {
+    usageexit('usage', $_[0]) unless @_ <= 2;
+    my %r;
+    MGA::Git::load_gitrepos(\%r);
+    if (my $repo = $_[1]) {
+        if (!$r{repos}{$repo}) {
+            print STDERR "Cannot find repository $repo\n";
+            exit 1;
+        }
+        print MGA::Git::gitolite_repo_config(\%r, $repo);
+    } else {
+        print MGA::Git::gitolite_config(\%r), "\n";
+    }
+}
+
+sub glrun {
+    usageexit('usage', $_[0]) unless @_ == 1;
+    my %r;
+    MGA::Git::load_gitrepos(\%r);
+    MGA::Git::update_gitolite_config(\%r);
+}
+
+if (@ARGV == 0 || !$actions{$ARGV[0]}) {
+    usageexit();
+}
+$actions{$ARGV[0]}->{run}->(@ARGV);
+
diff --git a/tmpl/soft_repo.gl b/tmpl/soft_repo.gl
new file mode 100644
index 0000000..1e12256
--- /dev/null
+++ b/tmpl/soft_repo.gl
@@ -0,0 +1,5 @@
+repo [% repo %]
+   RW  master     = [% r.repos.$repo.maintainer %]
+   RW  release/   = [% r.repos.$repo.maintainer %]
+   RW+ user/USER/ = @all
+   R              = @all