rewrite of CS AKICK with pipes

Index: chanserv.pm===================================================================--- chanserv.pm	(revision 3493)+++ chanserv.pm	(working copy)@@ -3639,6 +3639,9 @@ sub do_nick_akick($$;$) { 	my ($reason) = $get_nick_akick->fetchrow_array(); $get_nick_akick->finish();  	return 0 if adminserv::is_svsop($tuser, adminserv::S_HELP());+	if($reason && $reason =~ /\|/) {+		($reason, undef) = split(/ ?\| ?/, $reason, 2);+	} 	kickban($chan, $tuser, undef, "User has been banned from ".$cn.($reason?": $reason":'')); } @@ -3728,6 +3731,10 @@ sub akickban(@) { 		$host =~ tr/\%\_/\*\?/; 	} +	if($reason && $reason =~ /\|/) {+		($reason, undef) = split(/ ?\| ?/, $reason, 2);+	}+ 	return kickban($chan, $target, "$bnick!$ident\@$host", "User has been banned from ".$cn.($reason?": $reason":'')); }