debian -> Debian

[infobot.git] / blootbot / src / Process.pl

diff --git a/blootbot/src/Process.pl b/blootbot/src/Process.pl
index c1b277ec6edd51ca5d33b2eb6db07f7172dc76d5..42602ba3735ae890fcdeb8b88c56b190acb206b6 100644 (file)
--- a/blootbot/src/Process.pl
+++ b/blootbot/src/Process.pl
@@ -27,7 +27,7 @@ sub process {
     $learnok   = 1 if ($addressed);
     if ($param{'learn'} =~ /^HUNGRY$/i) {
        $learnok        = 1;
-       $addressed      = 1;
+       $addrchar       = 1;
        $talkok         = 1;
     }
 
@@ -65,36 +65,34 @@ sub process {
     if ($message =~ /^join(\s+(.*))?\s*$/i) {
        return 'join: not addr' unless ($addressed);
 
-       $2 =~ /^($mask{chan})(,(\S+))?/;
-       my($thischan, $key) = (lc $1, $3);
-       my $chankey     = lc $thischan;
-       $chankey        .= " $key"      if (defined $key);
+       $2 =~ /^($mask{chan})(\s+(\S+))?/;
+       my($joinchan, $key) = (lc $1, $3);
 
-       if ($thischan eq "") {
+       if ($joinchan eq "") {
            &help("join");
            return;
        }
 
-       if ($thischan !~ /^$mask{chan}$/) {
-           &msg($who, "$thischan is not a valid channel name.");
+       if ($joinchan !~ /^$mask{chan}$/) {
+           &msg($who, "$joinchan is not a valid channel name.");
            return;
        }
 
        if (&IsFlag("o") ne "o") {
-           if (!exists $chanconf{$thischan}) {
-               &msg($who, "I am not allowed to join $thischan.");
+           if (!exists $chanconf{$joinchan}) {
+               &msg($who, "I am not allowed to join $joinchan.");
                return;
            }
 
-           if (&validChan($thischan)) {
-               &msg($who,"warn: I'm already on $thischan, joining anyway...");
+           if (&validChan($joinchan)) {
+               &msg($who,"warn: I'm already on $joinchan, joining anyway...");
            }
        }
-       $cache{join}{$thischan} = $who; # used for on_join self.
+       $cache{join}{$joinchan} = $who; # used for on_join self.
 
-       &joinchan($chankey);
-       &status("JOIN $chankey <$who>");
-       &msg($who, "joining $chankey");
+       &status("JOIN $joinchan $key <$who>");
+       &msg($who, "joining $joinchan $key");
+       &joinchan($joinchan, $key);
        &joinNextChan();        # hack.
 
        return;
@@ -342,7 +340,7 @@ sub process {
 
        # allow administration of bot via messages (default is DCC CHAT only)
        if (&IsFlag("A")) {
-           &loadMyModule( $myModules{'ircdcc'} );
+           &loadMyModule( $myModules{'UserDCC'} );
            $er = &userDCC();
            if (!defined $er) {
                return 'SOMETHING 2';