All pastes #938531 Raw Edit

Stuff

public text v1 · immutable
·published 2008-03-11 18:24 UTC
rendered paste body
                        print $sckSocket "WHO $1\r\n";          #Ask a who from the channel

			if ($strResponse =~ m/352/)	        #if it matches 352, start to split
			{
				@arystrNames = split(/ /, $strResponse);  #split
			}
				$arystrNames[5] =~ tr/~&@//d; #the splitted tobanhost
				print $sckSocket "MODE $strChannel +b $arystrNames[5]\r\n";  #ban him