[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository cvs.pm,1.45,1.46

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory sc8-pr-cvs1:/tmp/cvs-serv10310/lib/SandWeb/Repository

Modified Files:
	cvs.pm 
Log Message:
made timeout a global option, now you can easily set a number of
seconds in the sandweb.cfg and CLI ops will time out at that time
( prevents runaway CVS/SSH processes and such ).

Default is 300 seconds ( 5 minutes ).


Index: cvs.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/cvs.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -U2 -r1.45 -r1.46
--- cvs.pm	1 Apr 2003 01:21:40 -0000	1.45
+++ cvs.pm	1 Apr 2003 02:46:27 -0000	1.46
@@ -161,4 +161,7 @@
 	my $system_password = $args{'system_password'} || '';
 
+	# system_timeout is the time limit for running on the CLI
+	my $system_timeout = $args{'system_timeout'} || '';
+
 	# log is a reference to an object based on the SandWeb::Log class
 	my $log = $args{'log_obj'} || '';
@@ -177,4 +180,5 @@
 		'system_username' => $system_username,
 		'system_password' => $system_password,
+		'system_timeout' => $system_timeout,
 		'log' => $log,
 	}, $class;
@@ -2557,4 +2561,5 @@
         my $system_username = $self->get_system_username() || '';
         my $system_password = $self->get_system_password() || '';
+        my $system_timeout = $self->get_system_timeout() || '';
         my $log = $self->get_log() || '';
 
@@ -2582,5 +2587,7 @@
 		'users_dir' => "$users_dir",
 		'vcs_password' => "$vcs_password",
+		'system_timeout' => "$system_timeout",
 		'system_username' => "$system_username",
+		'system_password' => "$system_password",
 		'bindir' => "$bindir",
 		'system' => "$system",
@@ -2887,4 +2894,70 @@
 	}
 }
+=head1
+
+METHOD
+
+        get_system_timeout
+
+SYNOPSIS
+
+    my $return_code = $CVS->get_system_timeout();
+
+DESCRIPTION
+
+    Returns the current timeout setting for CLI operations ( in seconds ).
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A string containing the current timeout in seconds is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+
+=cut
+
+sub get_system_timeout {
+	my $self = shift;
+	return $self->{'system_timeout'};
+}
+
+=head1
+
+METHOD
+
+        get_log
+
+SYNOPSIS
+
+    my $logobj = $CVS->get_log();
+
+DESCRIPTION
+
+    Returns a reference to an instantiated log object.
+
+PARAMETERS
+
+    None
+
+RETURN CODE
+
+    A reference to an instantiated log object is returned.
+
+    0 = This means that the method got an error proccessing your request.
+        Perhaps an invalid parameter?
+
+   -1 = This return value means that there was not sufficient permision to
+        read the files specified, or they did not exist.
+
+
+=cut
 
 sub get_log {