Context Navigation

Server.pm

Timestamp:

01/29/08 10:27:42 (5 years ago)

Author:

kan

Message:

lang/perl/WassrIRCD/lib/WassrIRCD/Server.pm fixed get nick regexp.

Files:

r5599	r5767
61	61	$message = encode( $config->{client_encoding}, $message );
62	62
63		my ($nick, $text) = $message =~ /^~~[^)]~~+$(\w+)$: (.*)/s;
	63	my ($nick, $text) = $message =~ /^.+$(\w+)$: (.*)/s;
64	64
65	65	$nick = $nick

r5599	r5767
61	61	$message = encode( $config->{client_encoding}, $message );
62	62
63		my ($nick, $text) = $message =~ /^~~[^)]~~+\((\w+)\): (.*)/s;
	63	my ($nick, $text) = $message =~ /^.+\((\w+)\): (.*)/s;
64	64
65	65	$nick = $nick