From a64487d5db57b9e281a5953b082618d2c1fca8a4 Mon Sep 17 00:00:00 2001
From: Silvio Rhatto <rhatto@riseup.net>
Date: Sun, 13 Jan 2013 17:32:58 -0200
Subject: Removing old scripts and cleaning up some code

---
 misc/convert-gitosis-conf | 127 ----------------------------------------------
 1 file changed, 127 deletions(-)
 delete mode 100755 misc/convert-gitosis-conf

(limited to 'misc/convert-gitosis-conf')

diff --git a/misc/convert-gitosis-conf b/misc/convert-gitosis-conf
deleted file mode 100755
index 9b92f68..0000000
--- a/misc/convert-gitosis-conf
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/perl -w
-#
-# migrate gitosis.conf to gitolite.conf format
-#
-# Based on gl-conf-convert by: Sitaram Chamarty
-# Rewritten by: Behan Webster <behanw@websterwood.com>
-#
-
-use strict;
-use warnings;
-
-if (not @ARGV and -t or @ARGV and $ARGV[0] eq '-h') {
-    print "Usage:\n    gl-conf-convert < gitosis.conf > gitolite.conf\n(please see the documentation for details)\n";
-    exit 1;
-}
-
-my @comments = ();
-my $groupname;
-my %groups;
-my $reponame;
-my %repos;
-
-while (<>)
-{
-    # not supported
-    if (/^repositories *=/ or /^map /) {
-        print STDERR "not supported: $_";
-        s/^/NOT SUPPORTED: /;
-        print;
-        next;
-    }
-
-    # normalise whitespace to help later regexes
-    chomp;
-    s/\s+/ /g;
-    s/ ?= ?/ = /;
-    s/^ //;
-    s/ $//;
-
-    if (/^\s*$/ and @comments > 1) {
-        @{$repos{$reponame}{comments}} = @comments if $reponame;
-        @{$groups{$groupname}{comments}} = @comments if $groupname;
-        @comments = ();
-    } elsif (/^\s*#/) {
-        push @comments, $_;
-    } elsif (/^\[repo\s+(.*?)\]$/) {
-        $groupname = '';
-        $reponame = $1;
-        $reponame =~ s/\.git$//;
-    } elsif (/^\[gitosis\]$/) {
-        $groupname = '';
-        $reponame = '@all';
-    } elsif (/^gitweb\s*=\s*yes/i) {
-        push @{$repos{$reponame}{R}}, 'gitweb';
-    } elsif (/^daemon\s*=\s*yes/i) {
-        push @{$repos{$reponame}{R}}, 'daemon';
-    } elsif (/^description\s*=\s*(.+?)$/) {
-        $repos{$reponame}{desc} = $1;
-    } elsif (/^owner\s*=\s*(.+?)$/) {
-        $repos{$reponame}{owner} = $1;
-    } elsif (/^\[group\s+(.*)\]$/) {
-        $reponame = '';
-        $groupname = $1;
-    } elsif (/^members\s*=\s*(.*)/) {
-        push @{$groups{$groupname}{users}}, map {s/\@([^.]+)$/_$1/g; $_} split(' ', $1);
-    } elsif (/^write?able\s*=\s*(.*)/) {
-        foreach my $repo (split(' ', $1)) {
-            $repo =~ s/\.git$//;
-            push @{$repos{$repo}{RW}}, "\@$groupname";
-        }
-    } elsif (/^readonly\s*=\s*(.*)/) {
-        foreach my $repo (split(' ', $1)) {
-            $repo =~ s/\.git$//;
-            push @{$repos{$repo}{R}}, "\@$groupname";
-        }
-    }
-}
-
-#use Data::Dumper;
-#print Dumper(\%repos);
-#print Dumper(\%groups);
-
-# Groups
-print "#\n# Groups\n#\n\n";
-foreach my $grp (sort keys %groups) {
-    next unless @{$groups{$grp}{users}};
-    printf join("\n", @{$groups{$grp}{comments}})."\n" if $groups{$grp}{comments};
-    printf "\@%-19s = %s\n", $grp, join(' ', @{$groups{$grp}{users}});
-}
-
-# Gitweb
-print "\n#\n# Gitweb\n#\n\n";
-foreach my $repo (sort keys %repos) {
-    if ($repos{$repo}{desc}) {
-        @{$repos{$repo}{R}} = grep(!/^gitweb$/, @{$repos{$repo}{R}});
-        print $repo;
-        print " \"$repos{$repo}{owner}\"" if $repos{$repo}{owner};
-        print " = \"$repos{$repo}{desc}\"\n";
-    }
-}
-
-# Repos
-print "\n#\n# Repos\n#\n";
-foreach my $repo (sort keys %repos) {
-    print "\n";
-    printf join("\n", @{$repos{$repo}{comments}})."\n" if $repos{$repo}{comments};
-    #if ($repos{$repo}{desc}) {
-    #    @{$repos{$repo}{R}} = grep(!/^gitweb$/, @{$repos{$repo}{R}});
-    #}
-    print "repo\t$repo\n";
-    foreach my $access (qw(RW+ RW R)) {
-        next unless $repos{$repo}{$access};
-        my @keys;
-        foreach my $key (@{$repos{$repo}{$access}}) {
-            if ($key =~ /^\@(.*)/) {
-                next unless defined $groups{$1} and @{$groups{$1}{users}};
-            }
-            push @keys, $key;
-        }
-        printf "\t$access\t= %s\n", join(' ', @keys) if @keys;
-    }
-    #if ($repos{$repo}{desc}) {
-    #    print $repo;
-    #    print " \"$repos{$repo}{owner}\"" if $repos{$repo}{owner};
-    #    print " = \"$repos{$repo}{desc}\"\n";
-    #}
-}
-- 
cgit v1.2.3