Pileus Git - ~andy/rhawk/blob - rhawk

   1 #!awk -f
   2
   3 @include "irc.awk"
   4 @include "json.awk"
   5 @include "spades.awk"
   6 @include "email.awk"
   7
   8 # Initialization
   9 BEGIN {
  10         json_load("var/login.json",     login);
  11         json_load("var/nounicode.json", nounicode);
  12         json_load("var/nocolor.json",   nocolor);
  13
  14         OWNER = login["owner"];
  15
  16         connect(login["server"],  \
  17                 login["nick"],    \
  18                 login["channel"], \
  19                 login["auth"],    \
  20                 login["pass"])
  21
  22         delete login
  23
  24         if (FIRST) {
  25                 join("#rhtest")
  26                 join("#rhspades")
  27                 join("#sfvlug")
  28         }
  29 }
  30
  31 # Admin
  32 AUTH == OWNER && TO == NICK && /^die in a fire/ {
  33         say("Ack, argh, barasdjf..")
  34         quit()
  35 }
  36
  37 AUTH == OWNER && TO == NICK && /^reload/ {
  38         say("Reloading..")
  39         reload()
  40 }
  41
  42 AUTH == OWNER && TO == NICK && /^rejoin/ {
  43         reply("joining..")
  44         join("#rhnoise")
  45         next
  46 }
  47
  48 AUTH == OWNER && TO == NICK && /^(join|part)/ {
  49         if (match(MSG, /(join|part) +(#+\w+)/, arr)) {
  50                 if (arr[1] == "join") join(arr[2]);
  51                 if (arr[1] == "part") part(arr[2]);
  52                 next
  53         }
  54 }
  55
  56 AUTH == OWNER && TO == NICK && /^\.msg/ {
  57         match(MSG, /.*\.msg +(#*\w+) +(.*)/, arr)
  58         send("PRIVMSG " arr[1] " :" arr[2])
  59 }
  60
  61 # Kick handling
  62 CMD == "KICK" && ARG[2] == NICK {
  63         kick_delay = (kick_delay + 2) * 2
  64         system("sleep " kick_delay)
  65         join(DST)
  66         reply("I feel happy!")
  67 }
  68
  69 # Identify bots
  70 FROM ~ /bo+t$|rhnoise/ {
  71         bots[FROM] = 1
  72 }
  73
  74 CMD == "NICK" && FROM in bots {
  75         bots[MSG] = FROM
  76 }
  77
  78
  79 # Fancy output
  80 /[Uu]nicode :-?\(/ {
  81         nounicode[FROM] = 1
  82         json_save("var/nounicode.json", nounicode);
  83 }
  84
  85 /[Uu]nicode :-?\)/ {
  86         delete nounicode[FROM]
  87         json_save("var/nounicode.json", nounicode);
  88 }
  89
  90 /[Cc]olors :-?\(/ {
  91         nocolor[FROM] = 1
  92         json_save("var/nocolor.json", nocolor);
  93 }
  94
  95 /[Cc]olors :-?\)/ {
  96         delete nocolor[FROM]
  97         json_save("var/nocolor.json", nocolor);
  98 }
  99
 100 # SFV Lug
 101 function email(to, from, subj, body, sendmail)
 102 {
 103         from     = NICK "<andy@pileus.org>"
 104         subj     = "Update sfvlug.org!"
 105         body     = "The next SFVLUG meeting is TBA!"
 106         sendmail = "/usr/sbin/sendmail '" to "'"
 107         print "To: " to        | sendmail
 108         print "From: " from    | sendmail
 109         print "Subject: " subj | sendmail
 110         print ""               | sendmail
 111         print body             | sendmail
 112         say("Topic out of date, emailing " to);
 113         close(sendmail)
 114 }
 115
 116 BEGIN { pollchan = "#sfvlug" }
 117 (CMD == "PING"    && systime()-lastpoll > 60*60*24) ||
 118 (CMD == "PRIVMSG" && /^\.poll/) {
 119         if (!TOPICS[pollchan]) {
 120                 debug("Unknown topic for " pollchan);
 121                 send("TOPIC " pollchan)
 122                 next
 123         }
 124         _curl     = "curl -s http://sfvlug.org/"
 125         _day      = "(Sun|Mon|Tue|Wed|Thu|Fri|Sat)"
 126         _web_tba  = "next meeting is: TBA"
 127         _web_ptrn = "next meeting.*" _day "\\w+[, ]+([A-Z]\\w+) +([0-9]+)[, ]+([0-9]+)"
 128         _irc_ptrn = _day "\\w*[, ]+([A-Z]\\w+) +([0-9]+)"
 129         while (_curl | getline _line) {
 130                 #if (match(_line, _web_tba))
 131                 #       email("Brian <brian@zimage.com>");
 132                 if (match(_line, _web_ptrn, _parts)) {
 133                         _date  = _parts[1] " " _parts[2] " " _parts[3]
 134                         _topic = TOPICS[pollchan]
 135                         sub(_irc_ptrn, _date, _topic)
 136                         if (_topic != TOPICS[pollchan])
 137                                 topic(pollchan, TOPICS[pollchan] = _topic)
 138                         else
 139                                 debug("topic is already correct")
 140                         break
 141                 }
 142         }
 143         lastpoll = systime()
 144         close(_curl)
 145 }
 146
 147 # Versin/Uptime
 148 function head(cmd, var) {
 149         cmd | getline var
 150         close(cmd)
 151         return var
 152 }
 153 function uptime(time,  fmt) {
 154         fmt = "%d:%02d:%02d:%02d"
 155         fmt = "%d days %02d:%02d:%02d"
 156         return sprintf(fmt,
 157                 time / (60*60*24),
 158                 time / (60*60   ) % 24,
 159                 time / (60      ) % 60,
 160                 time / (1       ) % 60)
 161 }
 162 BEGIN {
 163         up_version = head("git describe --always")
 164         up_dirty   = head("git describe --always --dirty")
 165         up_author  = head("git log -n1 --format=format:%an")
 166         up_message = head("git log -n1 --format=format:%s")
 167         up_reload  = systime();
 168 }
 169 /^\.(version|rev)/ {
 170         say("version: " up_dirty " - " up_author " - " up_message)
 171         say("http://pileus.org/git/?p=~andy/rhawk;h=" up_version)
 172 }
 173 /^\.uptime/ {
 174         _now = systime();
 175         say("uptime: " uptime(_now - START) ", " \
 176             "reload: " uptime(_now - up_reload))
 177 }
 178
 179 # Auth info
 180 /^\.auth/ {
 181         _who = $2 ? $2 : FROM
 182         if (_who in USERS)
 183                 say("nick=" USERS[_who]["nick"] " " \
 184                     "user=" USERS[_who]["user"] " " \
 185                     "auth=" USERS[_who]["auth"] " " \
 186                     "real=" USERS[_who]["real"] " " \
 187                     "host=" USERS[_who]["host"])
 188         else
 189                 say("no auth info for " _who)
 190 }
 191
 192 # GeoIP Lookup
 193 function geoip(ip,  dat, cmd, line, parts) {
 194         dat = "/usr/share/GeoIP/GeoIPCity.dat"
 195
 196         cmd = "geoiplookup -f " dat " " ip
 197         cmd | getline line
 198         close(cmd)
 199
 200         if (split(line, parts, /[:,] /) >= 9)
 201                 return parts[8] ","  parts[9] " -- " \
 202                        parts[6] ", " parts[4] ", " parts[3]
 203         else
 204                 return "not found"
 205 }
 206
 207 /^\.geoip (([0-9a-zA-Z_.-]+) *)*$/ {
 208         for (_i=2; _i<=NF; _i++) {
 209                 if ($_i in USERS)
 210                         say(geoip(USERS[$_i]["host"]) " -- " \
 211                             $_i " -> " USERS[$_i]["host"])
 212                 else
 213                         say(geoip($_i) " -- " $_i)
 214         }
 215 }
 216
 217 # Fortune
 218 TO == NICK && /^/               { extra = ""   }
 219 TO == NICK && /^\.?fortune.*-o/ { extra = "-o" }
 220 TO == NICK && /^\.?fortune/     {
 221         gsub(/.*\.?fortune *|-[a-z]* *|[^a-zA-Z0-9 ]/, "", MSG)
 222         cmd = "fortune " extra " " (MSG ? "-m '" MSG "'" : "-s")
 223         _lines = 0
 224         while (cmd | getline _fortune && _lines < 5) {
 225                 say(_fortune)
 226                 _lines++
 227         }
 228         close(cmd)
 229         next
 230 }
 231
 232 /\<[Bb][Oo][Ff][Hh]\>/ {
 233         _cmd = "fortune bofh-excuses"
 234         _cmd | getline _fortune
 235         _cmd | getline _fortune
 236         _cmd | getline _fortune
 237         close(_cmd)
 238         say(_fortune)
 239         next
 240 }
 241
 242 # Morse code
 243 BEGIN {
 244         morse["/"      ] = " "
 245         morse[".-.-.-" ] = "."
 246         morse["--..--" ] = ","
 247         morse["..--.." ] = "?"
 248         morse[".----." ] = "'"
 249         morse["-.-.--" ] = "!"
 250         morse["-..-."  ] = "/"
 251         morse["-.--."  ] = "("
 252         morse["-.--.-" ] = ")"
 253         morse[".-..."  ] = "&"
 254         morse["---..." ] = ":"
 255         morse["-.-.-." ] = ";"
 256         morse["-...-"  ] = "="
 257         morse[".-.-."  ] = "+"
 258         morse["-....-" ] = "-"
 259         morse["..--.-" ] = "_"
 260         morse[".-..-." ] = "\""
 261         morse["...-..-"] = "$"
 262         morse[".--.-." ] = "@"
 263         morse[".-"     ] = "a"
 264         morse["-..."   ] = "b"
 265         morse["-.-."   ] = "c"
 266         morse["-.."    ] = "d"
 267         morse["."      ] = "e"
 268         morse["..-."   ] = "f"
 269         morse["--."    ] = "g"
 270         morse["...."   ] = "h"
 271         morse[".."     ] = "i"
 272         morse[".---"   ] = "j"
 273         morse["-.-"    ] = "k"
 274         morse[".-.."   ] = "l"
 275         morse["--"     ] = "m"
 276         morse["-."     ] = "n"
 277         morse["---"    ] = "o"
 278         morse[".--."   ] = "p"
 279         morse["--.-"   ] = "q"
 280         morse[".-."    ] = "r"
 281         morse["..."    ] = "s"
 282         morse["-"      ] = "t"
 283         morse["..-"    ] = "u"
 284         morse["...-"   ] = "v"
 285         morse[".--"    ] = "w"
 286         morse["-..-"   ] = "x"
 287         morse["-.--"   ] = "y"
 288         morse["--.."   ] = "z"
 289         morse["-----"  ] = "0"
 290         morse[".----"  ] = "1"
 291         morse["..---"  ] = "2"
 292         morse["...--"  ] = "3"
 293         morse["....-"  ] = "4"
 294         morse["....."  ] = "5"
 295         morse["-...."  ] = "6"
 296         morse["--..."  ] = "7"
 297         morse["---.."  ] = "8"
 298         morse["----."  ] = "9"
 299 }
 300
 301 /^\.morse/ {
 302         gsub(/[^.\-\/]/, " ")
 303         _str = ""
 304         for (i=2; i<=NF; i++)
 305                 if ($i in morse)
 306                         _str = _str morse[$i]
 307         if (_str)
 308                 reply(_str)
 309         else
 310                 reply("hush it, you pile of bologna")
 311 }
 312
 313 # Noise
 314 AUTH == OWNER && /^go go gadget woop/ {
 315         for (i=20; i>0; i--)
 316                 say(".delay " i " seconds; .woop " i)
 317 }
 318
 319 function woop(msg) {
 320         gsub(/[^Oo]/, "", $1)
 321         _len = length($1)
 322         if (_len == 2)
 323                 _len = 10
 324         if ($2)
 325                 _len = $2
 326         _woop = msg
 327         for (i=1; i<_len; i++)
 328                 _woop = _woop " " msg
 329         say(_woop)
 330 }
 331
 332 TO == NICK && /^[Ww][Oo]+[Pp] *([0-9]*)/ {
 333         woop("WOOP")
 334 }
 335
 336 /^~WOOP *([0-9]*)/ {
 337         woop("(00/")
 338 }
 339
 340 /^~woop *([0-9]*)/ {
 341         woop("^H^P^P^O")
 342 }
 343
 344 TO == NICK && DST ~ /^#/ {
 345         #say("Hello, " FROM)
 346 }
 347
 348 /^\.nestroyeti/ {
 349         say(sprintf("Temperature: %4.1f F Humidity: %2d%%",
 350                 rand()*20+65, rand()*20+40))
 351 }
 352
 353 #DST != "#sfvlug" &&
 354 !(FROM in bots) &&
 355 CMD == "PRIVMSG" &&
 356 MSG !~ /^\./ &&
 357 /awk/ {
 358         say("Awk, awk, awk! I'm a bird!")
 359 }
 360
 361 /(\<[Hh][Oo]\>.*){3}/ {
 362         say("\00309Merry \00304Christmas!")
 363 }
 364
 365 !(FROM in bots) &&
 366 tolower($0) ~ /\<cloud\>/ {
 367         _cmd = "shuf clouds.txt"
 368         _cmd | getline _cloud
 369         close(_cmd)
 370         say(_cloud)
 371 }
 372
 373 /^headshot [Cc]hristmas/ {
 374         say(".load Christmas")
 375         say(".jingle")
 376         say(".unload Christmas")
 377 }
 378
 379 FROM == "rhnoise" && $2 == "slaps" && $3 == NICK {
 380         say(".spin")
 381 }
 382
 383 /^[Aa]nd now[.,]/ {
 384         say("And now...");
 385         say("THE LARCH");
 386 }
 387
 388 /(for what|that for)\?$/ {
 389         say("For great justice!");
 390 }
 391
 392 /\<nazi/ {
 393         say("And now it's...");
 394         say("Springtime for Hitler and Germany!");
 395 }
 396
 397 # God damn commands
 398 FROM == "rhnoise" && load_mod {
 399         say(".load " load_mod)
 400         say("rhnoise: You slag!")
 401 }
 402 // {
 403         load_mod = ""
 404 }
 405 (TO  ==  "rhnoise" && /^load \w+/) ||
 406 (DST == "#rhniose" && /^\.load [a-z]\w+/) {
 407         gsub(/[^a-zA-Z0-9_]/, " ")
 408         load_mod = toupper(substr($2,1,1)) substr($2,2);
 409 }
 410
 411 (DST == "#rhnoise" && /^\.line /) {
 412         sub(/\./, "!");
 413         say($0);
 414         say("scalawag: You slag!")
 415 }
 416
 417 (DST == "#rhnoise" && /^\.qdb 268$/) {
 418         say(".diediedie");
 419         next
 420 }
 421 (DST == "#rhnoise" && /\.qdb *268/) {
 422         say(".slap " FROM);
 423         next
 424 }
 425
 426 # Decrementer
 427 BEGIN {
 428         user_scores[0] = 1;
 429         delete user_scores
 430 }
 431
 432 /^\.(scores|scoreboard)$/ {
 433         delete user_scores
 434 }
 435
 436 FROM == "rhnoise" && !length(user_scores) {
 437         if (split(MSG, _parts, /, /)) {
 438                 for (_i=1; _i<=length(_parts); _i++) {
 439                         split(_parts[_i], _tmp, ": ");
 440                         user_scores[_i]["user"]  = _tmp[1];
 441                         user_scores[_i]["score"] = _tmp[2];
 442                 }
 443         }
 444 }
 445
 446 length(user_scores) &&
 447 tolower($0) ~ /\<nuclear launch detected\>/ {
 448         _count = 0;
 449         for (_i=1; _i<=length(user_scores); _i++) {
 450                 _user  = user_scores[_i]["user"];
 451                 _score = user_scores[_i]["score"];
 452                 if (_user in USERS) continue
 453                 if (_score ==  1) { say(_user "--"); _count++; }
 454                 if (_score == -1) { say(_user "++"); _count++; }
 455         }
 456         if (_count) {
 457                 delete user_scores;
 458                 say(".scores");
 459         } else {
 460                 say("looks like you're safe.. for now..");
 461         }
 462 }
 463
 464 # Vote relay
 465 DST != "#rhnoise" && /\<[a-zA-Z0-9_]{3,16}(\+\+|--)/ {
 466         say("#rhnoise", "(" DST ") " FROM ": " MSG);
 467 }
 468
 469 # Misc
 470 { fflush("") }
 471
 472 # vim: ft=awk