/cs set noclones; prevents clones from joining channels. Appears to work. Help files...

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

diff --git a/branches/0.4.3/SrSv/ChanReg/Flags.pm b/branches/0.4.3/SrSv/ChanReg/Flags.pm
index fbc331b30d0a474e785cbda14930096f39c02534..e42bfbfdbf48d85dcbcd40578a63b9961fad8dc2 100644 (file)
--- a/branches/0.4.3/SrSv/ChanReg/Flags.pm
+++ b/branches/0.4.3/SrSv/ChanReg/Flags.pm
@@ -42,6 +42,7 @@ BEGIN {
                CRF_AUTOVOICE => 1024,
                CRF_WELCOMEINCHAN => 2048,
                CRF_NEVEROP => 4096,
+               CRF_NOCLONES => 8192,
        );
 
        our @EXPORT = (qw(cr_chk_flag cr_set_flag), keys(%constants));

diff --git a/branches/0.4.3/help/chanserv/set.txt b/branches/0.4.3/help/chanserv/set.txt
index 5a424df98ed8f728c3a59c0673a971150117da91..480a668209f4ddfd4ede08bce92e40a1d907caeb 100644 (file)
--- a/branches/0.4.3/help/chanserv/set.txt
+++ b/branches/0.4.3/help/chanserv/set.txt
@@ -17,7 +17,7 @@ Settings:
   AUTOVOICE      Voices everyone who joins the channel.
   BANTYPE        Selects the ban-type to be used for KICKBAN and AKICKs
   TOPICLOCK      Restricts who can change the topic in the channel.
-
+  NOCLONES       Bans people who bring clones into the channel.
 Oper only flags:
   HOLD         Prevent channel from expiring
   FREEZE       Suspend access in this channel

diff --git a/branches/0.4.3/help/chanserv/set/noclones.txt b/branches/0.4.3/help/chanserv/set/noclones.txt
new file mode 100644 (file)
index 0000000..0a75743
--- /dev/null
+++ b/branches/0.4.3/help/chanserv/set/noclones.txt
@@ -0,0 +1,4 @@
+%BChanServ SET NOCLONES%B Kicks and bans users who bring clones (multiple connections) to a channel.
+Users in the channel's access lists are excempt.
+ 
+Syntax: %BSET%B %U#channel%U %BNOCLONES%B <%UON/OFF%U>

