move megahal initialization so that if there is a nick collision and we

die, we at least don't leave a forked process behind.
This commit is contained in:
cyeh%netscape.com 1999-10-14 00:44:37 +00:00
parent c6034c1a58
commit 591e5a1cd0

View File

@ -138,17 +138,6 @@ $::uuid = "./uuidgen/uuidgen";
$::uuid = (-f $::uuid) ? $::uuid : "";
delete $pubcmds{'uuid'} if (! $::uuid);
$::megahal = "./megahal/megahal";
$::megahal = (-f $::megahal) ? $::megahal : "";
$::megahal_pid;
if ($::megahal) {
$::WTR = FileHandle->new;
$::RDR = FileHandle->new;
$::megahal_pid = &init_megahal;
&debug ("Initializing MEGAHAL conversation AI\n");
}
my $phase;
my $last_moon = 0;
my $last_uuid = 0;
@ -209,9 +198,19 @@ foreach my $i (keys %rdfcmds) {
$pubcmds{$i} = $rdfcmds{$i};
}
&debug ("connecting to $server $port as $nick on $channel");
$::megahal = "./megahal/megahal";
$::megahal = (-f $::megahal) ? $::megahal : "";
$::megahal_pid;
if ($::megahal) {
$::WTR = FileHandle->new;
$::RDR = FileHandle->new;
$::megahal_pid = &init_megahal;
&debug ("Initializing MEGAHAL conversation AI\n");
}
# and done.