$learnok = 1 if ($addressed);
if ($param{'learn'} =~ /^HUNGRY$/i) {
$learnok = 1;
- $addressed = 1;
+ $addrchar = 1;
$talkok = 1;
}
my @array = split / /, $message;
if ($who =~ /^_default$/i) {
- &pSReply("you are too eleet.");
+ &performStrictReply("you are too eleet.");
return;
}
my $do_nick = $array[1] || $who;
if (!exists $users{$do_nick}) {
- &pSReply("nick $do_nick is not in user list.");
+ &performStrictReply("nick $do_nick is not in user list.");
return;
}
my $crypt = $users{$do_nick}{PASS};
if (!defined $crypt) {
- &pSReply("user $do_nick has no passwd set.");
+ &performStrictReply("user $do_nick has no passwd set.");
return;
}
if (!&ckpasswd($array[0], $crypt)) {
- &pSReply("invalid passwd for $do_nick.");
+ &performStrictReply("invalid passwd for $do_nick.");
return;
}
my $mask = "$who!$user@".&makeHostMask($host);
### TODO: prevent adding multiple dupe masks?
### TODO: make &addHostMask() CMD?
- &pSReply("Added $mask for $do_nick...");
+ &performStrictReply("Added $mask for $do_nick...");
$users{$do_nick}{HOSTS}{$mask} = 1;
return;
my @array = split ' ', $message;
if ($who =~ /^_default$/i) {
- &pSReply("you are too eleet.");
+ &performStrictReply("you are too eleet.");
return;
}
}
if (!exists $users{$who} and !$first) {
- &pSReply("nick $who is not in user list.");
+ &performStrictReply("nick $who is not in user list.");
return;
}
if ($first) {
- &pSReply("First time user... adding you as Master.");
- $users{$who}{FLAGS} = "mrsteon";
+ &performStrictReply("First time user... adding you as Master.");
+ $users{$who}{FLAGS} = "aemnorst";
}
my $crypt = $users{$who}{PASS};
if (defined $crypt) {
- &pSReply("user $who already has pass set.");
+ &performStrictReply("user $who already has pass set.");
return;
}
if (!scalar keys %{ $users{$who}{HOSTS} }) {
my $mask = "*!$user@".&makeHostMask($host);
- &pSReply("Added hostmask '\002$mask\002' to $who");
+ &performStrictReply("Added hostmask '\002$mask\002' to $who");
$users{$who}{HOSTS}{$mask} = 1;
}
$crypt = &mkcrypt($array[0]);
$users{$who}{PASS} = $crypt;
- &pSReply("new pass for $who, crypt $crypt.");
+ &performStrictReply("new pass for $who, crypt $crypt.");
return;
}
# User Processing, for all users.
if ($addressed) {
my $retval;
- return 'returned from pCH' if &parseCmdHook("main",$message);
+ return 'SOMETHING parseCmdHook' if &parseCmdHook($message);
$retval = &userCommands();
return unless (defined $retval);
# customized random message.
my $tmp = (rand() < 0.5) ? ", $who" : "";
- &pSReply( &getRandom(keys %{ $lang{'hello'} }) . $tmp );
+ &performStrictReply( &getRandom(keys %{ $lang{'hello'} }) . $tmp );
return;
}
# karma. set...
if ($msgType =~ /public/i && $message =~ /^(\S+)(--|\+\+)\s*$/ &&
- $addressed && &hasParam("karma")
+ $addressed && &IsChanConfOrWarn("karma")
) {
# to request factoids such as "g++" or "libstdc++", append "?" to the query.
my ($term,$inc) = (lc $1,$2);
# here's where the external routines get called.
# if they return anything but null, that's the "answer".
if ($addressed) {
- if ( &parseCmdHook("extra",$message) ) {
- return 'DID SOMETHING IN PCH.';
- }
-
my $er = &Modules();
if (!defined $er) {
return 'SOMETHING 1';
# allow administration of bot via messages (default is DCC CHAT only)
if (&IsFlag("A")) {
- &loadMyModule( $myModules{'ircdcc'} );
+ &loadMyModule('UserDCC');
$er = &userDCC();
if (!defined $er) {
return 'SOMETHING 2';