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

add an oopish model to sockets as well

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@335 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2005-05-18 09:15:33 +00:00
parent 2184811b0d
commit 0b8b450b29
2 changed files with 108 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/modperl.cpp
+23 -1
View File
@@ -685,7 +685,7 @@ XS(XS_ZNC_GetString)
XS(XS_ZNC_WriteSock)
{
dXSARGS;
if ( items <= 1 )
if ( items != 3 )
Perl_croak( aTHX_ "Usage: ZNC::WriteSock( sockhandle, bytes, len )" );
SP -= items;
@@ -710,6 +710,27 @@ XS(XS_ZNC_WriteSock)
}
}
XS(XS_ZNC_CloseSock)
{
dXSARGS;
if ( items != 1 )
Perl_croak( aTHX_ "Usage: ZNC::CloseSock( sockhandle )" );
SP -= items;
ax = (SP - PL_stack_base) + 1 ;
{
if ( g_ModPerl )
{
PString sReturn = false;
int iSockFD = SvIV(ST(0));
CPerlSock *pSock = (CPerlSock *)MANAGER->FindSockByFD( iSockFD );
if ( ( pSock ) && ( pSock->GetSockName() == ZNCSOCK ) )
pSock->Close();
}
PUTBACK;
}
}
XS(XS_ZNC_COREConnect)
{
dXSARGS;
@@ -908,6 +929,7 @@ bool CModPerl::OnLoad( const CString & sArgs )
newXS( "ZNC::LoadMod", XS_ZNC_LoadMod, (char *)file );
newXS( "ZNC::UnLoadMod", XS_ZNC_UnLoadMod, (char *)file );
newXS( "ZNC::WriteSock", XS_ZNC_WriteSock, (char *)file );
newXS( "ZNC::CloseSock", XS_ZNC_CloseSock, (char *)file );
// this sets up the eval CB that we call from here on out. this way we can grab the error produced
SetupZNCScript();