Subversion Repositories DevTools

Rev

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

Rev 353 Rev 363
Line 33... Line 33...
33 
#   Must be 'our' to work with EnvImport
 33 
#   Must be 'our' to work with EnvImport
34 
#
 34 
#
35 
our $GBE_SVN_PATH;                      # Optional: SVN bin directory
 35 
our $GBE_SVN_PATH;                      # Optional: SVN bin directory
36 
our $GBE_SVN_USERNAME;                  # Optional: User name
 36 
our $GBE_SVN_USERNAME;                  # Optional: User name
37 
our $GBE_SVN_PASSWORD;                  # Optional: User passwrd
 37 
our $GBE_SVN_PASSWORD;                  # Optional: User passwrd
- 
 
 38 
our $USER;
38 
 
 39 
 
39 
package JatsSvnCore;
 40 
package JatsSvnCore;
40 
 
 41 
 
41 
use JatsError;
 42 
use JatsError;
42 
use JatsSystem;
 43 
use JatsSystem;
Line 92... Line 93...
92 
{
 93 
{
93 
    #
 94 
    #
94 
    #   Determine authentication information
 95 
    #   Determine authentication information
95 
    #   If not present then assume that the user is already athenticated
 96 
    #   If not present then assume that the user is already athenticated
96 
    #
 97 
    #
- 
 
 98 
    ::EnvImportOptional('USER');
97 
    ::EnvImportOptional('GBE_SVN_USERNAME');
 99 
    ::EnvImportOptional('GBE_SVN_USERNAME');
98 
    ::EnvImportOptional('GBE_SVN_PASSWORD');
 100 
    ::EnvImportOptional('GBE_SVN_PASSWORD');
99 
 
 101 
 
100 
    #
 102 
    #
101 
    #   User can provide a path to the svn utility
 103 
    #   User can provide a path to the svn utility
Line 697... Line 699...
697 
# Returns         : An array - may be empty
 699 
# Returns         : An array - may be empty
698 
#
 700 
#
699 
sub SvnCredentials
 701 
sub SvnCredentials
700 
{
 702 
{
701 
    my @result;
 703 
    my @result;
702 
 
 - 
 
- 
 
 704 
    Verbose2 ("SvnCredentials: $::USER");
703 
    if ( $::GBE_SVN_USERNAME )
 705 
    if ( $::GBE_SVN_USERNAME )
704 
    {
 706 
    {
- 
 
 707 
        Verbose2 ("SvnCredentials: GBE_SVN_USERNAME : $::GBE_SVN_USERNAME");
- 
 
 708 
        Verbose2 ("SvnCredentials: GBE_SVN_PASSWORD : Defined" ) if ($::GBE_SVN_PASSWORD);
- 
 
 709 
 
705 
        push @result, '--no-auth-cache';
 710 
        push @result, '--no-auth-cache';
706 
        push @result, '--username', $::GBE_SVN_USERNAME;
 711 
        push @result, '--username', $::GBE_SVN_USERNAME;
707 
        push @result, '--password', $::GBE_SVN_PASSWORD if ($::GBE_SVN_PASSWORD);
 712 
        push @result, '--password', $::GBE_SVN_PASSWORD if ($::GBE_SVN_PASSWORD);
708 
    }
 713 
    }
709 
 
 714 
 
Line 917... Line 922...
917 
     return $rv / 256;
 922 
     return $rv / 256;
918 
}
 923 
}
919 
 
 924 
 
920 
#------------------------------------------------------------------------------
 925 
#------------------------------------------------------------------------------
921 
1;
 926 
1;
- 
 
 927