]> git.donarmstrong.com Git - infobot.git/blobdiff - src/Process.pl
added 'identify <PASS> [nick]'
[infobot.git] / src / Process.pl
index 1e1cbbfb3a6e19e7d7c9d5a7e4d4581511559299..4d2423c998500019cdb616df378b542c53d799fb 100644 (file)
@@ -67,7 +67,7 @@ sub process {
            }
        }
 
-       if (&validChan($thischan)) {
+       if (&validChan($thischan) and &IsFlag("o") ne "o") {
            &msg($who,"I'm already on $thischan...");
            return;
        }
@@ -98,21 +98,50 @@ sub process {
     }
 
     # User Processing, for all users.
-    return '$noreply from userC' if &userCommands() eq $noreply;
+    if ($addressed) {
+       my $retval;
+       return 'returned from pCH'   if &parseCmdHook("main",$message);
 
-    ###
-    # once useless messages have been parsed out, we match them.
-    ###
+       $retval = &userCommands();
+       return unless (defined $retval);
+       return if ($retval eq $noreply);
+    }
+
+    # 'identify'
+    if ($msgType =~ /private/ and $message =~ s/^identify//) {
+       $message =~ s/^\s+|\s+$//g;
+       my @array = split / /, $message;
+
+       if ($who =~ /^_default$/i) {
+           &pSReply("you are too eleet.");
+           return;
+       }
 
-    # addressed.
-    if ($message =~ /^\Q$ident\E\s*\?*$/i) {
-       &status("feedback addressing from $who");
+       if (!scalar @array or scalar @array > 2) {
+           &help("identify");
+           return;
+       }
 
-       &performReply("yes?");
+       my $do_nick = $array[1] || $who;
+
+       if (!exists $users{$do_nick}) {
+           &pSReply("nick $do_nick is not in user list.");
+           return;
+       }
+
+       my $mask = "*!$user@".&makeHostMask($host);
+       ### TODO: prevent adding multiple dupe masks?
+       ### TODO: make &addHostMask() CMD?
+       &pSReply("Added $mask for $do_nick...");
+       $users{$do_nick}{HOSTS}{$mask} = 1;
 
        return;
     }
 
+    ###
+    # once useless messages have been parsed out, we match them.
+    ###
+
     # confused? is this for infobot communications?
     foreach (keys %{$lang{'confused'}}) {
        my $y = $_;
@@ -216,9 +245,12 @@ sub process {
     # here's where the external routines get called.
     # if they return anything but null, that's the "answer".
     if ($addressed) {
+       if ( &parseCmdHook("extra",$message) ) {
+           return 'DID SOMETHING IN PCH.';
+       }
+
        my $er = &Modules();
-       if ($er =~ /\S/) {
-           &performStrictReply($er) if ($er ne $noreply);
+       if (!defined $er) {
            return 'SOMETHING 1';
        }
 
@@ -308,8 +340,17 @@ sub FactoidStuff {
 
            return 'locked factoid' if (&IsLocked($faqtoid) == 1);
 
-           &status("forget: <$who> '$faqtoid' =is=> '$result'");
-           &delFactoid($faqtoid);
+           if (&IsParam("factoidDeleteDelay")) {
+               &status("forgot (safe delete): <$who> '$faqtoid' =is=> '$result'");
+               &setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
+
+               ### delete info. modified_ isn't really used.
+               &setFactInfo($faqtoid, "modified_by", $who);
+               &setFactInfo($faqtoid, "modified_time", time());
+           } else {
+               &status("forget: <$who> '$faqtoid' =is=> '$result'");
+               &delFactoid($faqtoid);
+           }
 
            &performReply("i forgot $faqtoid");
 
@@ -321,6 +362,48 @@ sub FactoidStuff {
        return;
     }
 
+    # factoid unforget/undelete.
+    if ($message =~ s/^un(forget|delete)\s+//i) {
+       return 'unforget: no addr' unless ($addressed);
+
+       if (!&IsParam("factoidDeleteDelay")) {
+           &performReply("safe delete has been disable so what is there to undelete?");
+           return;
+       }
+
+       my $faqtoid = $message;
+       if ($faqtoid eq "") {
+           &help("undelete");
+           return;
+       }
+
+       $faqtoid =~ tr/A-Z/a-z/;
+       my $result = &getFactoid($faqtoid." #DEL#");
+       my $check  = &getFactoid($faqtoid);
+
+       if (!defined $result) {
+           &performReply("i didn't have anything ('$faqtoid') to undelete.");
+           return;
+       }
+
+       if (defined $check) {
+           &performReply("cannot undeleted '$faqtoid' because it already exists?");
+           return;
+       }
+
+       &setFactInfo($faqtoid." #DEL#", "factoid_key", $faqtoid);
+
+       ### delete info. modified_ isn't really used.
+       &setFactInfo($faqtoid, "modified_by",  "");
+       &setFactInfo($faqtoid, "modified_time", 0);
+
+       &performReply("Successfully recovered '$faqtoid'.  Have fun now.");
+
+       $count{'Undelete'}++;
+
+       return;
+    }
+
     # factoid locking.
     if ($message =~ /^((un)?lock)(\s+(.*))?\s*?$/i) {
        return 'lock: no addr 2' unless ($addressed);
@@ -371,7 +454,7 @@ sub FactoidStuff {
                my $author = &getFactInfo($from, "created_by");
                if (&IsFlag("m") and $author =~ /^\Q$who\E\!/i) {
                    &msg($who, "It's not yours to modify.");
-                   return $noreply;
+                   return;
                }
 
                if ($_ = &getFactoid($to)) {
@@ -462,13 +545,14 @@ sub FactoidStuff {
     }
 
     my $result = &doQuestion($message);
-
-    return 'result is $noreply' if ($result eq $noreply);
+    if (!defined $result or $result eq $noreply) {
+       return 'result from doQ undef.';
+    }
 
     if (defined $result and $result ne "") {           # question.
        &status("question: <$who> $message");
        $count{'Question'}++;
-    } elsif (&IsParam("perlMath") and $addressed) {    # perl math.
+    } elsif (&IsChanConf("perlMath") > 0 and $addressed) { # perl math.
        &loadMyModule("perlMath");
        my $newresult = &perlMath();
 
@@ -488,15 +572,22 @@ sub FactoidStuff {
        }
 
        # do the statement.
-       if ($_ = &doStatement($message)) {
+       if (defined &doStatement($message)) {
            return;
        }
 
-       if ($addressed) {
-           &status("unparseable: $message");
-           &performReply( &getRandom(keys %{$lang{'dunno'}}) );
-           $count{'Dunno'}++;
+       return unless ($addressed);
+
+       if (length $message > 64) {
+           &status("unparseable-moron: $message");
+           &performReply( &getRandom(keys %{$lang{'moron'}}) );
+           $count{'Moron'}++;
+           return;
        }
+
+       &status("unparseable: $message");
+       &performReply( &getRandom(keys %{$lang{'dunno'}}) );
+       $count{'Dunno'}++;
     }
 }