$learnok = 0; # Able to learn?
$talkok = 0; # Able to yap?
$force_public_reply = 0;
+ $literal = 0;
return 'X' if $who eq $ident; # self-message.
return 'addressedother set' if ($addressedother);
}
}
- # ignore.
- if ($ignore) {
- return 'IGNORE';
- }
-
# join, must be done before outsider checking.
if ($message =~ /^join(\s+(.*))?\s*$/i) {
return 'join: not addr' unless ($addressed);
}
# 'identify'
- if ($msgType =~ /private/ and $message =~ s/^identify//) {
+ if ($msgType =~ /private/ and $message =~ s/^identify//i) {
$message =~ s/^\s+|\s+$//g;
my @array = split / /, $message;
return;
}
+ # 'pass'
+ if ($msgType =~ /private/ and $message =~ s/^pass//i) {
+ $message =~ s/^\s+|\s+$//g;
+ my @array = split / /, $message;
+
+ if ($who =~ /^_default$/i) {
+ &pSReply("you are too eleet.");
+ return;
+ }
+
+ if (scalar @array != 1) {
+ &help("pass");
+ return;
+ }
+
+ # todo: use &getUser()?
+ my $first = (scalar keys %users) ? 1 : 0;
+ if (!exists $users{$who} and !$first) {
+ &pSReply("nick $who is not in user list.");
+ return;
+ }
+
+ if ($first) {
+ &pSReply("first time user... adding you as master.");
+ $users{$who}{FLAGS} = "mrsteon";
+ }
+
+ my $crypt = $users{$who}{PASS};
+ if (defined $crypt) {
+ &pSReply("user $who already has pass set.");
+ return;
+ }
+
+ if (!defined $host) {
+ &WARN("pass: host == NULL.");
+ return;
+ }
+
+ if (!scalar keys %{ $users{$who}{HOSTS} }) {
+ my $mask = "*!$user@".&makeHostMask($host);
+ &pSReply("added mask $mask to $who.");
+ $users{$who}{HOSTS}{$mask} = 1;
+ }
+
+ my $salt = join '',('.','/',0..9,'A'..'Z','a'..'z')[rand 64, rand 64];
+ # todo: show crypt?
+ &pSReply("new pass for $who, salt $salt.");
+ $users{$who}{PASS} = crypt($array[0], $salt);
+
+ return;
+ }
+
# allowOutsiders.
if (&IsParam("disallowOutsiders") and $msgType =~ /private/i) {
my $found = 0;
###
# confused? is this for infobot communications?
- foreach (keys %{$lang{'confused'}}) {
+ foreach (keys %{ $lang{'confused'} }) {
my $y = $_;
next unless ($message =~ /^\Q$y\E\s*/);
# customized random message.
my $tmp = (rand() < 0.5) ? ", $who" : "";
- &performStrictReply(&getRandom(keys %{$lang{'hello'}}) . $tmp);
+ &performStrictReply(&getRandom(keys %{ $lang{'hello'} }) . $tmp);
return;
}
# greetings.
if ($message =~ /how (the hell )?are (ya|you)( doin\'?g?)?\?*$/) {
- my $reply = &getRandom(keys %{$lang{'howareyou'}});
-
+ my $reply = &getRandom(keys %{ $lang{'howareyou'} });
+
&performReply($reply);
return;
return;
}
-
###
### bot commands...
###
$msgType = 'public';
}
+ if ($message =~ s/^literal\s+//i) {
+ &status("literal ask of '$message'.");
+ $literal = 1;
+ }
# karma. set...
if ($message =~ /^(\S+)(--|\+\+)\s*$/ and $addressed) {
if (defined $result) {
my $author = &getFactInfo($faqtoid, "created_by");
- if (IsFlag("r") ne "r" && $author =~ /^\Q$who\E\!/i) {
- &msg($who, "you don't have access to remove that factoid");
+ if (IsFlag("r") ne "r") {
+ &msg($who, "you don't have access to remove factoids");
return;
}
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());
+ ### TODO: check if the "backup" exists and overwrite it
+ my $check = &getFactoid("$faqtoid #DEL#");
+ if (!$check) {
+ &setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
+
+ &setFactInfo($faqtoid, "modified_by", $who);
+ &setFactInfo($faqtoid, "modified_time", time());
+ } else {
+ &status("forget: not overwriting backup!");
+ }
} else {
&status("forget: <$who> '$faqtoid' =is=> '$result'");
- &delFactoid($faqtoid);
}
+ &delFactoid($faqtoid);
&performReply("i forgot $faqtoid");
return;
}
+ &DEBUG("unforget: check => $check");
if (defined $check) {
&performReply("cannot undeleted '$faqtoid' because it already exists?");
return;
return;
}
- # strongly requested by #debian on 19991028. -xk
- if (1 and $faqtoid !~ /^\Q$who\E$/i and &IsFlag("o") ne "o") {
- &msg($who,"sorry, locking cannot be used since it can be abused unneccesarily.");
- &status("Replace 1 with 0 in Process.pl#~324 for locking support.");
- return;
- }
-
if (&getFactoid($faqtoid) eq "") {
&msg($who, "factoid \002$faqtoid\002 does not exist");
return;
}
if ($function eq "lock") {
+ # strongly requested by #debian on 19991028. -xk
+ if (1 and $faqtoid !~ /^\Q$who\E$/i and &IsFlag("o") ne "o") {
+ &msg($who,"sorry, locking cannot be used since it can be abused unneccesarily.");
+ &status("Replace 1 with 0 in Process.pl#~324 for locking support.");
+ return;
+ }
+
&CmdLock($faqtoid);
} else {
&CmdUnLock($faqtoid);