foreach (@list) {
my $age = &getFactInfo($_, "modified_time");
+
if (!defined $age or $age !~ /^\d+$/) {
- &WARN("age == NULL or not numeric.");
+ if (scalar @list > 50) {
+ if (!$cache{warnDel}) {
+ &WARN("list is over 50 (".scalar(@list)."... giving it a miss.");
+ $cache{warnDel} = 1;
+ last;
+ }
+ }
+
+ &WARN("old cruft (no time): $_");
+ &delFactoid($_);
next;
}
my $check = &getFactoid("$faqtoid #DEL#");
if (!$check) {
if ($faqtoid !~ /#DEL#/) {
- &setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
-
- &setFactInfo($faqtoid, "modified_by", $who);
- &setFactInfo($faqtoid, "modified_time", time());
+ my $new = $faqtoid." #DEL#";
+ &setFactInfo($faqtoid, "factoid_key", $new);
+ &setFactInfo($new, "modified_by", $who);
+ &setFactInfo($new, "modified_time", time());
} else {
&status("not backing up $faqtoid.");
}