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