src/Factoids/Update.pl

   1 #
   2 # Update.pl: Add or modify factoids in the db.
   3 #    Author: Kevin Lenzo
   4 #            dms
   5 #   Version: 19991209
   6 #   Created: 1997
   7 #
   8
   9 if (&IsParam("useStrict")) { use strict; }
  10
  11 sub update {
  12     my($lhs, $mhs, $rhs) = @_;
  13
  14     $lhs =~ s/^i (heard|think) //i;
  15     $lhs =~ s/^some(one|1|body) said //i;
  16     $lhs =~ s/\s+/ /g;
  17
  18     # locked.
  19     return $noreply if (&IsLocked($lhs) == 1);
  20
  21     # profanity.
  22     if (&IsParam("profanityCheck") and &hasProfanity($rhs)) {
  23         &msg($who, "please, watch your language.");
  24         return $noreply;
  25     }
  26
  27     # teaching.
  28     if (&IsFlag("t") ne "t") {
  29         &msg($who, "permission denied.");
  30         &status("alert: $who wanted to teach me.");
  31         return $noreply;
  32     }
  33
  34     # invalid verb.
  35     if ($mhs !~ /^(is|are)$/i) {
  36         &ERROR("UNKNOWN verb: $mhs.");
  37         return;
  38     }
  39
  40     # check if the arguments are too long to be stored in our table.
  41     if (length($lhs) > $param{'maxKeySize'} or
  42         length($rhs) > $param{'maxDataSize'})
  43     {
  44         &performAddressedReply("that's too long");
  45         return $noreply;
  46     }
  47
  48     #
  49     # lets do it...
  50     #
  51
  52     my $also    = ($rhs =~ s/^also //i);
  53     my $also_or = ($also and $rhs =~ s/\s+(or|\|\|)\s+//);
  54
  55     if (&IsParam("freshmeatForFactoid")) {
  56         if (&dbGet("freshmeat", "name", $lhs, "name")) {
  57             &msg($who, "permission denied. (freshmeat)");
  58             &status("alert: $who wanted to teach me something that freshmeat already has info on.");
  59             return $noreply;
  60         }
  61     }
  62
  63     if (my $exists = &getFactoid($lhs)) {       # factoid exists.
  64         if ($exists eq $rhs) {
  65             &performAddressedReply("i already had it that way");
  66             return $noreply;
  67         }
  68
  69         if ($also) {                    # 'is also'.
  70             if ($also_or) {                     # 'is also ||'.
  71                 $rhs = $exists.' || '.$rhs;
  72             } else {
  73                 if ($rhs =~ /^[A-Z]/) {
  74                     if ($rhs =~ /\w+\s*$/) {
  75                         &status("auto insert period to factoid.");
  76                         $rhs = $exists.".  ".$rhs;
  77                     } else {    # '?' or '.' assumed at end.
  78                         &status("orig factoid already had trailing symbol; not adding period.");
  79                         $rhs = $exists."  ".$rhs;
  80                     }
  81                 } elsif ($exists =~ /\,\s*$/) {
  82                     $rhs = $exists." ".$rhs;
  83                 } elsif ($rhs =~ /^\./) {
  84                     $rhs = $exists.$rhs;
  85                 } else {
  86                     $rhs = $exists.', or '.$rhs;
  87                 }
  88             }
  89
  90             # max length check again.
  91             if (length($rhs) > $param{'maxDataSize'}) {
  92                 &performAddressedReply("that's too long");
  93                 return $noreply;
  94             }
  95
  96             &performAddressedReply("okay");
  97
  98             $count{'Update'}++;
  99             &status("update: <$who> \'$lhs\' =$mhs=> \'$rhs\'; was \'$exists\'");
 100             &AddModified($lhs,$nuh);
 101             &setFactInfo($lhs, "factoid_value", $rhs);
 102         } else {                                # not "also"
 103             if ($correction_plausible) {        # "no, blah is ..."
 104                 my $author = &getFactInfo($lhs, "created_by");
 105
 106                 &DEBUG("Update: check: '$author' == '$who' ?");
 107
 108                 if (IsFlag("m") ne "m" and $author !~ /^\Q$who\E\!/i) {
 109                     &msg($who, "you can't change that factoid.");
 110                     return $noreply;
 111                 }
 112
 113                 &performAddressedReply("okay");
 114
 115                 $count{'Update'}++;
 116                 &status("update: <$who> \'$lhs\' =$mhs=> \'$rhs\'; was \'$exists\'");
 117
 118                 &delFactoid($lhs);
 119                 &setFactInfo($lhs,"created_by", $nuh);
 120                 &setFactInfo($lhs,"created_time", time());
 121                 &setFactInfo($lhs,"factoid_value", $rhs);
 122             } else {                     # "blah is ..."
 123                 if ($addressed) {
 124                     &performStrictReply("...but \002$lhs\002 is already something else...");
 125                     &status("FAILED update: <$who> \'$lhs\' =$mhs=> \'$rhs\'");
 126                 }
 127                 return $noreply;
 128             }
 129         }
 130     } else {                    # not exists.
 131
 132         # nice 'are' hack (or work-around).
 133         if ($mhs =~ /^are$/i and $rhs !~ /<\S+>/) {
 134             &DEBUG("Update: 'are' hack detected.");
 135             $mhs = "is";
 136             $rhs = "<REPLY> are ". $rhs;
 137         }
 138
 139         &status("enter: <$who> \'$lhs\' =$mhs=> \'$rhs\'");
 140         $count{'Update'}++;
 141
 142         &performAddressedReply("okay");
 143
 144         &setFactInfo($lhs,"created_by", $nuh);
 145         &setFactInfo($lhs,"created_time", time());
 146         &setFactInfo($lhs,"factoid_value", $rhs);
 147     }
 148
 149     return "$lhs $mhs $rhs";
 150 }
 151
 152 1;