# 'pass'
if ($msgType =~ /private/ and $message =~ s/^pass//i) {
$message =~ s/^\s+|\s+$//g;
- my @array = split / /, $message;
+ my @array = split ' ', $message;
if ($who =~ /^_default$/i) {
&pSReply("you are too eleet.");
}
# todo: use &getUser()?
- my $first = (scalar keys %users) ? 1 : 0;
+ my $first = 1;
+ foreach (keys %users) {
+ if ($users{$_}{FLAGS} =~ /n/) {
+ $first = 0;
+ last;
+ }
+ }
+
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.");
+ &pSReply("First time user... adding you as Master.");
$users{$who}{FLAGS} = "mrsteon";
}
if (!scalar keys %{ $users{$who}{HOSTS} }) {
my $mask = "*!$user@".&makeHostMask($host);
- &pSReply("added mask $mask to $who.");
+ &pSReply("Added hostmask '\002$mask\002' to $who");
$users{$who}{HOSTS}{$mask} = 1;
}
### bot commands...
###
- if ($message =~ s/^literal\s+//i) {
- &status("literal ask of '$message'.");
- $literal = 1;
- }
-
# karma. set...
if ($message =~ /^(\S+)(--|\+\+)\s*$/ and $addressed) {
return '' unless (&hasParam("karma"));
return;
}
- if (lc($term) eq lc($who)) {
+ if (lc $term eq lc $who) {
&msg($who, "please don't karma yourself");
return;
}
- my $karma = &dbGet("karma", "nick",$term,"karma") || 0;
+ my $karma = &dbGet("stats", "counter", "nick='$term' and type='karma'") || 0;
if ($inc eq '++') {
$karma++;
} else {
$karma--;
}
- &dbSet("karma", "nick",$term,"karma",$karma);
+ &dbSet("stats",
+ { nick => $term, type => "karma" },
+ { counter => $karma }
+ );
return;
}
my $limit = &getChanConfDefault("factoidPreventForgetLimit",
0, $chan);
+ &DEBUG("forget: limit = $limit");
+ &DEBUG("forget: count = $count");
+
if (IsFlag("r") ne "r") {
&msg($who, "you don't have access to remove factoids");
return;
return;
}
- if (&IsParam("factoidDeleteDelay")) {
+ if (&IsParam("factoidDeleteDelay") or &IsChanConf("factoidDeleteDelay")) {
if ($faqtoid =~ / #DEL#$/ and !&IsFlag("o")) {
&msg($who, "cannot delete it ($faqtoid).");
return;
&status("forgot (safe delete): <$who> '$faqtoid' =is=> '$result'");
### TODO: check if the "backup" exists and overwrite it
my $check = &getFactoid("$faqtoid #DEL#");
- &DEBUG("Process: check => '$check'.");
- if (!$check) {
+ if (!defined $check or $check =~ /^\s*$/) {
if ($faqtoid !~ / #DEL#$/) {
- &DEBUG("Process: backing up $faqtoid to '$new'.");
my $new = $faqtoid." #DEL#";
+ &DEBUG("Process: backing up $faqtoid to '$new'.");
+
# this looks weird but does it work?
&setFactInfo($faqtoid, "factoid_key", $new);
&setFactInfo($new, "modified_by", $who);
if ($message =~ s/^un(forget|delete)\s+//i) {
return 'unforget: no addr' unless ($addressed);
- if (!&IsParam("factoidDeleteDelay")) {
+ my $i = 0;
+ $i++ if (&IsParam("factoidDeleteDelay"));
+ $i++ if (&IsChanConf("factoidDeleteDelay"));
+ if (!$i) {
&performReply("safe delete has been disable so what is there to undelete?");
return;
}
return;
}
- &DEBUG("unforget: check => $check");
if (defined $check) {
&performReply("cannot undeleted '$faqtoid' because it already exists?");
return;