version 1.1, 2021/05/15 15:12:32 |
version 1.3, 2021/08/26 08:17:22 |
|
|
foreach my $user (@users) { |
foreach my $user (@users) { |
if ($user eq $username) { |
if ($user eq $username) { |
main::putserv($bot, "PRIVMSG $nick :Sorry, username taken. Please contact staff if you need help."); |
main::putserv($bot, "PRIVMSG $nick :Sorry, username taken. Please contact staff if you need help."); |
|
return; |
} |
} |
} |
} |
#my $captcha = join'', map +(0..9,'a'..'z','A'..'Z')[rand(10+26*2)], 1..4; |
#my $captcha = join'', map +(0..9,'a'..'z','A'..'Z')[rand(10+26*2)], 1..4; |
|
|
main::putserv($bot, "PRIVMSG $nick :https://$hostname/register.php?hashirc=$hashid"); |
main::putserv($bot, "PRIVMSG $nick :https://$hostname/register.php?hashirc=$hashid"); |
main::putserv($bot, "PRIVMSG $nick :Type !bnc captcha <text>"); |
main::putserv($bot, "PRIVMSG $nick :Type !bnc captcha <text>"); |
foreach my $chan (@teamchans) { |
foreach my $chan (@teamchans) { |
main::putservlocalnet($bot, "PRIVMSG $chan :$nick\'s captcha is $captcha"); |
main::putservlocalnet($bot, "PRIVMSG $chan :$nick\'s on $bot->{name} bnc captcha is $captcha"); |
} |
} |
} else { |
} else { |
main::putserv($bot, "PRIVMSG $nick :Invalid username or email. Type !bnc <username> <email> to try again."); |
main::putserv($bot, "PRIVMSG $nick :Invalid username or email. Type !bnc <username> <email> to try again."); |