From 06f56edf50237e4358b6011fc2ae22543b22a695 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Wed, 18 May 2005 22:20:55 +0000
Subject: [PATCH] ease of use functions, just return true or false. added ease
 of use ListenSSL

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@341 726aef4b-f618-498e-8847-2d620e286838
---
 modules/modperl.pm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/modules/modperl.pm b/modules/modperl.pm
index b31dca0d..8fb97998 100644
--- a/modules/modperl.pm
+++ b/modules/modperl.pm
@@ -392,14 +392,14 @@ sub Connect
 {
 	my ( $me, $host, $port, $timeout, $bEnableReadline, $bUseSSL ) = @_;
 	$me->{fd} = ZNC::Connect( $me->{modobj}, $host, $port, $timeout, $bEnableReadline, $bUseSSL );
-	return( $me->{fd} );
+	return( ( $me->{fd} >= 0 ) );
 }
 
 sub ConnectSSL
 {
 	my ( $me, $host, $port, $timeout, $bEnableReadline ) = @_;
 	$me->{fd} = ZNC::ConnectSSL( $me->{modobj}, $host, $port, $timeout, $bEnableReadline );
-	return( $me->{fd} );
+	return( ( $me->{fd} >= 0 ) );
 }
 
 sub Write
@@ -418,15 +418,18 @@ sub Listen
 {
 	my ( $me, $port, $bindhost, $bEnableReadline, $bUseSSL ) = @_;
 	$me->{fd} = ZNC::Listen( $me->{modobj}, $port, $bindhost, $bEnableReadline, $bUseSSL );
-	return( $me->{fd} );
+	return( ( $me->{fd} >= 0 ) );
 }
 	
+sub ListenSSL
+{
+	my ( $me, $port, $bindhost, $bEnableReadline ) = @_;
+	$me->{fd} = ZNC::ListenSSL( $me->{modobj}, $port, $bindhost, $bEnableReadline );
+	return( ( $me->{fd} >= 0 ) );
+}
+
 1;
 
 
 
 
-
-
-
-