Subversion Repositories DevTools

Rev

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

Rev 297 Rev 311
Line 108... Line 108...
108 
    #
 108 
    #
109 
    Debug ("GBE_SVN_USERNAME", $::GBE_SVN_USERNAME);
 109 
    Debug ("GBE_SVN_USERNAME", $::GBE_SVN_USERNAME);
110 
    Debug ("GBE_SVN_PASSWORD", $::GBE_SVN_PASSWORD);
 110 
    Debug ("GBE_SVN_PASSWORD", $::GBE_SVN_PASSWORD);
111 
    Debug ("GBE_SVN_PATH", $::GBE_SVN_PATH);
 111 
    Debug ("GBE_SVN_PATH", $::GBE_SVN_PATH);
112 
 
 112 
 
113 
 
 - 
 
114 
    $stdmux = LocateProgInPath ( 'stdmux');
 113 
    $stdmux = LocateProgInPath ( 'stdmux');
115 
    Error ("The JATS stdmux utility cannot be found" ) unless ( $stdmux );
 - 
 
116 
 
 - 
 
117 
    $svn = LocateProgInPath ( 'svn', '--All', '--Path=' . $::GBE_SVN_PATH );
 114 
    $svn    = LocateProgInPath ( 'svn', '--All', '--Path=' . $::GBE_SVN_PATH );
118 
    Error ("The svn utility cannot be found", "Configured Path: $GBE_SVN_PATH") unless ( $svn );
 - 
 
119 
}
 115 
}
120 
 
 116 
 
121 
#-------------------------------------------------------------------------------
 117 
#-------------------------------------------------------------------------------
122 
# Function        : SvnSession
 118 
# Function        : SvnSession
123 
#
 119 
#
Line 131... Line 127...
131 
sub SvnSession
 127 
sub SvnSession
132 
{
 128 
{
133 
    my $self = {};
 129 
    my $self = {};
134 
 
 130 
 
135 
    #
 131 
    #
- 
 
 132 
    #   Delayed error reporting
- 
 
 133 
    #   Allows the the package to be used when SVN is not installed
- 
 
 134 
    #   as long as we don't want to use any of the features
- 
 
 135 
    #
- 
 
 136 
    #   Think of 'help' when svn is not yet installed
- 
 
 137 
    #
- 
 
 138 
    Error ("The JATS stdmux utility cannot be found" ) unless ( $stdmux );
- 
 
 139 
    Error ("The svn utility cannot be found", "Configured Path: $::GBE_SVN_PATH") unless ( $svn );
- 
 
 140 
 
- 
 
 141 
    #
136 
    #   Documented instance variables
 142 
    #   Documented instance variables
137 
    #
 143 
    #
138 
    $self->{REVNO} = undef;         # Revision of last Repository operation
 144 
    $self->{REVNO} = undef;         # Revision of last Repository operation
139 
    $self->{ERROR_LIST} = [];       # Last SVN operation errors
 145 
    $self->{ERROR_LIST} = [];       # Last SVN operation errors
140 
    $self->{RESULT_LIST} = [];      # Last SVN operation results
 146 
    $self->{RESULT_LIST} = [];      # Last SVN operation results