commit - cc35978bcb07028c91be51bcae76317484c32145
commit + 62fb7e838c623830e1bec249a1306907c680ef6f
blob - 170d01d07c884f020cb3bb2f7b2cb6917212d84f
blob + bc86b19f60737b0a05b46b9844a29514d821c636
--- BNC.pm
+++ BNC.pm
@@ -28,6 +28,7 @@ my $sslport = $conf{sslport};
 my $plainport = $conf{plainport};
 my $mailfrom = $conf{mailfrom};
 my $mailname = $conf{mailname};
+my $approval = $conf{approval};
 # File containing IRC networks
 my $netpath = "networks";
 my @networks;
@@ -153,6 +154,13 @@ sub mbnc {
 			createbnc($bot, $username, $pass, $bindhost);
 			main::putserv($bot, "PRIVMSG $nick :Check your email!");
 			mailbnc($username, $email, $pass, "bouncer", $hashirc);
+			if ($approval eq "true") {
+				main::putserv($bot, "PRIVMSG *blockuser :block $username");
+				main::putserv($bot, "PRIVMSG $nick :Your account has been created but must be manually approved by your admins ($staff) before it can be used.");
+				foreach my $chan (@teamchans) {
+					main::putservlocalnet($bot, "PRIVMSG $chan :$staff: $nick\'s account must be manually unblocked before it can be used.");
+				}
+			}
 			foreach my $chan (@teamchans) {
 				main::putservlocalnet($bot, "PRIVMSG $chan :$nick\'s bnc registration on $bot->{name} was successful, please help him connect");
 			}
blob - a4a0a8cd1489cdd85f5ecd1a835069ab51d10de5
blob + 341905d9d2c7f0b7ef8f18e5b53d45a419acd7bf
--- botnow.conf.example
+++ botnow.conf.example
@@ -47,6 +47,10 @@ mailfrom = support@example.com
 #Modules to load
 modules = BNC DNS Mail Shell SQLite Hash Help
 
+#If approval is required, the admin must manually unblock the user
+#before the account can be used
+approval = true
+
 #Terms of Service
 terms = Example is part of the IRCNow Federation https://ircnow.org. Rules: no porn, no illegal drugs, no violent threats, no slander, no libel, no illegal gambling, no copyright infringement, no spam, no illegal cracking, and no DDoS. Only one account per person. Don't share passwords. Full terms: https://wiki.ircnow.org/index.php?n=Terms.Terms