#!/usr/bin/perl # SEO + artikel moneysite wismatoto.com (mobile + PC sinkron). # Tabel/nav/style TETAP — hanya artikel diganti (anti double footer). use strict; use warnings; use FindBin; use File::Spec; local $/; my $html = // ''; # === Moneysite WISMATOTO === my $title = 'WISMATOTO: Alternative Link For The Most Trusted Online Game Site 2026'; my $description = 'WISMATOTO menyediakan link alternatif untuk login dan daftar pada platform game online terbesar dengan akses tanpa kendala dan anti nawala.'; my $canonical = 'https://www.wismatoto.com/'; my $keywords = 'wismatoto, wisma toto, wismatoto.com, wismatoto login, wismatoto slot'; my $site_name = 'WISMATOTO'; my $alternate_base = 'https://wismatoto-akses.com/'; my $artikel_name = 'artikel.html'; my $logo_url = 'https://www.wismatoto.com/public/assets/images/icon/wisma-toto-logo.png'; # === /Moneysite === 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_name); 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 $artikel_inner = '

' . $title . '

' . $artikel; my $footer_html = '

' . $artikel_inner . '

'; my $artikel_json = encode_next_html($artikel_inner); my $tjson = json_escape($title); my $djson = json_escape($description); my $kjson = json_escape($keywords); my $cjson = json_escape($canonical); my $desc_tag = ''; my $kw_tag = ''; my $can_tag = ''; my $extra = join '', '', '', '', '', '', '', '', '', '', '', ''; my $schema_tag = ''; # Title hanya di . $html =~ s{(]*>.*?]*>).*?()}{$1$title$2}is; $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; } # Amphtml body: update href saja (jangan hapus node). $html =~ s{(]*\brel\s*=\s*["']amphtml["'])[^>]*\bhref\s*=\s*["'])[^"']+}{$1$alternate_base}gi; $html =~ s{]*\brel\s*=\s*["']alternate["'])(?=[^>]*\bhreflang\s*=)[^>]*?/?>}{}gis; $html =~ s{]*\bproperty\s*=\s*["']og:(?:title|description|url|site_name)["'])[^>]*>}{}gis; # OG + amp + hreflang di head (sekali). unless ($html =~ /property=["']og:title["']/i) { $html =~ s/\Q$can_tag\E/$can_tag$extra/ or $html =~ s{}{$extra}i; } unless ($html =~ /data-seo-schema=["']1["']/) { $html =~ s{}{$schema_tag}i; } # Artikel saja diganti. Tabel / nav / style TETAP. unless ($html =~ /\Q$footer_html\E/) { $html =~ s{ ]*class=["'][^"']*text-common[^"']*py-3[^"']*["'][^>]*> \s*]*>.*? \s*]*title-underline[^>]*>\s* (?:\s*]*>.*?

)* \s* }{$footer_html}six; } $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; # footerText: patch artikel saja; table/nav/style di JSON tetap. $html =~ s{ \\u003cdiv\s+class=\\"text-common\s+py-3\\"\\u003e (?:\\n|\s)* \\u003ch1(?:\\.|[^"])*?\\u003c/h1\\u003e (?:\\n|\s)* \\u003cdiv\s+class=\\"title-underline[^"]*\\"\\u003e\\u003c/div\\u003e (?:(?:\\n|\s)*\\u003cp(?:\\.|[^"])*?\\u003c/p\\u003e)* (?:\\n|\s)* \\u003c/div\\u003e }{\\u003cdiv class=\\"text-common py-3\\"\\u003e$artikel_json\\u003c/div\\u003e}sx; $html =~ s{\\u003clink rel=\\"amphtml\\" href=\\"[^"]*\\"} {encode_next_html('