gave access to SetTimeout

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@359 726aef4b-f618-498e-8847-2d620e286838

modules/modperl.pm

@@ -53,7 +53,6 @@ sub CORELoadMod
 	{
 		$Module = $1;
 	}
-
 	if ( !$Module )
 	{
 		ZNC::PutModule( "Invalid Module requested!" );
@@ -106,7 +105,6 @@ sub CORELoadMod
 	require $FileName;
 
 	my $NewMod = $Username . $Module;
-
 	my $obj = new $NewMod();
 	if ( !$obj )
 	{
@@ -415,6 +413,12 @@ sub Close
 	ZNC::CloseSock( $me->{fd} );
 }
 
+sub SetTimeout
+{
+	my ( $me, $timeout ) = @_;
+	ZNC::SetSockValue( $me->{fd}, "timeout", $timeout );
+}
+
 sub Listen
 {
 	my ( $me, $port, $bindhost, $bEnableReadline, $bUseSSL ) = @_;