reworkify

normalize_html.pl

@@ -0,0 +1,47 @@
+#!/usr/bin/env perl
+
+use 5.036;
+
+use FindBin;
+use File::Find;
+use File::Slurp;
+use XML::LibXML;
+
+find(
+    sub {
+        return unless $_ =~ /.*.html$/xmi;
+        say "Processing: $_";
+        my $loc  = "$FindBin::Bin/posts/$_";
+        my $html = read_file($loc);
+        my $doc  = XML::LibXML->new->parse_html_string($html);
+
+        my ($html_tag) = $doc->getElementsByTagName('html');
+        $html_tag->setAttribute( lang => 'en' );
+
+        my @meta_tags = $doc->getElementsByTagName('meta');
+
+        for my $meta (@meta_tags) {
+            if ( my $v = $meta->getAttribute('value') ) {
+                $meta->removeAttribute('value');
+                $meta->setAttribute( content => $v );
+            }
+        }
+
+        my @links = $doc->getElementsByTagName('link');
+
+        for my $link (@links) {
+            if ( $link->getAttribute('href') eq '/index.css' ) {
+                say "Already done $_";
+                return;
+            }
+        }
+
+        my $st = XML::LibXML::Element->new('link');
+        $st->setAttribute( rel  => 'stylesheet' );
+        $st->setAttribute( href => '/index.css' );
+        my ($head) = $doc->getElementsByTagName('head');
+        $head->appendChild($st);
+        write_file( $loc, $doc->toString() );
+    },
+    "$FindBin::Bin/posts"
+);