Subversion Repositories DevTools

Rev

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

Rev 2422 Rev 2423
Line 529... Line 529...
529 
#                   $url                - Path or URL to get Info on
 529 
#                   $url                - Path or URL to get Info on
530 
#                   $tag                - Name of tag within $self to store data
 530 
#                   $tag                - Name of tag within $self to store data
531 
#                                         Currently InfoWs and InfoRepo
 531 
#                                         Currently InfoWs and InfoRepo
532 
#
 532 
#
533 
# Returns         : Non Zero if errors detected
 533 
# Returns         : Non Zero if errors detected
- 
 
 534 
#                   Authentication errors are always reported
534 
#
 535 
#
535 
sub SvnInfo
 536 
sub SvnInfo
536 
{
 537 
{
537 
    my ($self, $url, $tag) = @_;
 538 
    my ($self, $url, $tag) = @_;
538 
    Error ("Internal: SvnInfo. No Tag provided") unless ( defined $tag );
 539 
    Error ("Internal: SvnInfo. No Tag provided") unless ( defined $tag );
Line 555... Line 556...
555 
    $self->{'infoTag'} = $tag;
 556 
    $self->{'infoTag'} = $tag;
556 
    $self->{$tag}{SvnInfoPath} = $url;
 557 
    $self->{$tag}{SvnInfoPath} = $url;
557 
    my $rv = $self->SvnCmd ('info', $url, '--depth', 'empty'
 558 
    my $rv = $self->SvnCmd ('info', $url, '--depth', 'empty'
558 
                    , { 'credentials' => 1,
 559 
                    , { 'credentials' => 1,
559 
                        'nosavedata' => 1,
 560 
                        'nosavedata' => 1,
560 
                        'error' => 'SvnInfo',
 - 
 
561 
                        'process' => \&ProcessInfo
 561 
                        'process' => \&ProcessInfo
562 
                    }
 562 
                    }
563 
     );
 563 
     );
564 
 
 564 
 
565 
    delete $self->{$tag} if ( @{$self->{ERROR_LIST}} );
 565 
    delete $self->{$tag} if ( @{$self->{ERROR_LIST}} );
Line 857... Line 857...
857 
#                       printdata   - Print data
 857 
#                       printdata   - Print data
858 
#                       error       - Error Message
 858 
#                       error       - Error Message
859 
#                                     Used as first line of an Error call
 859 
#                                     Used as first line of an Error call
860 
#
 860 
#
861 
# Returns         : non-zero on errors detected
 861 
# Returns         : non-zero on errors detected
- 
 
 862 
#                   Aurthentication errors are detected and always reported
862 
#
 863 
#
863 
sub SvnCmd
 864 
sub SvnCmd
864 
{
 865 
{
865 
    my $self = shift;
 866 
    my $self = shift;
866 
    Debug ("SvnCmd");
 867 
    Debug ("SvnCmd");
Line 988... Line 989...
988 
    #   Under Windows if this is not done then we eventually fill up some
 989 
    #   Under Windows if this is not done then we eventually fill up some
989 
    #   perl-internal structure and can't spawn anymore processes.
 990 
    #   perl-internal structure and can't spawn anymore processes.
990 
    #
 991 
    #
991 
    my $rv = waitpid ( $pid, 0);
 992 
    my $rv = waitpid ( $pid, 0);
992 
 
 993 
 
- 
 
 994 
    #   Always process authentication errors
993 
    #
 995 
    #
994 
    #   Spell out authentication errors
 996 
    #   Spell out authentication errors
995 
    #   Appears that some users can't read manuals - let hope they can read screen
 997 
    #   Appears that some users can't read manuals - let hope they can read screen
996 
    #
 998 
    #
997 
    if ( $opt->{'error'} && $authenicationError )
 999 
    if ( $opt->{'error'} && $authenicationError )