Subversion Repositories DevTools

Rev

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

Rev 369 Rev 399
Line 307... Line 307...
307 
        my $vcstag = $Package{$name}{$ver}{vcstag};
 307 
        my $vcstag = $Package{$name}{$ver}{vcstag};
308 
        my $mtest = exists ($Package{$name}{$ver}{build} ) || '0';
 308 
        my $mtest = exists ($Package{$name}{$ver}{build} ) || '0';
309 
        my @reason1;            # can't extract files
 309 
        my @reason1;            # can't extract files
310 
        my @reason2;            # Others
 310 
        my @reason2;            # Others
311 
        push @reason1, 'No VCS Info' unless ( $vcstag );
 311 
        push @reason1, 'No VCS Info' unless ( $vcstag );
312 
        if ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ )
 312 
        if ( $vcstag =~ m~^CC::(.*?)(::(.+))?$~ ) {
313 
        {
 - 
 
314 
            my $path = $1  || '';
 313 
            my $path = $1  || '';
315 
            my $label = $2 || '';
 314 
            my $label = $2 || '';
316 
            push @reason1, 'No Label' unless ( $label );
 315 
            push @reason1, 'No Label' unless ( $label );
317 
            push @reason1, 'Bad Label, N/A' if ( $label =~ m~^N/A$~i || $label  =~ m~^na$~i );
 316 
            push @reason1, 'Bad Label, N/A' if ( $label =~ m~^N/A$~i || $label  =~ m~^na$~i );
318 
 
 317 
 
Line 321... Line 320...
321 
            push @reason1, 'Bad Path, dpkg' if ( $path =~ m~^/dpkg_archive~ || $path  =~ m~^dpkg_archive~ );
 320 
            push @reason1, 'Bad Path, dpkg' if ( $path =~ m~^/dpkg_archive~ || $path  =~ m~^dpkg_archive~ );
322 
            push @reason1, 'Bad Path, http' if ( $path =~ m~^http:~i );
 321 
            push @reason1, 'Bad Path, http' if ( $path =~ m~^http:~i );
323 
            push @reason1, 'Bad Path, Drive' if ( $path =~ m~^[A-Za-z]\:~ );
 322 
            push @reason1, 'Bad Path, Drive' if ( $path =~ m~^[A-Za-z]\:~ );
324 
            push @reason1, 'Bad Path, UNC' if ( $path =~ m~^//~ );
 323 
            push @reason1, 'Bad Path, UNC' if ( $path =~ m~^//~ );
325 
            push @reason1, 'Bad Path, Relative' unless ( $path =~ m~^/~ );
 324 
            push @reason1, 'Bad Path, Relative' unless ( $path =~ m~^/~ );
- 
 
 325 
 
326 
        }
 326 
        } elsif ( $vcstag =~ m~^SVN::(.*)?$~ ) {
327 
        else
 327 
            my $url = $1;
- 
 
 328 
            push @reason1, 'Bad Path, https' if ( $url =~ m~^https:~i );
- 
 
 329 
            push @reason1, 'Bad Path, http' if ( $url =~ m~^http:~i );
- 
 
 330 
            push @reason1, 'Bad Path, svn' if ( $url =~ m~^svn:~i );
- 
 
 331 
            push @reason1, 'Bad Path, file' if ( $url =~ m~^file:~i );
- 
 
 332 
            push @reason1, 'Bad Path, Begins with /' if ( $url =~ m~^/~i );
- 
 
 333 
 
328 
        {
 334 
        } else {
329 
            push @reason1, 'Bad Version Control Information';
 335 
            push @reason1, 'Bad Version Control Information';
330 
        }
 336 
        }
331 
 
 337 
 
332 
 
 - 
 
333 
        push @reason2, 'No Build System' unless ( exists ($Package{$name}{$ver}{build} ) );
 338 
        push @reason2, 'No Build System' unless ( exists ($Package{$name}{$ver}{build} ) );
334 
 
 339 
 
335 
        unless ( @reason1 )
 340 
        unless ( @reason1 )
336 
        {
 341 
        {
337 
            my $vname = "$name $ver";
 342 
            my $vname = "$name $ver";
Line 559... Line 564...
559 
# Returns         :
 564 
# Returns         :
560 
#
 565 
#
561 
 
 566 
 
562 
sub getPackagesforBaseInstall
 567 
sub getPackagesforBaseInstall
563 
{
 568 
{
564 
    my ($base_env_id) =@_;
 569 
    my ($base_env_id) = @_;
565 
    my $foundDetails = 0;
 570 
    my $foundDetails = 0;
566 
    my (@row);
 571 
    my (@row);
567 
 
 572 
 
568 
    connectDM(\$DM_DB) unless ($DM_DB);
 573 
    connectDM(\$DM_DB) unless ($DM_DB);
569 
 
 574