Forums Active Threads Past Year

alias test { sockopen -e fb www.kicker.de 443 }
ON 1:sockopen:fb: {
  sockwrite -n $sockname GET /bundesliga/spieltag/ HTTP/1.1
  sockwrite -n $sockname Host: www.kicker.de
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:158.0) Gecko/20100101 Firefox/158.0
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  sockwrite -n $sockname Accept-Language: en-US,en;q=0.9
  sockwrite -n $sockname Accept-Encoding: text
  sockwrite -n $sockname Cookie: %cookies
  sockwrite -n $sockname $crlf
}
ON 1:sockread:fb: {
  sockread %temp
  tokenize 32 %temp 
  if ($1 = set-cookie:) { inc -u5 %d | if (%d = 1) { set %cookies $2- | sockclose $sockname | test } }
  echo -s : $1-
}

; $1- = item to execute & args
; or if $prop is set
; $1 = com object returned by exec()
; $prop = Terminate or pid or Status or eos or Line or ReadLine or WriteLine or debug
alias exec {
  if ($0 == 0) return
  if ($prop) {
    if (!$com($1)) return
    if ($prop == Terminate) noop $com($1,Terminate,1)
    elseif ($prop == pid) noop $com($1,ProcessID,2)
    elseif ($prop == Status) noop $com($1,Status,2)
    elseif ($prop == EOS) {
      ; BUG: causes mirc to freeze when used on a running task when it should return $true! Unfreezes on task exit.
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      if ((!$com(%exec_stdout,AtEndOfStream,2)) || ($comerr)) var %res = -2
      else var %res = $com(%exec_stdout).result
      .comclose %exec_stdout
      return %res
    }
    elseif ($prop == ReadLine) {
      ; BUG: causes mirc to freeze when used on a running task when it should return 0! Unfreezes on task exit.
      ; NB: results can be an empty line, 1 used to make it clear this is a good result
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      if ((!$com(%exec_stdout,AtEndOfStream,2)) || ($comerr)) var %res = -2
      elseif ($com(%exec_stdout).result) var %res = 0
      elseif ((!$com(%exec_stdout,ReadLine,1)) || ($comerr)) var %res -3
      else var %res = 1 $com(%exec_stdout).result
      .comclose %exec_stdout
      returnex %res
    }
    elseif ($prop == WriteLine) {
      var %exec_stdin exec_stdout $+ $ticks
      if ((!$com($1,StdIn,2,dispatch* %exec_stdin)) || ($comerr)) return -1
      if ((!$com(%exec_stdin,WriteLine,1,bstr,$2)) || ($comerr)) var %res = -3
      else var %res = 1
      .comclose %exec_stdin
      return %res
    }
    elseif ($prop == Line) {
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      if ((!$com(%exec_stdout,Line,2)) || ($comerr)) var %res = -2
      else var %res = $com(%exec_stdout).result
      .comclose %exec_stdout
      return %res
    }
    elseif ($prop == debug) {
      echo -s start
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      echo -s got stdout
      if ((!$com(%exec_stdout,AtEndOfStream,2)) || ($comerr)) var %res =  -2
      else {
        echo -s got AtEndOfStream
        var %res = $com(%exec_stdout).result
      }
      echo -s ok
      .comclose %exec_stdout
      return %res
    }
    else return
    return $com($1).result
  }
  var %% = s $+ $ticks, %exec_com = $+(%%,_exec), %exec_stdout = %exec_com $+ _stdout.txt
  if (!$com(%%)) .comopen %% wscript.shell
  if ($comerr) return
  .comclose %% $com(%%,exec,1,bstr,$1-,dispatch* %exec_com)
  return %exec_com
}

[2026-08-25 02:57:21] (KindOne/foobar) CLI -> ZNC [AWAY :I am away]
[2026-08-25 02:57:21] (KindOne/foobar) ZNC -> IRC [AWAY :I am away]
[2026-08-25 02:57:21] (KindOne/foobar) IRC -> ZNC [:kindone.foobar.net 306 KindOne :You have been marked as being away]
[2026-08-25 02:57:21] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 306 KindOne :You have been marked as being away]
[2026-08-25 02:57:26] (KindOne/foobar) CLI -> ZNC [QUIT :]
[2026-08-25 02:57:26] USR::KindOne == Disconnected()
// Snip...  mIRC Disconnect/Connect to znc
[2026-08-25 02:57:29] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 376 KindOne :End of /MOTD command.]
[2026-08-25 02:57:29] (KindOne/foobar) ZNC -> CLI [:KindOne!KindOne@Clk-35EC1D3E MODE KindOne :+iwx]
[2026-08-25 02:57:29] (KindOne/foobar) ZNC -> CLI [:irc.znc.in 306 KindOne :You have been marked as being away] 
// ^^^ Feature suggestion: Set '$away' as '$true' here in mIRC
// Snip ... CAP REQ / CAP ACK
[2026-08-25 02:57:29] (KindOne/foobar) CLI -> ZNC [PROTOCTL NAMESX]
[2026-08-25 02:57:29] (KindOne/foobar) CLI -> ZNC [PROTOCTL UHNAMES]
[2026-08-25 02:57:33] (KindOne/foobar) CLI -> ZNC [WHOIS KindOne]
[2026-08-25 02:57:33] (KindOne/foobar) ZNC -> IRC [WHOIS KindOne]
// Snip... whois output
[2026-08-25 02:57:33] (KindOne/foobar) IRC -> ZNC [:kindone.foobar.net 301 KindOne KindOne :I am away]
[2026-08-25 02:57:33] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 301 KindOne KindOne :I am away]
// Snip... whois output
[2026-08-25 02:57:33] (KindOne/foobar) IRC -> ZNC [:kindone.foobar.net 318 KindOne KindOne :End of /WHOIS list.]
[2026-08-25 02:57:33] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 318 KindOne KindOne :End of /WHOIS list.]

; /whois myself 
raw 301:*:{
  if (($2 == $me) && (!$away)) {
    echo -ag *** This should not echo
  }
}