Add morse code function

[~andy/rhawk] / irc.awk

diff --git a/irc.awk b/irc.awk
index fe94a958f0d75a5f9d7c1b862e92596f175cd3c2..c162c3e153d290f08998ad306b23d16f1fb8cef6 100644 (file)
--- a/irc.awk
+++ b/irc.awk
@@ -179,11 +179,11 @@ CMD == "PING" {
 }
 
 CMD == "332" {
-       CMD = "TOPIC"
+       TOPICS[ARG[2]] = MSG
 }
 
 CMD == "TOPIC" {
-       topics[DST] = MSG
+       TOPICS[ARG[1]] = MSG
 }
 
 # Authentication
@@ -192,6 +192,8 @@ CMD == "319" {
        gsub(/[@+]/, "")
        for (i=1; i<=NF; i++)
                send("WHO " $i " %uhnar")
+       for (i=1; i<=NF; i++)
+               send("TOPIC " $i)
 }
 
 CMD == "ACCOUNT" {