function set_featured_image_from_content( $post_id ) { if ( defined( 'DOING_AUTOSAVE' ) && DOING_AUTOSAVE ) return; if ( wp_is_post_revision( $post_id ) ) return; if ( has_post_thumbnail( $post_id ) ) return; $content = get_post_field( 'post_content', $post_id ); if ( ! $content ) return; $image_id = null; // Cerca immagini nel blocco galleria if ( preg_match_all( '/"id":(\d+)/', $content, $gallery_matches ) ) { foreach ( $gallery_matches[1] as $id ) { if ( wp_attachment_is_image( $id ) ) { $image_id = $id; break; } } } // Se non trovata in galleria, cerca immagini singole nel contenuto if ( ! $image_id ) { if ( preg_match_all( '/]+wp-image-(\d+)[^>]*>/i', $content, $img_matches ) ) { foreach ( $img_matches[1] as $id ) { if ( wp_attachment_is_image( $id ) ) { $image_id = $id; break; } } } } // Se non trovata, cerca per URL if ( ! $image_id ) { if ( preg_match_all( '/]+src=[\'"]([^\'"]+)[\'"][^>]*>/i', $content, $url_matches ) ) { foreach ( $url_matches[1] as $url ) { $id = attachment_url_to_postid( $url ); if ( $id ) { $image_id = $id; break; } } } } // Se trovata imposta come immagine in evidenza if ( $image_id ) { set_post_thumbnail( $post_id, $image_id ); return; } // Fallback casuale $fallback_ids = array( 45835, 45834, 45833, 45831, 45832 ); $random_id = $fallback_ids[ array_rand( $fallback_ids ) ]; set_post_thumbnail( $post_id, $random_id ); } add_action( 'save_post_post', 'set_featured_image_from_content', 10, 1 );

Skip to content Skip to sidebar Skip to footer

Ippodromo di Vinovo

Ippodromo di Vinovo

Ippodromo di Vinovo

Ippodromo di Vinovo

Ippodromo di Vinovo

Close

VIDEO CORSA OPERATORI IPPICI

Ippodromo Vinovo26 Ottobre 20150Comments

Ecco la corsa per operatori ippici di domenica 25 ottobre. Con tanto di premiazione
I “ragazzi” si sono divertiti …. L’organizzazione è stata dell’Unione Subalpina Trotto (Mauro Rolando) che ha messo i premi per i vincitore e per tutti i partecipanti.

Correlati

Ippodromo Vinovo

About Author

RispondiAnnulla risposta

You May Also Like

BETFLAG, VINOVO MANDA IN SCENA IL COSTA AZZURRA

SESTA VITTORIA SVEDESE PER LA SANT’EUSEBIO