Changeset 995

Timestamp:

12/29/06 17:51:48 (2 years ago)

Author:

gboggs

Message:

Updating the build system.

Files:

• branches/mt3.34/build/Build.pm (modified) (27 diffs)
• branches/mt3.34/build/exportmt (deleted)
• branches/mt3.34/build/exportmt.pl (modified) (2 diffs)
• branches/mt3.34/build/mt-dists/MT.mk (modified) (1 diff)

branches/mt3.34/build/Build.pm

@@ -11 +11 @@
-
- cd $MT_DIR
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-=head1 DESCRIPTION
-
-all 
-
+
+ in multiple languages
-
-Please see the full documentation at:
@@ -36 +37 @@
-use Archive::Tar;
-use Cwd;
-use ExtUtils::Install 1.37_02;
-use File::Basename;
-use File::Copy;
@@ -46 +46 @@
-use Net::SMTP;
-use Sys::Hostname;
-
-=head2 METHODS
-
-=cut
-
-sub new {
@@ -70 +66 @@
-      'deploy:s'        => '', #($ENV{USER}||$ENV{USERNAME}).'@rongo:/usr/local/cifs/intranet/mt-interest/',
-      'deploy-uri=s'    => 'https://intranet.sixapart.com/mt-interest',
+      'build!'          => 1,  # Build distribution files?
-      'email-bcc:s'     => undef,
-      'email-body=s'    => '',  # Constructed at run-time.
@@ -85 +82 @@
-      'ldap'            => 0,  # Use LDAP (and don't initialize the database).
-      'lang=s'          => $ENV{BUILD_LANGUAGE} || 'en_US',  # de,es,en_US,fr,ja,nl
+      'language=s@'     => undef,  # Constructed below.
-      'local'           => 0,  # Command-line --option alias
+      'make'            => 0,  # Command-line --option alias for simple legacy `make`
-      'notify:s'        => undef,  # Send email notification on completion.
-      'pack=s'          => undef,  # Constructed at run-time.
@@ -91 +90 @@
-      'plugin-uri=s'    => 'http://code.sixapart.com/svn/mtplugins/trunk',
-      'prod'            => 0,  # Command-line --option alias
+      'prod-dir=s'      => 'Production_Builds',
-      'qa'              => 0,  # Command-line --option alias
-      'repo=s'          => 'trunk',  # Reset at runtime depending on branch,tag.
@@ -106 +106 @@
-    );
-
-a scalar reference
+scalar references
-    # Getopt::Long wants it that way. 
-    while( my( $key, $val ) = each %o ) {
@@ -120 +120 @@
-    }
-
-    # XXX Can't figure out how to pre-define arrays yet.
-    # Make sure we have an archive file type list.
-    $self->{'arch=s@'} ||= [qw( .tar.gz .zip )];
-    # Make the plugins an empty list unless defined.
-    $self->{'plugin=s@'} ||= [];
+    # Construct the list of languages to build.
+    $self->{'lang=s'} = 'de,en_US,es,fr,ja,nl'
+        if lc( $self->{'lang=s'} ) eq 'all';
+    push @{ $self->{'language=s@'} }, split /,/, $self->{'lang=s'};
-}
-
-sub setup {
-    my $self = shift;
+    my %args = @_;
+
+    my $prereq = 'ExtUtils::Install 1.37_02';
+    eval "use $prereq";
+    die( "ERROR: Can't handle plugin directory manipulation: $@" )
+        if ref($@) or $@ ne '';
+
+    # Do we have SSL support?
+    $prereq = 'Crypt::SSLeay';
+    eval { require $prereq };
+    warn( "WARNING: $prereq 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';
@@ -138 +157 @@
-        $self->{'symlink!'} = 0;
-    }
+    if( $self->{'make'} ) {
+        $self->{'build!'} = 0;
+        $self->{'export!'} = 0;
+    }
-    if( $self->{'local'} ) {
-        $self->{'export!'} = 0;
@@ -147 +170 @@
-    # Grab our repository revision.
-    $self->{'revision=s'} = repo_rev();
- and make sure we can connect
+
-    $self->set_repo();
-
-    # Make ab_CD into just 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.
-unless( $self->{'stamp=s'
+if( !$self->{'stamp=s'} || $args{language
-        # Read-in the configuration variables for substitution.
-        my $config = $self->read_conf( "build/mt-dists/$self->{'pack=s'}.mk" );
@@ -162 +182 @@
-          : $self->{'beta=s'}  ? "b$self->{'beta=s'}"
-          : '' );
-        push @stamp, $self->{'short-lang=s'};
-        # Add repo, date and ldap to the stamp if we are not production.
-        unless( $self->{'prod'} ) {
+            push @stamp, $self->{'short-lang=s'};
-            if( $self->{'rev!'} ) {
-                push @stamp, lc( fileparse $self->{'repo=s'} );
@@ -172 +192 @@
-                '%04d%02d%02d', (localtime)[5]+1900, (localtime)[4]+1, (localtime)[3]
-            ) if $self->{'date!'};
+            # Add -ldap to distingush them from Melody Nelson builds.
-            push @stamp, 'ldap' if $self->{'ldap'};
-        }
@@ -184 +205 @@
-    # Set the full name to use for the distribution (e.g. MT-3.3b1-fr-r12345-20061225).
-    $self->{'export-dir=s'} = "$self->{'pack=s'}-$self->{'stamp=s'}";
+    # Name the exported directory (and archive) with the language.
+    $self->{'export-dir=s'} .= "-$self->{'short-lang=s'}" if $self->{'prod'};
-}
-
@@ -197 +220 @@
-    }
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-    if( !$self->{'debug'} && $self->{'export!'} ) {
@@ -250 +278 @@
-            # Add to the URL list depending on where we are deploying.
-            if( $self->{'stage'} ) {
-
+
+
+
+
+
-                push @{ $distros->{url} }, $loc unless $seen{$loc}++;
-            }
@@ -272 +304 @@
-    if( $self->{'deploy:s'} =~ /:/ ) {
-        $self->verbose_command( sprintf( '%s %s %s',
-
+
+
+
-        ) );
-    }
@@ -278 +312 @@
-    else {
-        for my $dist ( @{ $distros->{path} } ) {
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-            copy( $dist, $dest ) or die( "ERROR: Can't copy $dist to $dest: $!" )
-                unless $self->{'debug'};
-            $self->verbose( "Copy $dist to $dest" );
-
-
+the build 
-            $self->stage_distro( $dest ) if $self->{'stage'};
-
-staging html
+build summary page
-            $self->update_html( $dest );
-
@@ -315 +365 @@
-    my $cwd = cwd();
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-    # Do we have a current symlink?
@@ -331 +388 @@
-    $current_db = 'stage_' . $current_db;
-
-Grab
+Set the stage_dir to
-    my $stage_dir = fileparse( $dest, @{ $self->{'arch=s@'} } );
+    # Reset the staging root directory.
+    $stage_root = File::Spec->catdir( $stage_root, $stage_dir );
-
-    # Remove any existing distro, with the same path name.
-dir
-dir
-dir
+root
+root
+root
-            unless $self->{'debug'};
-dir
+root
-    }
-
@@ -354 +413 @@
-    }
-
-Tar-up
+Un-tar
-    my $tar;
-    unless( $self->{'debug'} ) {
@@ -364 +423 @@
-
-    # Change to the distribution directory.
-dir ) or die( "ERROR: Can't chdir $stage_dir:
+root ) or die( "ERROR: Can't chdir $stage_root
-        unless $self->{'debug'};
-
+
+
+
+
+
+
-
-    # Our database is named the same as the distribution (but with _'s) except for LDAP.
@@ -376 +440 @@
-
-    # Set the staging URL to a real location now.
-
-
+
+
+
+
+
+
+
-
-    # Give unto us a shiny, new config file.
@@ -467 +536 @@
-        !$self->{'prod'} &&
-        !$self->{'ldap'} &&
-$self->{'deploy:s'} eq $self->{'stage-dir=s'}
+($self->{'deploy:s'} eq $self->{'stage-dir=s'})
-    ) {
-        my( $stage_dir, $suffix );
@@ -567 +636 @@
-sub plugin_export {
-    my $self = shift;
+    return unless $self->{'plugin=s@'};
-
-    # Change to the export directory, if we are exporting.
@@ -729 +799 @@
-    my $self = shift;
-    $self->verbose( 'Entered inject_footer()' );
-
+ || $self->{'make'}
-
-    my $file = $self->{'export!'}
@@ -742 +812 @@
-    $fh->close();
-
+    return if $contents =~ m/\Q$self->{'footer=s'}\E/;
+
-    $contents =~ s/Reserved.\n/Reserved.\n$self->{'footer=s'}/;
-
@@ -756 +828 @@
-}
-
+sub languages { return @{ shift->{'language=s@'} } }
+
+sub debug { return shift->{'debug'} }
+
+sub help { return shift->{'help|h'} }
+
-sub usage {
-    my $self = shift;
-USAGE
+'USAGE'
-
- MT export build deployment notification automation.
-
- Examples:
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-
- Please see the full documentation at:

branches/mt3.34/build/exportmt.pl

@@ -1 +1 @@
-#!/usr/bin/perl
-#
-# $Id$
-#
-use strict;
-use warnings;
-
+
+
-use Data::Dumper;
-$Data::Dumper::Indent = $Data::Dumper::Terse = $Data::Dumper::Sortkeys = 1;
-
-use lib 'build';
-use Build;
-
-my $build = Build->new();
@@ -20 +16 @@
-
-# Show the usage if requested.
-{'help|h'}
+help()
-
-
-$build->setup(
+
+    $build->setup( language => $_ 
-
-
-
-
-
-
+
+
+
+
-
-
-
+    
+    
-
-
-
+    
+    
-
-# Add the non-production footer
-$build->inject_footer
+    # Export any plugins that are requested
+    $build->plugin_export
-
-# Make the all-important make calls
-$build->make
+    # Add a non-production footer
+    $build->inject_footer
-
-# Create lists of the distribution
-my $distros = $build->create_distro_list
+    # Actually build the distribution file
+    $build->make
-
-# Deploy the distribution
-$build->deploy_distros( $distros 
+    # Create lists of the distribution paths and uri
+    my $distros = $build->create_distro_list(
-
-# Cleanup the exported file
-$build->cleanup(
+    # Deploy the distribution
+    $build->deploy_distros( $distros 
-
-# Send email notification
-$build->notify( $distros 
+    # Cleanup the exported files
+    $build->cleanup(
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

branches/mt3.34/build/mt-dists/MT.mk

@@ -2 +2 @@
-PRODUCT_CODE = MT
-PRODUCT_VERSION = 3.3
-
+
+