iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-05-08 06:14:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

gave access to SetTimeout

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@359 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2005-05-26 02:13:19 +00:00
parent 02be1cce56
commit 0a89cfb57b
2 changed files with 34 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modules/g_modperl.cpp
+28 -1
View File
@@ -746,7 +746,6 @@ XS(XS_ZNC_CloseSock)
{
if ( g_ModPerl )
{
PString sReturn = false;
int iSockFD = SvIV(ST(0));
CPerlSock *pSock = (CPerlSock *)MANAGER->FindSockByFD( iSockFD );
if ( ( pSock ) && ( pSock->GetSockName() == ZNCSOCK ) )
@@ -756,6 +755,33 @@ XS(XS_ZNC_CloseSock)
}
}
XS(XS_ZNC_SetSockValue)
{
dXSARGS;
if ( items < 3 )
Perl_croak( aTHX_ "Usage: ZNC::SetSockValue( sockhandle, what, value )" );
SP -= items;
ax = (SP - PL_stack_base) + 1 ;
{
if ( g_ModPerl )
{
int iSockFD = SvIV(ST(0));
PString sWhat = (char *)SvPV(ST(1),PL_na);
CPerlSock *pSock = (CPerlSock *)MANAGER->FindSockByFD( iSockFD );
if ( ( pSock ) && ( pSock->GetSockName() == ZNCSOCK ) )
{
if ( sWhat == "timeout" )
{
u_int iTimeout = SvUV(ST(2));
pSock->SetTimeout( iTimeout );
}
}
}
PUTBACK;
}
}
XS(XS_ZNC_COREConnect)
{
dXSARGS;
@@ -977,6 +1003,7 @@ bool CModPerl::OnLoad( const CString & sArgs )
newXS( "ZNC::UnloadMod", XS_ZNC_UnloadMod, (char *)file );
newXS( "ZNC::WriteSock", XS_ZNC_WriteSock, (char *)file );
newXS( "ZNC::CloseSock", XS_ZNC_CloseSock, (char *)file );
newXS( "ZNC::SetSockValue", XS_ZNC_SetSockValue, (char *)file );
// this sets up the eval CB that we call from here on out. this way we can grab the error produced
SetupZNCScript();