X-Git-Url: http://git.qt-users.jp/git/?p=mirror%2Fqt%2Fqt5.git;a=blobdiff_plain;f=init-repository;h=15dc26d9fdaf2fe3b5e67a06d0d1f7ee3c2977c9;hp=819e042d84a918ae74f662c67254a8a5c163ed96;hb=d8b73a8ba0f61cb12d74ee28ceccb5710674d70d;hpb=680b0afee5914df6c2fb9c8365d1d8a0151f3489

diff --git a/init-repository b/init-repository
index 819e042..15dc26d 100755
--- a/init-repository
+++ b/init-repository
@@ -120,6 +120,11 @@ Switch to internal Nokia URLs.
 Switch to internal Nokia URLs and make use of the Brisbane git mirrors.
 (Implies `--mirror' and `--mirror-webkit').
 
+=item --berlin
+
+Switch to internal Nokia URLs and make use of the Berlin git mirrors.
+(Implies `--mirror' and `--mirror-webkit').
+
 
 =item --ssh
 
@@ -231,6 +236,13 @@ my $BNE_MIRROR_URL_BASE
 my $BNE_MIRROR_WEBKIT_URL
     = 'git://bq-git.apac.nokia.com/qtsoftware/research/gitorious-org-webkit-qtwebkit-mirror.git';
 
+my $BER_MIRROR_URL_BASE
+    = 'git://ber-git.europe.nokia.com/qt/';
+
+my $BER_MIRROR_WEBKIT_URL
+    = 'git://ber-git.europe.nokia.com/qtwebkit/qtwebkit.git';
+
+
 sub new
 {
     my ($class, @arguments) = @_;
@@ -301,6 +313,13 @@ sub parse_arguments
             $self->{'ignore-submodules'} = 1;
         },
 
+        'berlin|berlin-nokia-developer' => sub {
+            $self->{'nokia-developer'}   = 1;
+            $self->{'protocol'}          = 'internal';
+            $self->{'mirror-url'}        = $BER_MIRROR_URL_BASE;
+            $self->{'mirror-webkit-url'} = $BER_MIRROR_WEBKIT_URL;
+        },
+
         'nokia-developer' => sub {
             $self->{'nokia-developer'}   = 1;
             $self->{'protocol'}          = 'internal';