if (&IsParam("useStrict")) { use strict; }
sub help {
- my $topic = $_[0];
+ my $topic = shift;
my $file = $bot_misc_dir."/blootbot.help";
my %help = ();
}
close FILE;
- if (!defined $topic) {
+ if (!defined $topic or $topic eq "") {
&msg($who, $help{'main'});
my $i = 0;
if (exists $help{$topic}) {
foreach (split /\n/, $help{$topic}) {
- &msg($who,$_);
+ &performStrictReply($_);
}
} else {
- &msg($who, "no help on $topic. Use 'help' without arguments.");
+ &pSReply("no help on $topic. Use 'help' without arguments.");
}
return '';
}
}
-sub gettimeofday {
- if ($no_syscall) { # fallback.
+sub timeget {
+ if ($no_timehires) { # fallback.
return time();
} else { # the real thing.
- my $time = pack("LL", 0);
+ return [gettimeofday()];
+ }
+}
- syscall(&SYS_gettimeofday, $time, 0);
- my @time = unpack("LL",$time);
+sub timedelta {
+ my($start_time) = shift;
- return sprintf("%d.%d", @time);
+ if ($no_timehires) { # fallback.
+ return time() - $start_time;
+ } else { # the real thing.
+ return tv_interval ($start_time);
}
}
my $time = shift;
my $retval;
- return("0s") if ($time !~ /\d+/ or $time <= 0);
+ return("0s")
+ if (!defined $time or $time !~ /\d+/ or $time <= 0);
my $s = int($time) % 60;
my $m = int($time / 60) % 60;
sub fixPlural {
my ($str,$int) = @_;
+ if (!defined $str) {
+ &WARN("fixPlural: str == NULL.");
+ return;
+ }
+
if ($str eq "has") {
$str = "have" if ($int > 1);
} elsif ($str eq "is") {
sub getRandomInt {
my $str = $_[0];
+ if (!defined $str) {
+ &WARN("gRI: str == NULL.");
+ return;
+ }
+
srand();
if ($str =~ /^(\d+)$/) {
return $profanity;
}
+### rename to hasChanConf() ?
sub hasParam {
my ($param) = @_;
- if (&IsParam($param)) {
+ ### TODO: specific reason why it failed.
+ if (&IsChanConf($param)) {
return 1;
} else {
&msg($who, "unfortunately, \002$param\002 is disabled in my configuration") unless ($addrchar);
&VERB("double fork detected; not forking.",2) if ($$ != $bot_pid);
if (&IsParam("forking") and $$ == $bot_pid) {
- return $noreply unless (&addForked($label));
+ return unless &addForked($label);
+
$SIG{CHLD} = 'IGNORE';
$pid = eval { fork() };
- return $noreply if $pid; # parent does nothing
- &status("fork starting for '$label', PID == $$.");
+ return if $pid; # parent does nothing
+
+ select(undef, undef, undef, 0.2);
+# &status("fork starting for '$label', PID == $$.");
+ &status("--- fork starting for '$label', PID == $$ ---");
&shmWrite($shm,"SET FORKPID $label $$");
+
+ sleep 1;
}
### TODO: use AUTOLOAD
- if (!&loadMyModule($myModules{$label})) {
+ ### very lame hack.
+ if ($label !~ /-/ and !&loadMyModule($myModules{$label})) {
&DEBUG("Forker: failed?");
- return;
+ &delForked($label);
}
if (defined $code) {
&WARN("Forker: code not defined!");
}
- if (defined $pid) { # child.
- &delForked($label);
- &status("fork finished for '$label'.");
- exit 0;
- }
+ &delForked($label);
}
sub closePID {