Lines Matching refs:self
41 my $self = {};
42 $self->{_CONFIG_FILE} = undef; # config file
43 $self->{_GLOBAL} = undef; # is it a global config file?
44 $self->{VCSID} = undef; # VCSID
45 $self->{CWS_DB_URL_LIST_REF} = undef; # list of CWS DB servers
46 $self->{NET_PROXY} = undef; # network proxy
47 $self->{CWS_SERVER_ROOT} = undef; # cvs server
48 $self->{CWS_MIRROR_ROOT} = undef; # mirror of cvs server
49 $self->{CWS_LOCAL_ROOT} = undef; # local cvs server
50 $self->{PUBLIC_SVN_SERVER} = undef; # public svn server
51 $self->{PRIVATE_SVN_SERVER} = undef; # private svn server
52 bless ($self, $class);
53 return $self;
58 my $self = shift;
60 if ( !defined($self->{VCSID}) ) {
65 my $config_file = $self->get_config_file();
72 $self->{VCSID} = $vcsid;
74 return $self->{VCSID};
79 my $self = shift;
81 if ( !defined($self->{CWS_DB_URL_LIST_REF}) ) {
82 my $config_file = $self->get_config_file();
99 my $id = $self->vcsid();
120 $self->{CWS_DB_URL_LIST_REF} = \@cws_db_servers;
122 return $self->{CWS_DB_URL_LIST_REF};
127 my $self = shift;
129 if ( !defined($self->{NET_PROXY}) ) {
130 my $config_file = $self->get_config_file();
135 $self->{NET_PROXY} = $net_proxy;
137 return $self->{NET_PROXY} ? $self->{NET_PROXY} : undef;
142 my $self = shift;
144 if ( !defined($self->{CVS_BINARY}) ) {
145 my $config_file = $self->get_config_file();
152 if ( $self->{_GLOBAL} && $cvs_binary =~ /cvs.clt2/ && $^O eq 'MSWin32' ) {
155 $self->{CVS_BINARY} = $cvs_binary;
157 return $self->{CVS_BINARY};
162 my $self = shift;
164 if ( !defined($self->{CVS_SERVER_ROOT}) ) {
165 my $config_file = $self->get_config_file();
171 if ( $self->{_GLOBAL} ) {
174 my $id = $self->vcsid();
177 $self->{CVS_SERVER_ROOT} = $cvs_server_root;
179 return $self->{CVS_SERVER_ROOT};
184 my $self = shift;
186 if ( !defined($self->{CVS_MIRROR_ROOT}) ) {
187 my $config_file = $self->get_config_file();
192 $self->{CVS_MIRROR_ROOT} = $cvs_mirror_root;
194 return $self->{CVS_MIRROR_ROOT} ? $self->{CVS_MIRROR_ROOT} : undef;
199 my $self = shift;
201 if ( !defined($self->{CVS_LOCAL_ROOT}) ) {
202 my $config_file = $self->get_config_file();
207 $self->{CVS_LOCAL_ROOT} = $cvs_local_root;
209 return $self->{CVS_LOCAL_ROOT} ? $self->{CVS_LOCAL_ROOT} : undef;
214 my $self = shift;
216 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_server_root(), 'SERVER'…
222 my $self = shift;
224 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_mirror_root(), 'MIRROR'…
230 my $self = shift;
232 … my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_local_root(), 'LOCAL');
238 my $self = shift;
240 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_server_root(), 'SERVER'…
246 my $self = shift;
248 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_mirror_root(), 'MIRROR'…
254 my $self = shift;
256 … my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_local_root(), 'LOCAL');
262 my $self = shift;
264 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_server_root(), 'SERVER'…
270 my $self = shift;
272 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_mirror_root(), 'MIRROR'…
278 my $self = shift;
280 … my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_local_root(), 'LOCAL');
286 my $self = shift;
288 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_server_root(), 'SERVER'…
294 my $self = shift;
296 …my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_mirror_root(), 'MIRROR'…
302 my $self = shift;
304 … my ($method, $id, $server, $repository) = CwsConfig::split_root($self->cvs_local_root(), 'LOCAL');
312 my $self = shift;
314 if ( !defined($self->{SVN_SERVER}) ) {
315 my $config_file = $self->get_config_file();
320 $self->{SVN_SERVER} = $ooo_svn_server;
322 return $self->{SVN_SERVER} ? $self->{SVN_SERVER} : undef;
327 my $self = shift;
329 if ( !defined($self->{SO_SVN_SERVER}) ) {
330 my $config_file = $self->get_config_file();
335 $self->{SO_SVN_SERVER} = $so_svn_server;
337 return $self->{SO_SVN_SERVER} ? $self->{SO_SVN_SERVER} : undef;
344 my $self = shift;
346 if ( !defined($self->{$repository_source}) ) {
347 my $config_file = $self->get_config_file();
352 $self->{$repository_source} = $source;
354 return $self->{$repository_source} ? $self->{$repository_source} : undef;
360 my $self = shift;
369 return $self->_get_hg_source('HG_LOCAL_SOURCE');
373 return $self->_get_hg_source('HG_LAN_SOURCE');
377 return $self->_get_hg_source('HG_REMOTE_SOURCE');
384 return $self->_get_hg_source($repository.'_HG_LOCAL_SOURCE');
388 return $self->_get_hg_source($repository.'_HG_LAN_SOURCE');
392 return $self->_get_hg_source($repository.'_HG_REMOTE_SOURCE');
401 my $self = shift;
403 if ( !defined($self->{PREBUILD_BINARIES}) ) {
404 my $config_file = $self->get_config_file();
409 $self->{PREBUILD_BINARIES} = $pre_build_binaries;
411 return $self->{PREBUILD_BINARIES} ? $self->{PREBUILD_BINARIES} : undef;
450 my $self = shift;
452 if ( !defined $self->{_CONFIG_FILE} ) {
453 $self->parse_config_file();
455 return $self->{_CONFIG_FILE};
460 my $self = shift;
508 $self->{_CONFIG_FILE} = \%config;
513 my $self = shift;
518 $self->read_config("$ENV{HOME}/.cwsrc");
519 $self->{_GLOBAL} = 0;
522 $self->read_config("$ENV{COMMON_ENV_TOOLS}/cwsrc");
523 $self->{_GLOBAL} = 1;
532 my $self = shift;
533 my $config_file = $self->get_config_file();