Make CS WELCOME also check for SERVOP services rank

git-svn-id: http://svn.tabris.net/repos/srsv@3505 70d4eda1-72e9-0310-a436-91e5bd24443c

diff --git a/branches/0.4.3/modules/serviceslibs/chanserv.pm b/branches/0.4.3/modules/serviceslibs/chanserv.pm
index 8758f3df29868fb8b55f1dd035dbbc55114b140e..ff614eff653b50f91a6922ced9ae667359d7859e 100644 (file)
--- a/branches/0.4.3/modules/serviceslibs/chanserv.pm
+++ b/branches/0.4.3/modules/serviceslibs/chanserv.pm
@@ -2685,7 +2685,7 @@ sub cs_clear_bans($$;$$) {
 sub cs_welcome_pre($$) {
        my ($user, $chan) = @_;
 
-       return can_do($chan, 'WELCOME', $user);
+       return can_do($chan, 'WELCOME', $user) || adminserv::can_do($user, 'SERVOP');
 }
 
 sub cs_welcome_add($$$) {