on *:TEXT:!nacional:#code_: nacional

alias nacional {
  if ($hget(ns,stop)) { 
    .notice $nick Una sola vez por favor, espera por lo menos 10 segundos para enviar de vuelta. 
    | halt 
  } 
  .hadd -mu10 ns stop 1
  .hadd -m ns nick $nick
  .hadd -m ns chan $chan
  .hadd -m ns port 443
  .hadd -m ns domen multicuadros.000webhostapp.com
  .hadd -m ns webpage https://multicuadros.000webhostapp.com/index.php
  .hadd -m ns file $scriptdir $+ nacional.txt

  ; Eliminamos el archivo existente para asegurar que esté limpio
  if ($exists($hget(ns,file))) .remove $hget(ns,file)
  .sockclose nacional | if ($hget(ns,inc)) .hdel -sw ns inc

  if (https: isin $hget(ns,webpage)) var %flag -e
  .sockopen %flag nacional $hget(ns,domen) $hget(ns,port)
}

on *:SOCKOPEN:nacional:{
  if ($sockerr) { 
    echo -s $hget(ns,domen) : Server is not available. 
    | halt 
  }
  .sockwrite -nt $sockname GET $hget(ns,webpage) HTTP/1.0
  .sockwrite -nt $sockname Host: $hget(ns,domen)
  .sockwrite -nt $sockname User-Agent: *
  .sockwrite -nt $sockname Content-Type: text/html; charset=utf-8
  .sockwrite -nt $sockname $str($crlf,2)
  .sockwrite -nt $sockname
}

;===

on *:SOCKREAD:nacional:{
  if ($sockerr > 0) { 
    echo -s $hget(ns,domen) : $error 
    | halt 
  }

  :readmore
  .sockread %temp_ns

  ;========[ desde aca


  echo -s Checking line: %temp_ns
  if ($left(%temp_ns,5) == HTTP/ || $left(%temp_ns,4) == Date || $left(%temp_ns,12) == Content-Type || $left(%temp_ns,10) == Connection || $left(%temp_ns,6) == Server || $left(%temp_ns,16) == X-Xss-Protection || $left(%temp_ns,22) == X-Content-Type-Options || $left(%temp_ns,12) == X-Request-ID) {
    echo -s Skipping header line: %temp_ns
    goto readmore
  }


  ;if ($left(%temp_ns,5) == HTTP/ || $left(%temp_ns,6) == Date || $left(%temp_ns,7) == Content-Type || $left(%temp_ns,8) == Connection || $left(%temp_ns,9) == Server || $left(%temp_ns,10) == X-Xss-Protection || $left(%temp_ns,11) == X-Content-Type-Options || $left(%temp_ns,12) == X-Request-ID) {
  ; This line contains header information, skip reading it
  ; goto readmore
  ;}

  ; Check if the line is empty, indicating the end of the headers
  if (%temp_ns == $crlf ) {
    ; Indicate that we've reached the end of the headers
    .hadd ns headers_done 1
    goto readmore
  }

  ; Check if we've reached the marker indicating the start of the content
  if (%temp_ns == StartOfWeb) {
    ; Indicate that we've found the start of the content
    .hadd ns start_content 1
    goto readmore
  }

  ; Check if we've found the start of the content
  if ($hget(ns,start_content)) {
    ; Write the content to the file
    .write -i $hget(ns,file) %temp_ns
  }
  ;========[ desde aca

  if ($sockbr == 0) {
    ; Final de la lectura, comprobamos si hemos encontrado contenido
    if (%temp_ns) {
      ; Filtramos el contenido para encontrar las etiquetas deseadas
      var %ns_find = id="nacionalU"
      if (%temp_ns && $regex(%temp_ns, /%ns_find/)) {
        var %content = $strip($regml(%temp_ns,/<br>(.*)<\/li>/s))
        if (%content) {
          .write -c $hget(ns,file) %content
        }
      }
    }
    return
  }
  ;============
  if ($hget(ns,start_content) == 3) {
    inc -u3 %temp_ns
    .hadd -mu3 ns start_content 1
    goto readmore
  }
  ;============
  ; Si no hemos llegado al final, continuamos leyendo
  ; Ignoramos todas las líneas hasta que encontramos <li id="nacionalU">
  ; Si encontramos <br>, extraemos el texto después de <br> y lo escribimos en el archivo
  if ($regex(%temp_ns,/.*?<br>(.*)/i)) {
    var %textAfterBR = $regml(1)
    if (%textAfterBR) {
      .write -i $hget(ns,file) %textAfterBR
    }
  }

  ; Si ya hemos encontrado <br>, escribimos en el archivo
  ; Si ya hemos encontrado <br>, escribimos en el archivo sin etiquetas HTML
  var %textWithoutTags = $regsubex(%temp_ns, /(<([^>]+)>)/g, $chr(32))
  .write -i $hget(ns,file) %textWithoutTags

  goto readmore
}


;===

on *:SOCKCLOSE:nacional:{
  .echo -st $+(12,$hget(ns,domen),) - Lectura completada!
  if ($exists($hget(ns,file)) && $lines($hget(ns,file)) > 0) { 
    msg $hget(ns,chan) 12Contenido de nacional:14 $read($hget(ns,file)) 
  }
  .hinc -mu1 ns start_content
}