Changeset 709

Timestamp:

10/28/06 20:00:48 (2 years ago)

Author:

gboggs

Message:

exportmt.pl - Reworded a couple in-line comments.
Build.pm - Moved the setting of the environment language to the beginning of the setup! Whoops :)

Files:

• branches/wheeljack/build/Build.pm (modified) (3 diffs)
• branches/wheeljack/build/exportmt.pl (modified) (2 diffs)

branches/wheeljack/build/Build.pm

@@ -68 +68 @@
-      'deploy-uri=s'    => 'https://intranet.sixapart.com/mt-interest',
-      'build!'          => 1,  # Build distribution files?
-#
-#
-#
-#
-#
-#
+
+
+
+
+
+
-      'export!'         => 1,  # To export or not to export. That is the question.
-      'export-dir=s'    => '',  # Constructed at run-time.
@@ -140 +140 @@
-    warn( "WARNING: $ssl not found. Can't use SSL.\n" ) if $@;
-
+    # Replace the current language if given one as an argument.
+    $self->{'lang=s'} = $args{language} if $args{language};
+    # Strip the dialect portion of the language code (ab_CD into ab).
+    ($self->{'short-lang=s'} = $self->{'lang=s'}) =~ s/([a-z]{2})_[A-Z]{2}$/$1/o;
+
-    $self->{'pack=s'} ||= -e 'build/mt-dists/MTE.mk' ? 'MTE' : 'MT';
-    $ENV{BUILD_PACKAGE}  = $self->{'pack=s'};
@@ -163 +168 @@
-    # Figure out what repository to use.
-    $self->set_repo();
-
-    # Replace the current language if given one as an argument.
-    $self->{'lang=s'} = $args{language} if $args{language};
-    # Strip the dialect portion of the language code (ab_CD into ab).
-    ($self->{'short-lang=s'} = $self->{'lang=s'}) =~ s/([a-z]{2})_[A-Z]{2}$/$1/o;
-
-    # Create the build-stamp if one is not already defined.

branches/wheeljack/build/exportmt.pl

@@ -19 +19 @@
-
-for( $build->languages() ) {
-    # Perform the preliminary contextual set-up.
-    $build->setup( language => $_ );
-
@@ -51 +50 @@
-    $build->cleanup();
-
-Refactor
+Factor out
-    $build->notify( $distros );
-}