diff --git a/branches/0.4.3/modules/serviceslibs/chanserv.pm b/branches/0.4.3/modules/serviceslibs/chanserv.pm
index cde9d58ae8d4b0409e8dce5c76a770859281d9dc..fba111cfe5539c24a30172fb96504fd1d6db3f72 100644 (file)
--- a/branches/0.4.3/modules/serviceslibs/chanserv.pm
+++ b/branches/0.4.3/modules/serviceslibs/chanserv.pm
@@ -148,7 +148,7 @@ our ($cur_lock, $cnt_lock);
 our (
        $get_joinpart_lock, $get_modelock_lock, $get_update_modes_lock,
        
-       $chanjoin, $chanpart, $chop, $chdeop, $get_op, $get_user_chans, $get_user_chans_recent,
+       $chanjoin, $chanpart, $chanpart2, $chop, $chdeop, $get_op, $get_user_chans, $get_user_chans_recent,
        $get_all_closed_chans, $get_user_count,
 
        $is_in_chan,
@@ -212,6 +212,8 @@ our (
        $set_bantype, $get_bantype,
 
        $drop_chantext, $drop_nicktext,
+       $get_host,
+       $get_host_inchan,
 );
 
 sub init() {
@@ -223,6 +225,7 @@ sub init() {
        $chanjoin = $dbh->prepare("REPLACE INTO chanuser (seq,nickid,chan,op,joined) VALUES (?, ?, ?, ?, 1)");
        $chanpart = $dbh->prepare("UPDATE chanuser SET joined=0, seq=?
                WHERE nickid=? AND chan=? AND (seq <= ? OR seq > ?)");
+       $chanpart2 = $dbh->prepare("UPDATE chanuser SET joined=0 WHERE nickid=? AND chan=?");
        #$chop = $dbh->prepare("UPDATE chanuser SET op=op+? WHERE nickid=? AND chan=?");
        $chop = $dbh->prepare("UPDATE chanuser SET op=IF(op & ?, op, op ^ ?) WHERE nickid=? AND chan=?");
        $chdeop = $dbh->prepare("UPDATE chanuser SET op=IF(op & ?, op ^ ?, op) WHERE nickid=? AND chan=?");
@@ -510,6 +513,8 @@ sub init() {
 
        $drop_chantext = $dbh->prepare("DELETE FROM chantext WHERE chan=?");
        $drop_nicktext = $dbh->prepare("DELETE nicktext.* FROM nicktext WHERE nicktext.chan=?");
+       $get_host = $dbh->prepare ("SELECT user.host from user where user.nick=?");
+       $get_host_inchan = $dbh->prepare ("select user.nick from user  left join chanuser on (user.id=chanuser.nickid) where user.host=? and chanuser.joined=1 and chanuser.chan=? and user.nick<>?");
 }
 
 use SrSv::MySQL::Stub {
@@ -537,6 +542,22 @@ our %high_priority_cmds = (
        down => 1,
 );
 
+sub clones_exist ($$) {
+       my ($user, $chan) = @_;
+       my $cn = $chan->{CHAN};
+       unless(cr_chk_flag($chan, CRF_NOCLONES)) {
+               return;
+       }
+       my $nick = $user->{NICK};
+       $get_host->execute($nick);
+       my ($host) = $get_host->fetchrow_array;
+       $get_host_inchan -> execute ($host,$cn,$nick);
+       my ($joined) = $get_host_inchan->fetchrow_array;
+       if ($joined) {
+               return $joined;
+       }
+       return 0;
+}
 sub dispatch($$$) {
        my ($src, $dst, $msg) = @_;
 
@@ -1750,6 +1771,7 @@ sub cs_set_pre($$$$) {
 
                'autovoice' => 1, 'avoice' => 1,
                'neverop' => 1, 'noop' => 1,
+               'noclones' => 1,
        );
        my %override_set = (
                'hold' => 'SERVOP', 'noexpire' => 'SERVOP', 'no-expire' => 'SERVOP',
@@ -1926,7 +1948,20 @@ sub cs_set($$$;$) {
                notice($user, "Please say \002on\002 or \002off\002.");
                return;
        }
-       
+       if ($set =~ /^(?:noclones)$/i) {
+               cr_set_flag($chan, CRF_NOCLONES, $val);
+               if($val) {
+                       notice($user,
+                               "Noclones is now \002ON\002.",
+                               "Clones will be kicked out of \002$cn\002."
+                       );
+               } else {
+                       notice($user,
+                               "Noclones is now \002OFF\002.",
+                               "People are allowed to bring clones in \002$cn\002."
+                       );
+               }
+       }
        if($set =~ /^(?:opguard|secureops)$/i) {
                cr_set_flag($chan, CRF_OPGUARD, $val);
 
@@ -3700,7 +3735,14 @@ sub do_status($$;$) {
                return 0;
        }
        my ($acc, $root) = get_best_acc($user, $chan, 2);
-       if(!can_do($chan, 'JOIN', $user, { ACC => $acc, NOREPLY => 1 })) {
+       my ($accnick, $override) = can_do($chan, 'JOIN', $user, { ACC => $acc, NOREPLY => 1 });
+       unless ($acc > 0 || $override) {
+               if (clones_exist ($user, $chan)) {
+                       kickban($chan, $user, undef, 'No clones allowed in this channel.')
+               }
+       }
+       
+       if(!$accnick && !$override) {
                kickban($chan, $user, undef, 'This is a private channel.')
                        unless $check_only;
                return 0;
@@ -4608,6 +4650,7 @@ sub user_join_multi($$) {
 
        foreach my $user (@$users) {
                $user->{__ID} = get_user_id($user);
+               
                unless (defined($user->{__ID})) {
                        # This does happen occasionally. it's a BUG.
                        # At least we have a diagnostic for it now.