adam/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-08-07 09:22:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

ease of use functions, just return true or false. added ease of use ListenSSL

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@341 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2005-05-18 22:20:55 +00:00
parent d31526aecd
commit 06f56edf50
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl.pm
+10 -7
View File
@@ -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;