… | |
… | |
113 | |
113 | |
114 | mk_msg (undef, "PRIVMSG", "you suck!", "magnus"); |
114 | mk_msg (undef, "PRIVMSG", "you suck!", "magnus"); |
115 | # will return: "PRIVMSG magnus :you suck!\015\012" |
115 | # will return: "PRIVMSG magnus :you suck!\015\012" |
116 | |
116 | |
117 | mk_msg (undef, "JOIN", undef, "#test"); |
117 | mk_msg (undef, "JOIN", undef, "#test"); |
118 | # will return: "JOIN #magnus\015\012" |
118 | # will return: "JOIN #test\015\012" |
119 | |
119 | |
120 | =cut |
120 | =cut |
121 | |
121 | |
122 | sub mk_msg { |
122 | sub mk_msg { |
123 | my ($prefix, $command, $trail, @params) = @_; |
123 | my ($prefix, $command, $trail, @params) = @_; |