Make modperl support AddServerDependentCapability

modules/modperl.cpp

@@ -374,6 +374,41 @@ CPerlSocket::~CPerlSocket() {
     }
 }
 
+CPerlCapability::~CPerlCapability() {
+    SvREFCNT_dec(m_serverCb);
+    SvREFCNT_dec(m_clientCb);
+}
+
+void CPerlCapability::OnServerChangedSupport(CIRCNetwork* pNetwork, bool bState) {
+    PSTART;
+    PUSH_PTR(CIRCNetwork*, pNetwork);
+    mXPUSHi(bState);
+    PUTBACK;
+    ret = call_sv(m_serverCb, G_EVAL | G_ARRAY);
+    SPAGAIN;
+    SP -= ret;
+    ax = (SP - PL_stack_base) + 1;
+    if (SvTRUE(ERRSV)) {
+        DEBUG("Perl hook OnServerChangedSupport died with: " + PString(ERRSV));
+    }
+    PEND;
+}
+
+void CPerlCapability::OnClientChangedSupport(CClient* pClient, bool bState) {
+    PSTART;
+    PUSH_PTR(CClient*, pClient);
+    mXPUSHi(bState);
+    PUTBACK;
+    ret = call_sv(m_clientCb, G_EVAL | G_ARRAY);
+    SPAGAIN;
+    SP -= ret;
+    ax = (SP - PL_stack_base) + 1;
+    if (SvTRUE(ERRSV)) {
+        DEBUG("Perl hook OnServerChangedSupport died with: " + PString(ERRSV));
+    }
+    PEND;
+}
+
 template <>
 void TModInfo<CModPerl>(CModInfo& Info) {
     Info.SetWikiPage("modperl");

modules/modperl/modperl.i

@@ -189,6 +189,10 @@ class MCString : public std::map<CString, CString> {};
 	bool ExistsNV(const CString& sName) {
 		return $self->EndNV() != $self->FindNV(sName);
 	}
+    void AddServerDependentCapability(const CString& sName, SV* serverCb,
+                                      SV* clientCb) {
+        $self->AddServerDependentCapability(sName, std::make_unique<CPerlCapability>(serverCb, clientCb));
+	}
 }
 
 %extend CModules {

modules/modperl/module.h

@@ -216,6 +216,20 @@ inline CPerlSocket* CreatePerlSocket(CPerlModule* pModule, SV* perlObj) {
     return new CPerlSocket(pModule, perlObj);
 }
 
+class ZNC_EXPORT_LIB_EXPORT CPerlCapability : public CCapability {
+  public:
+    CPerlCapability(SV* serverCb, SV* clientCb)
+        : m_serverCb(newSVsv(serverCb)), m_clientCb(newSVsv(clientCb)) {}
+    ~CPerlCapability();
+
+    void OnServerChangedSupport(CIRCNetwork* pNetwork, bool bState) override;
+    void OnClientChangedSupport(CClient* pClient, bool bState) override;
+
+  private:
+    SV* m_serverCb;
+    SV* m_clientCb;
+};
+
 inline bool HaveIPv6() {
 #ifdef HAVE_IPV6
     return true;