Subversion Repositories DevTools

Rev

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

Rev 1347 Rev 1348
Line 851... Line 851...
851 
#                   Command arguments
 851 
#                   Command arguments
852 
#                   Last argument may be a hash of options.
 852 
#                   Last argument may be a hash of options.
853 
#                       credentials - Add credentials
 853 
#                       credentials - Add credentials
854 
#                       nosavedata  - Don't save the data
 854 
#                       nosavedata  - Don't save the data
855 
#                       process     - Callback function
 855 
#                       process     - Callback function
- 
 
 856 
#                       printdata   - Print data
856 
#                       error       - Error Message
 857 
#                       error       - Error Message
857 
#                                     Used as first line of an Error call
 858 
#                                     Used as first line of an Error call
858 
#
 859 
#
859 
# Returns         : non-zero on errors detected
 860 
# Returns         : non-zero on errors detected
860 
#
 861 
#
Line 869... Line 870...
869 
    #
 870 
    #
870 
    my $opt;
 871 
    my $opt;
871 
    $opt = pop @_
 872 
    $opt = pop @_
872 
        if (@_ > 0 and UNIVERSAL::isa($_[-1],'HASH'));
 873 
        if (@_ > 0 and UNIVERSAL::isa($_[-1],'HASH'));
873 
 
 874 
 
- 
 
 875 
    my $savedPrintData = $self->{PRINTDATA};
- 
 
 876 
    $self->{PRINTDATA} = $opt->{'printdata'} if ( exists $opt->{'printdata'} );
- 
 
 877 
 
874 
    #
 878 
    #
875 
    #   All commands are non-interactive, prepend argument
 879 
    #   All commands are non-interactive, prepend argument
876 
    #   Accept serve certs. Only applies to https connections. VisualSvn
 880 
    #   Accept serve certs. Only applies to https connections. VisualSvn
877 
    #   perfers https and it uses self-signed certificates.
 881 
    #   perfers https and it uses self-signed certificates.
878 
    #
 882 
    #
Line 1002... Line 1006...
1002 
    #
 1006 
    #
1003 
    Debug ("Useless Exit Status: $rv");
 1007 
    Debug ("Useless Exit Status: $rv");
1004 
    my $result = @{$self->{ERROR_LIST}} ? 1 : 0;
 1008 
    my $result = @{$self->{ERROR_LIST}} ? 1 : 0;
1005 
    Verbose3 ("Exit Code: $result");
 1009 
    Verbose3 ("Exit Code: $result");
1006 
 
 1010 
 
- 
 
 1011 
    $self->{PRINTDATA} = $savedPrintData;
1007 
    return $result;
 1012 
    return $result;
1008 
}
 1013 
}
1009 
 
 1014 
 
1010 
 
 1015 
 
1011 
#-------------------------------------------------------------------------------
 1016 
#-------------------------------------------------------------------------------