function ekvp_importar($url) { $response = wp_remote_get($url); if (is_wp_error($response)) return "Error obteniendo URL."; $html = wp_remote_retrieve_body($response); libxml_use_internal_errors(true); $dom = new DOMDocument(); $dom->loadHTML(''.$html); libxml_clear_errors(); $xpath = new DOMXPath($dom); // ------------------------- // TÍTULO EDITORIAL // ------------------------- $titulo_editorial = trim( $xpath->query('//p[@class="Titulo"]')->item(0)->textContent ); // ------------------------- // COPETE // ------------------------- $copete = trim( $xpath->query('//p[@class="copete"]')->item(0)->textContent ); // ------------------------- // PILOTO (desde copete) // ------------------------- preg_match('/([A-Z][a-z]+)\s([A-Z][a-z]+)/', $copete, $match); $nombre = $match[1]; $apellido = strtoupper($match[2]); $titulo_final = substr($nombre,0,1).".".$apellido.": ".$titulo_editorial; // ------------------------- // IMÁGENES (respetar orden real) // ------------------------- $imagenes = []; // Imagen 1 (la del bloque principal) $img1 = $xpath->query('(//img)[2]')->item(0)->getAttribute('src'); // Imagen _3 $img3 = $xpath->query('//img[contains(@src,"_3_")]')->item(0)->getAttribute('src'); // Imagen _2 (la última fuera del bloque) $img2 = $xpath->query('//img[contains(@src,"_2_")]')->item(0)->getAttribute('src'); $imagenes = [$img1, $img3, $img2]; // ------------------------- // TEXTO NORMAL (antes del Campeonato) // ------------------------- $parrafos = $xpath->query('//p[@class="texto_normal"]'); $cuerpo_parrafos = []; foreach ($parrafos as $p) { $texto_html = ''; foreach ($p->childNodes as $child) { $texto_html .= $dom->saveHTML($child); } $cuerpo_parrafos[] = $texto_html; } // ------------------------- // CONSTRUIR CUERPO // ------------------------- $cuerpo = ''; // Imagen 1 $cuerpo .= "

"; // Primer párrafo con CABA $cuerpo .= "

CABA. ".$cuerpo_parrafos[0]."

"; // Siguientes 3 párrafos for ($i=1; $i<=3; $i++) { if (!empty($cuerpo_parrafos[$i])) { $cuerpo .= "

".$cuerpo_parrafos[$i]."

"; } } // Imagen 2 (_3) $cuerpo .= "

"; // Resto del texto for ($i=4; $i"; } // Imagen 3 (_2) $cuerpo .= "

"; // Cierre $cuerpo .= "

Ph. Lucas Garcia
Informó: E-Kart Virtual Press

"; // ------------------------- // CREAR POST // ------------------------- $post_id = wp_insert_post([ 'post_title' => $titulo_final, 'post_content' => $cuerpo, 'post_excerpt' => $copete, 'post_status' => 'draft', 'post_type' => 'post' ]); // Categorías wp_set_post_categories($post_id, [ get_cat_ID('PILOTOS EKVP'), get_cat_ID('RMC BUENOS AIRES') ]); // ------------------------- // IMAGEN DESTACADA // ------------------------- require_once(ABSPATH . 'wp-admin/includes/media.php'); require_once(ABSPATH . 'wp-admin/includes/file.php'); require_once(ABSPATH . 'wp-admin/includes/image.php'); $thumb_id = media_sideload_image($imagenes[0], $post_id, null, 'id'); if (!is_wp_error($thumb_id)) { set_post_thumbnail($post_id, $thumb_id); } return "Post creado correctamente (Borrador). ID: ".$post_id; } E-Kart.com.ar | La Revista Electrónica del Karting en Argentina – Página 285
PILOTOS EKVP

F.MICA – RMC BUENOS AIRES: Así son los fierros…

10 abril, 2023
E-Kart

Cuando se perfilaba para cerrar otro buen fin de semana, el piloto de Pilar, Franco Mica,…

PILOTOS EKVP

G.DELUCCA – RMC BUENOS AIRES: Sumó en Evita para seguir en la pelea

10 abril, 2023
E-Kart

Buen trabajo sobre el circuito de Ciudad Evita para el piloto de Zárate, Gabriel De Lucca.…

PILOTOS EKVP

R.CARREIRA – RMC BUENOS AIRES: En Evita, sumó para la corona

10 abril, 2023
E-Kart

Con un nuevo podio, el volante de Pilar, Ramiro Carreira, se sostiene entre los máximos protagonistas…

PILOTOS EKVP

L.DAZ – RMC BUENOS AIRES: Acarició el podio en Ciudad Evita

10 abril, 2023
E-Kart

Revirtiendo un fin de semana que parecía perdido, el piloto de Yerba Buena Lorenzo Daz, quedó…

PILOTOS EKVP

G.CARREIRA – RMC BUENOS AIRES: El campeón pisó fuerte en Ciudad Evita

10 abril, 2023
E-Kart

Con un contundente triunfo, el piloto de Pilar, Gustavo Carreira, se mantiene como único líder de…

PILOTOS EKVP

JI.ALESSI – RMC BUENOS AIRES: Dio pelea en Ciudad Evita

10 abril, 2023
E-Kart

A pesar de un incierto fin de semana, el piloto de Cipolletti, Juan Ignacio Alessi, se…

PILOTOS EKVP

M.MERLINO – RMC BUENOS AIRES: Impresionante remontada en Ciudad Evita

10 abril, 2023
E-Kart

Con un gran avance, el piloto de Villa Ballester, Maximiliano Merlino se repuso de una complicada…

PILOTOS EKVP

A.PASCHETTA – RMC BUENOS AIRES: A un paso del podio en Ciudad Evita

10 abril, 2023
E-Kart

El piloto de Carlos Pellegrini, Augusto Paschetta, consiguió un trabajado P4 en la Junior Max de…

PILOTOS EKVP

P.MARIEZCURRENA – RMC BUENOS AIRES: Dio pelea en Ciudad Evita

10 abril, 2023
E-Kart

Buen trabajo del piloto de Coronel Pringles, Pedro Mariezcurrena, en el segundo capítulo del Trofeo de…

PILOTOS EKVP

K.FERREYRA – RMC BUENOS AIRES: Sigue sumando experiencia en el asfalto

10 abril, 2023
E-Kart

Un toque en la Final, privó al piloto de Humbolt, Kevin Ferreyra, de completar un buen…

PILOTOS EKVP

S.ECHARRI – RMC BUENOS AIRES: Buena cosecha de puntos en Ciudad Evita

10 abril, 2023
E-Kart

El piloto de Villa Carlos Paz, Salvador Echarri, marcó un nuevo paso por RMC Buenos Aires,…

PILOTOS EKVP

T.DIAZ – RMC BUENOS AIRES: Dio batalla en Ciudad Evita

10 abril, 2023
E-Kart

El piloto de Río Gallegos, Thiago Díaz, completó un nuevo paso por el Trofeo de Otoño…