Subversion Repositories DevTools

Rev

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

Rev 311 Rev 331
Line 71... Line 71...
71 
    return bless $self, __PACKAGE__;
 71 
    return bless $self, __PACKAGE__;
72 
}
 72 
}
73 
 
 73 
 
74 
sub New
 74 
sub New
75 
{
 75 
{
76 
    my ($base, $name, $version, $sandbox, $type) = @_;
 76 
    my ($base, $name, $version, $sandbox, $type, $local) = @_;
77 
    my $self = EmptyEntry();
 77 
    my $self = EmptyEntry();
78 
 
 78 
 
79 
    #   Load package description ...
 79 
    #   Load package description ...
80 
    #
 80 
    #
81 
    #       If a sandbox link, parse the build.pl and retrieve the BuildName()
 81 
    #       If a sandbox link, parse the build.pl and retrieve the BuildName()
Line 116... Line 116...
116 
            unless ( $rec );
 116 
            unless ( $rec );
117 
 
 117 
 
118 
        ::Warning( "Package names do not match: $rec->{NAME}, $name" )
 118 
        ::Warning( "Package names do not match: $rec->{NAME}, $name" )
119 
            if ( $rec->{NAME} ne $name );
 119 
            if ( $rec->{NAME} ne $name );
120 
 
 120 
 
121 
        if ( substr($version,0,8) eq '!current' ||
 121 
        if ( $local || substr($version,0,8) eq '!current' ||
122 
                substr($version,0,8) eq '!sandbox' )
 122 
                substr($version,0,8) eq '!sandbox' )
123 
        {                                       # display results
 123 
        {                                       # display results
124 
            ::Log( "          -> " );
 124 
            my $logPrefix = "               ->";
- 
 
 125 
            if ( $local ) {
- 
 
 126 
                ::Log( "$logPrefix $base" );
125 
            if ($rec->{NAME} eq "") {
 127 
            } elsif ($rec->{NAME} eq "") {
126 
                ::Log( "n/a\n" );
 128 
                ::Log( "$logPrefix n/a" );
127 
            } else {
 129 
            } else {
128 
                ::Log( "$rec->{NAME} $rec->{VERSION} $rec->{PROJ}\n" );
 130 
                ::Log( "$logPrefix $rec->{NAME} $rec->{VERSION} $rec->{PROJ}" );
129 
            }
 131 
            }
130 
        }
 132 
        }
131 
        elsif ( $rec->{VERSION_FULL} ne $version )
 133 
        elsif ( $rec->{VERSION_FULL} ne $version )
132 
        {
 134 
        {
133 
            ::Warning( "Package versions do not match: $name : $rec->{VERSION_FULL}, $version" );
 135 
            ::Warning( "Package versions do not match: $name : $rec->{VERSION_FULL}, $version" );