Illegal->Unknown and show usage on wrong options
[mirror/qt/qt5.git] / 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 }