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" );