}
sub flag {
- my ($flag) = @_;
+ my ($msg, $command) = @_;
+
+ my ($flag);
+ if(defined $msg && $msg =~ /^(\w)$/){
+ $flag = $1;
+ }else{
+ $ND::server->command("notice $ND::nick syntax: .$command flag");
+ return;
+ }
if (officer()|| ($ND::target eq $ND::scanchan && $flag eq 'S')){
my $f = $ND::DBH->prepare(qq{