ResquestLister

alias get.requests {
  if ($1 == die) .sockclose getslist
  if (!$window(@Requests)) {
    .window -blMk0ezs -t70,,110,150,190,230,250 +benstx @Requests ariel 16
    aline @Requests $chr(1) Song $chr(9) Nick $chr(9) Dedication $chr(9) Users IP $chr(9) Remove ID
  }
  if (!$sock(getslist)) .sockopen getslist unitedradio.anycomp.co 80
  if ($group(#autoreqlist) == on) .timerreq -cm 1 1000 get.requests
  .noop $removeabad
  return
}
#autoreqlist on
#autoreqlist end
on *:SOCKOPEN:getslist: {
  var %sw, %l
  %sw = .sockwrite -n $sockname
  %sw GET /Request/?load=true&reqlist=true&keepalive=true HTTP/1.0
  %sw Host: unitedradio.anycomp.co
  %sw $str($crlf, 2)
}
alias removeabad {
  var %a, %b, %c, %d, %l
  if ($calc($ctime - %dscan) < 5) return
  .set -u100 %dscan $ctime
  %a = $hget(reqs,id)
  while (%a > 0) && ($hget(reqs,%a)) {
    %b = $v1
    if (!$timer($+(removebad,%b))) && ($fline(@Requests,$+(*,%b),1,1)).timerremovebad $+ %b -cm 1 11000 .dline -l @Requests $v1 $v1
    dec %a
  }
  return
}
on *:SOCKREAD:getslist: {
  var %read, %out, %l
  sockread %read
  tokenize 58 %read
  if ($1 == Match) {
    tokenize 9 %read
    if (!$hget(reqs)) .hmake reqs
    .timeremovebad $+ $6 off
    if ($hget(reqs,$+($6,id))) goto addtest
    .noop $tip(whatever,$+(0,$chr(44),7,,$chr(32),New,$chr(32),Request,$chr(32),),$+(0,$chr(44),1,,$chr(32),By,$chr(58),$chr(32),$replace($3,$+(<,non,>),Anonymous),$chr(32),/,Song,$chr(58),$chr(32),$2,$chr(32),))
    hinc reqs id
    hadd reqs $+($6,id) $6
    hadd reqs $hget(reqs,id) $6
    :addtest
    %out = $2 $+ $chr(9) $replace($3,$+(<,non,>),Anonymous) $+ $chr(9) $+ $replace($4,$+(<,non,>),None Specified) $+ $chr(9) $+ $5 $chr(9) $+ $6
    if ($fline(@Requests,%out,1,1)) goto skip
    .aline -ln @Requests %out
    :skip
  }
}
alias rrequest {
  var %a, %l
  if ($len($1) != 32) {
    return
  }
  if ($fline(@Requests,$+(*,$1),1,1)) .dline -l @Requests $v1 $v1
  sockclose getnlist
  sockopen getnlist unitedradio.anycomp.co 80
  sockmark getnlist $1
  return
}
on *:SOCKOPEN:getnlist: {
  var %sw, %l
  %sw = .sockwrite -n $sockname
  %sw GET /Requests/?load=true&remreq= $+ $sock($sockname).mark HTTP/1.0
  %sw Host: unitedradio.anycomp.co
  %sw $str($crlf, 2)
}
on *:SOCKREAD:getnlist: {
  var %read, %out, %a, %l
  sockread %read
  tokenize 58 %read
  if ($1 == Successfully Removed) {
    .sockclose $sockname
    get.requests
  }
}

menu @Requests {
  $$iif($$1, $$iif($left($$1,1) != $chr(1), ****Request Info***)):.halt
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Song,$chr(58),$chr(32),",$$iif($gettok($$1,1,9), $v1, None),"))):.clipboard $$gettok($1-,1,9)
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Requester,$chr(58),$chr(32),",$$iif($gettok($1-,2,9), $replace($v1,$+(<,non,>),Anonymous), None),"))):.clipboard $gettok($1,2-,9)
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Dedication,$chr(58),$chr(32),",$$iif($gettok($1-,3,9), $replace($v1,$+(<,non,>),Non-Given), None),"))):.clipboard $gettok($1-,3,9)
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Requesters IP,$chr(58),$chr(32),",$$iif($gettok($1-,4,9), $v1, None),"))):.clipboard $gettok($1-,4,9)
  -
  $$iif($$1, $$iif($left($$1,1) != $chr(1), = Remove It =)): {
    var %a, %b, %c, %d, %l
    %a = $gettok($1-,5,9)
    rrequest %a
  }
  -
  $$iif($group(#autoreqlist) == on, $style(1) Auto, Auto) Request Updater: $$iif($group(#autoreqlist) == on, .dis, .en) $+ able #autoreqlist | get.requests
  -
  $$iif($group(#autoreqlist) == off, Update Request List): .window -c $active | get.requests die
  -
}
menu * {
  -
  $$iif(!$window(@Requests), Start Requests Lister): .enable #autoreqlist | get.requests
  -
}