Subversion Repositories DevTools

Rev

Rev 7441 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7441 Rev 7447
Line 434... Line 434...
434
    }
434
    }
435
    Error( "BuildAlias() missing alias specifications" )
435
    Error( "BuildAlias() missing alias specifications" )
436
        if ( $alias eq "" );
436
        if ( $alias eq "" );
437
 
437
 
438
    if ( isKeyword($alias) ) {
438
    if ( isKeyword($alias) ) {
439
        Error   ("BuildAlias() attempt to alias a keyword: $alias") unless defined($::GBE_ABT);
-
 
440
        Warning ("BuildAlias() attempt to alias a keyword: $alias -- builtin ignored");
439
        abtWarning(1, "BuildAlias() attempt to alias a keyword: $alias");
441
    }
440
    }
442
 
441
 
443
    #
442
    #
444
    #   If we need to recalculate the alias based on targets, then tag the alias
443
    #   If we need to recalculate the alias based on targets, then tag the alias
445
    #   to be processed
444
    #   to be processed
Line 453... Line 452...
453
    {
452
    {
454
        Error( "BuildAlias() cannot create an alias named $alias", "That name is reserved for generic targets" );
453
        Error( "BuildAlias() cannot create an alias named $alias", "That name is reserved for generic targets" );
455
    }
454
    }
456
    elsif ( $alias ne quotemeta( $alias ) )
455
    elsif ( $alias ne quotemeta( $alias ) )
457
    {
456
    {
458
        Error   ("BuildAlias() alias '$alias' contains invalid characters") unless defined($::GBE_ABT);
-
 
459
        Warning( "BuildAlias() alias '$alias' contains invalid characters -- ignored" );
457
        abtWarning (1, "BuildAlias() alias '$alias' contains invalid characters");
460
    }
458
    }
461
    elsif ( $BUILDALIAS{ $alias } )
459
    elsif ( $BUILDALIAS{ $alias } )
462
    {
460
    {
463
        Error   ("BuildAlias() duplicate alias '$alias'") unless defined($::GBE_ABT);
-
 
464
        Warning( "BuildAlias() duplicate alias '$alias' -- alias ignored" );
461
        abtWarning   (1, "BuildAlias() duplicate alias '$alias'")
465
    }
462
    }
466
    else
463
    else
467
    {
464
    {
468
        #
465
        #
469
        #   Expand alias UNLESS using --Target.
466
        #   Expand alias UNLESS using --Target.
Line 1554... Line 1551...
1554
    Log( "DeployPatch. $DEPLOY_PATCH" ) if ($DEPLOY_PATCH);
1551
    Log( "DeployPatch. $DEPLOY_PATCH" ) if ($DEPLOY_PATCH);
1555
    Log( "Project .... $BUILDNAME_PROJECT" )if ($BUILDNAME_PROJECT);
1552
    Log( "Project .... $BUILDNAME_PROJECT" )if ($BUILDNAME_PROJECT);
1556
    Log( "Project .... ****** Specifically supressed ******" )unless ($BUILDNAME_PROJECT);
1553
    Log( "Project .... ****** Specifically supressed ******" )unless ($BUILDNAME_PROJECT);
1557
    Log( "DateTime ... $::CurrentTime" );
1554
    Log( "DateTime ... $::CurrentTime" );
1558
    Log( "AutoBuild... Enabled:$::GBE_ABT" ) if defined($::GBE_ABT) ;
1555
    Log( "AutoBuild... Enabled:$::GBE_ABT" ) if defined($::GBE_ABT) ;
-
 
1556
    Log( "Legacy Mode. Enabled" ) if $::LegacyMode;
-
 
1557
 
1559
    Log( "Build dir... $CwdFull" ) if defined($::GBE_ABT) || $::GBE_DPKG_SBOX;
1558
    Log( "Build dir... $CwdFull" ) if defined($::GBE_ABT) || $::GBE_DPKG_SBOX;
1560
    Log( "Build Mach.. $::GBE_HOSTNAME" ) if defined($::GBE_ABT);
1559
    Log( "Build Mach.. $::GBE_HOSTNAME" ) if defined($::GBE_ABT);
1561
    Log( "Build Cmd .. $CmdSwitch") if $CmdSwitch;
1560
    Log( "Build Cmd .. $CmdSwitch") if $CmdSwitch;
1562
    Log( "Build Info . $BuildInfoFile") if $BuildInfo;
1561
    Log( "Build Info . $BuildInfoFile") if $BuildInfo;
1563
 
1562