RequestList

alias get.requests {
  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
  }
  .sockclose getslist
  .sockopen getslist terisradio.anycomp.co 80
  if ($group(#autoreqlist) == on) .timerreq -cm 1 15000 get.requests
  return
}
#autoreqlist on
#autoreqlist end
on *:SOCKOPEN:getslist: {
  var %sw, %l
  %sw = .sockwrite -n $sockname
  %sw GET /Radio/request.php?load=true&reqlist=true HTTP/1.0
  %sw Host: terisradio.anycomp.co
  %sw $str($crlf, 2)
}
on *:SOCKREAD:getslist: {
  var %read, %out, %l
  sockread %read
  tokenize 58 %read
  if ($1 == Match) {
    tokenize 9 %read
    if (!$hget(reqs)) .hmake reqs
    if (!$hget(reqs,$6)) .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),))
    hadd reqs $6 $2
    %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 terisradio.anycomp.co 80
  sockmark getnlist $1
  return
}
on *:SOCKOPEN:getnlist: {
  var %sw, %l
  %sw = .sockwrite -n $sockname
  %sw GET /Radio/request.php?load=true&remreq= $+ $sock($sockname).mark HTTP/1.0
  %sw Host: terisradio.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 channel {
  -
  $$iif(!$window(@Requests), Start Requests Lister): .enable #autoreqlist | 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),"))):.halt
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Requester,$chr(58),$chr(32),",$$iif($gettok($1-,2,9), $replace($v1,$+(<,non,>),Anonymous), None),"))):.halt
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Dedication,$chr(58),$chr(32),",$$iif($gettok($1-,3,9), $replace($v1,$+(<,non,>),Non-Given), None),"))):.halt
  $$iif($$1, $$iif($left($$1,1) != $chr(1), $+(Requesters IP,$chr(58),$chr(32),",$$iif($gettok($1-,4,9), $v1, None),"))):.halt
  -
  $$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 $actve | get.requests
  -
}