iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-03-28 17:42:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch '1.10.x'

Browse Source
This commit is contained in:
Alexey Sokolov
2025-12-10 00:55:07 +00:00
parent 7c2571ff03 49af1c8d53
commit d8b8c16783
23 changed files with 277 additions and 173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
test/integration/tests/scripting.cpp
View File

@@ -581,5 +581,43 @@ TEST_F(ZNCTest, ModperlSaslAuth) {
"in as user");
}
TEST_F(ZNCTest, ModperlStringSet) {
#ifndef WANT_PERL
GTEST_SKIP() << "Modperl is disabled";
#endif
auto znc = Run();
znc->CanLeak();
InstallModule("sasltest.pm", R"(
package sasltest;
use base 'ZNC::Module';
sub module_types { $ZNC::CModInfo::GlobalModule }
sub OnClientGetSASLMechanisms {
my $self = shift;
my $mechs = shift;
$mechs->insert('FOO');
$self->GetClient->PutClientRaw("Test1: <" .
$mechs->has_key('AAA') . '/' .
$mechs->has_key('FOO') . '>');
$self->GetClient->PutClientRaw("Test2: " .
join('+', $mechs->keys) . '.');
}
1;
)");
auto ircd = ConnectIRCd();
auto client = LoginClient();
client.Write("znc loadmod modperl");
client.Write("znc loadmod sasltest");
client.ReadUntil("Loaded");
auto client2 = ConnectClient();
client2.Write("CAP LS 302");
client2.ReadUntil("Test1: </1>");
client2.ReadUntil("Test2: FOO+PLAIN.");
}
} // namespace
} // namespace znc_inttest