version 1.2, 2021/07/21 22:04:30 |
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; |