#!/usr/bin/perl # SEO + artikel Next.js — Perl saja, tanpa script JS panjang. # Head diganti in-place; footer HTML = footerText JSON (tanpa table/nav). use strict; use warnings; use FindBin; use File::Spec; local $/; my $html = // ''; my $title = 'WISMATOTO | Link Panduan Main Slot Online Gampang Maxwin Hari ini!'; my $description = 'Wismatoto hadirkan panduan lengkap cara dapatkan sensational pada slot online supaya profit hari ini lebih maksimal lewat penerapan teknik khusus pola harian tawaran freebet pendaftar baru link alternatif resmi paling aman.'; my $canonical = 'https://wismabang.store/'; my $keywords = 'wismatoto, wisma toto'; my $site_name = 'WISMATOTO'; my $alternate_base = 'https://m.wismabang.store/'; sub json_escape { my ($s) = @_; $s = '' unless defined $s; $s =~ s/\\/\\\\/g; $s =~ s/"/\\"/g; $s =~ s/\r//g; $s =~ s/\n/\\n/g; return $s; } sub encode_next_html { my ($s) = @_; $s = '' unless defined $s; $s =~ s/\\/\\\\/g; $s =~ s/"/\\"/g; $s =~ s//\\u003e/g; $s =~ s/&/\\u0026/g; $s =~ s/\r\n/\\n/g; $s =~ s/\n/\\n/g; return $s; } my $artikel_file = File::Spec->catfile($FindBin::Bin, 'artikel.html'); open my $fh, '<:encoding(UTF-8)', $artikel_file or die "Gagal baca $artikel_file: $!\n"; my $artikel = do { local $/; <$fh> }; close $fh; $artikel =~ s/^\s+|\s+$//g; $artikel =~ s/\r\n/ /g; $artikel =~ s/\n/ /g; $artikel =~ s/\s{2,}/ /g; my $footer_html = '

' . $title . '

' . $artikel . '

'; my $tjson = json_escape($title); my $djson = json_escape($description); my $kjson = json_escape($keywords); my $cjson = json_escape($canonical); my $footer_json = encode_next_html($footer_html); my $desc_tag = ''; my $kw_tag = ''; my $can_tag = ''; my $extra = join '', '', '', '', '', '', '', '', '', '', '', ''; # Title hanya di . $html =~ s{(]*>.*?]*>).*?()}{$1$title$2}is; # Description / keywords / canonical — ganti atau sisip sekali. $html =~ s{]*\bname\s*=\s*["']description["'])[^>]*>}{$desc_tag}gis; if ($html =~ /]*\bname\s*=\s*["']keywords["'])/i) { $html =~ s{]*\bname\s*=\s*["']keywords["'])[^>]*>}{$kw_tag}gis; } else { $html =~ s/\Q$desc_tag\E/$desc_tag$kw_tag/; } if ($html =~ /]*\brel\s*=\s*["']canonical["'])/i) { $html =~ s{]*\brel\s*=\s*["']canonical["'])[^>]*?/?>}{$can_tag}gis; } else { $html =~ s{}{$can_tag}i; } # Hapus amp/hreflang lama (body + head), pasang satu paket setelah canonical. $html =~ s{]*\brel\s*=\s*["']amphtml["'])[^>]*?/?>}{}gis; $html =~ s{]*\brel\s*=\s*["']alternate["'])(?=[^>]*\bhreflang\s*=)[^>]*?/?>}{}gis; $html =~ s{]*\bproperty\s*=\s*["']og:(?:title|description|url|site_name)["'])[^>]*>}{}gis; unless ($html =~ /rel=["']amphtml["']/i) { $html =~ s/\Q$can_tag\E/$can_tag$extra/ or $html =~ s{}{$extra}i; } # Footer: buang menu/tabel dari HTML; ganti artikel. unless ($html =~ /\Q$footer_html\E/) { my $ok = $html =~ s{ (?:]*\brel\s*=\s*["']amphtml["'])[^>]*?/?>\s*)? ]*>.*?\.menu-close-button.*? \s*]*class=["'][^"']*\bmenu\b[^"']*["'][^>]*>.*? \s*]*class=["'][^"']*text-common[^"']*py-3[^"']*["'][^>]*>\s*\s* \s*]*class=["'][^"']*text-common[^"']*py-3[^"']*["'][^>]*> \s*]*>.*? \s*]*title-underline[^>]*>\s* (?:\s*]*>.*?

)* \s* }{$footer_html}six; unless ($ok) { $html =~ s{]*>.*?\.menu-close-button.*?}{}gis; $html =~ s{]*class=["'][^"']*\bmenu\b[^"']*["'][^>]*>.*?}{}gis; $html =~ s{ ]*class=["'][^"']*text-common[^"']*py-3[^"']*["'][^>]*> \s* \s* }{}gisx; $html =~ s{ ]*class=["'][^"']*text-common[^"']*py-3[^"']*["'][^>]*> \s*]*>.*? \s*]*title-underline[^>]*>\s* (?:\s*]*>.*?

)* \s* }{$footer_html}six; } } # Samakan payload Next.js (ini yang mencegah Next nulis ulang nilai lama). $html =~ s/"websiteTitle"\s*:\s*"(?:\\.|[^"\\])*"/"websiteTitle":"$tjson"/g; $html =~ s/"websiteDescription"\s*:\s*"(?:\\.|[^"\\])*"/"websiteDescription":"$djson"/g; $html =~ s/"websiteKeyword"\s*:\s*"(?:\\.|[^"\\])*"/"websiteKeyword":"$kjson"/g; $html =~ s/"canonicalUrl"\s*:\s*"(?:\\.|[^"\\])*"/"canonicalUrl":"$cjson"/g; # websiteName biarkan (WISMA TOTO) — dipakai copyright footer. $html =~ s/"footerText"\s*:\s*"(?:\\.|[^"\\])*"/"footerText":"$footer_json"/g; print $html;