init-repository

   1 #!/usr/bin/perl
   2 #############################################################################
   3 ##
   4 ## Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies).
   5 ## All rights reserved.
   6 ## Contact: Nokia Corporation (qt-info@nokia.com)
   7 ##
   8 ## This file is part of the utilities of the Qt Toolkit.
   9 ##
  10 ## $QT_BEGIN_LICENSE:LGPL$
  11 ## No Commercial Usage
  12 ## This file contains pre-release code and may not be distributed.
  13 ## You may use this file in accordance with the terms and conditions
  14 ## contained in the Technology Preview License Agreement accompanying
  15 ## this package.
  16 ##
  17 ## GNU Lesser General Public License Usage
  18 ## Alternatively, this file may be used under the terms of the GNU Lesser
  19 ## General Public License version 2.1 as published by the Free Software
  20 ## Foundation and appearing in the file LICENSE.LGPL included in the
  21 ## packaging of this file.  Please review the following information to
  22 ## ensure the GNU Lesser General Public License version 2.1 requirements
  23 ## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
  24 ##
  25 ## In addition, as a special exception, Nokia gives you certain additional
  26 ## rights.  These rights are described in the Nokia Qt LGPL Exception
  27 ## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
  28 ##
  29 ## If you have questions regarding the use of this file, please contact
  30 ## Nokia at qt-info@nokia.com.
  31 ##
  32 ##
  33 ##
  34 ##
  35 ##
  36 ##
  37 ##
  38 ##
  39 ## $QT_END_LICENSE$
  40 ##
  41 #############################################################################
  42
  43 use strict;
  44 use warnings;
  45
  46 my $force = 0;
  47 my $quiet = 0;
  48 my $nokia_developer = 0;
  49 my $brisbane_mirror = 0;
  50 my $ssh_protocol = 0;
  51 my $no_webkit = 0;
  52 my $no_update = 0;
  53
  54 sub system_v
  55 {
  56     if (!$quiet) {
  57         print "+ ";
  58         print @_;
  59         print "\n";
  60     }
  61     return system(@_);
  62 }
  63
  64 sub printUsage
  65 {
  66     print("$0 <options>\n");
  67     print("-f\n\tForce initialization\n");
  68     print("-q\n\tQuiet operation. Will exit cleanly if repository is already\n");
  69     print("\tinitialized\n");
  70     print("-nokia-developer\n\tSwitch to internal Nokia URLs.\n");
  71     print("-brisbane-nokia-developer\n\tSwitch to internal Nokia URLs, and setup the brisbane mirrors.\n");
  72     print("-ssh-protocol\n\tUse SSH protocol, for restrictive firewalls. Note that this requires\n");
  73     print("\ta user account with an uploaded SSH key on all servers used.\n");
  74     print("-no-webkit\n\tSkip webkit and webkit examples submodules.\n");
  75     print("-no-update\n\t Skip the git submodule update command.\n");
  76 }
  77
  78 while (@ARGV) {
  79     my $arg = $ARGV[0];
  80     if ($arg eq "-f") {
  81         $force = 1;
  82     } elsif ($arg eq "-q") {
  83         $quiet = 1;
  84     } elsif ($arg eq "-brisbane-nokia-developer") {
  85         $nokia_developer = 1;
  86         $brisbane_mirror = 1;
  87     } elsif ($arg eq "-nokia-developer") {
  88         $nokia_developer = 1;
  89     } elsif ($arg eq "-ssh-protocol") {
  90         $ssh_protocol = 1;
  91     } elsif ($arg eq "-h" || $arg eq "--help") {
  92         printUsage();
  93         exit 0;
  94     } elsif ($arg eq "-no-webkit") {
  95         $no_webkit = 1;
  96     } elsif ($arg eq "-no-update") {
  97         $no_update = 1;
  98     } else {
  99         print("*** Unknown option: $arg\n");
 100         printUsage();
 101         exit(1);
 102     }
 103     shift;
 104 }
 105
 106 if (`git config --get submodule.qtbase.url`) {
 107     if ($force) {
 108         my @configresult = `git config -l`;
 109         foreach (@configresult) {
 110             if (/(submodule\.[^.=]+\.url)=.*/) {
 111                 system_v("git config --unset $1");
 112             }
 113         }
 114     } else {
 115         exit 0 if ($quiet);
 116         print("Will not reinitialize already initialized repository (use -f to force)!\n");
 117         exit 1;
 118     }
 119 }
 120
 121 my $init_args = "";
 122 $init_args = "-q" if ($quiet);
 123 system_v("git submodule init $init_args");
 124 if ($no_webkit){
 125     system_v("git config --remove submodule.qtwebkit");
 126     system_v("git config --remove submodule.qtwebkit-examples-and-demos");
 127 }
 128
 129 my @configresult = `git config -l`;
 130 foreach (@configresult) {
 131     if (/(submodule\.[^.=]+\.url)=(.*)/) {
 132         my $key = $1;
 133         my $value = $2;
 134         if ($nokia_developer) {
 135             # WebKit is special, and has only external link.
 136             if ($key ne "submodule.qtwebkit.url") {
 137                 # qt-labs projects are still hosted under qt internally.
 138                 $value =~ s,^git://gitorious\.org/qt-labs/,git://scm.dev.nokia.troll.no/qt/,;
 139                 $value =~ s,^git://gitorious\.org/,git://scm.dev.nokia.troll.no/,;
 140             }
 141         }
 142         if ($ssh_protocol) {
 143             $value =~ s,git://([^/:]+)/(.*),git\@$1:$2,;
 144         }
 145         system_v("git config \"$key\" \"$value\"");
 146     }
 147 }
 148
 149 if ($nokia_developer) {
 150     if ($brisbane_mirror) {
 151         my $mirror_url = "git://bq-git.apac.nokia.com/qtsoftware/qt/";
 152         my %exceptions = ("qtwebkit", "git://bq-git.apac.nokia.com/qtsoftware/research/gitorious-org-webkit-qtwebkit-mirror.git");
 153         my @configresult2 = `git config -l`;
 154         foreach (@configresult2) {
 155             if(/submodule\.([^.=]+)\.url=(.*)/){
 156                 my $repo = $1;
 157                 my $url = $2;
 158                 my $this_mirror_url;
 159                 no warnings 'uninitialized';
 160                 if($exceptions{$repo} ne undef){
 161                     $this_mirror_url = $exceptions{$repo};
 162                 } else {
 163                     $this_mirror_url = "$mirror_url$repo.git";
 164                 }
 165                 print("Using mirror $this_mirror_url to clone $url\n");
 166                 unless ($no_update) {
 167                     system_v("git clone $this_mirror_url $repo");
 168                     chdir($repo) or die "cd failed";
 169                     system_v("git config remote.origin.url $url");
 170                     system_v("git remote add mirror $this_mirror_url");
 171                     chdir("..") or die "cd fail";
 172                 }
 173             }
 174         }
 175     }
 176 }
 177
 178 unless ($no_update){
 179     system_v("git submodule update");
 180 }