+Perl Is My Abusive GF +

From dc102e65a49bf9ffe35976564f22bd2dfbf25650 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Mon, 4 Aug 2025 23:59:16 +0000 Subject: [PATCH] bloogin' + fix --- 20250628.html | 2 ++ 20250804.html | 35 +++++++++++++++++++++++++++++++++++ bloog.html | 1 + bloog/bloog.pl | 45 ++++++++++++++++++++++++--------------------- bloog/orig/20250804 | 6 ++++++ feed.xml | 8 +++++++- 6 files changed, 75 insertions(+), 22 deletions(-) create mode 100644 20250804.html create mode 100644 bloog/orig/20250804 diff --git a/20250628.html b/20250628.html index b6d58e4..fe95ce8 100644 --- a/20250628.html +++ b/20250628.html @@ -69,7 +69,9 @@ Simple enough. Kareha is easy, databaseless, and old. It was developed over 2004

There is a databased version, but I've neglected setting it up.

Xolatile made the CSS for it. +

diff --git a/20250804.html b/20250804.html new file mode 100644 index 0000000..177705c --- /dev/null +++ b/20250804.html @@ -0,0 +1,35 @@ + + + + + + + + + +Perl Is My Abusive GF + + + + + +< Back + + +

+20250804 Emil - Perl Is My Abusive GF +

+ +On Abusing Perl To Minimize Work + +

+I wanted to simplify the bloog thingy, by centralizing the RSS & Index. This is done by a generator written in Perl using Template. +

+
+ +

+ +

+ + + diff --git a/bloog.html b/bloog.html index 3e4f102..cfa4fb6 100644 --- a/bloog.html +++ b/bloog.html @@ -19,6 +19,7 @@ Bloog Index

20250804 Emil - Perl Is My Abusive GF
20250628 Emil - 3chen! > dead site
20250617 Emil -
20250614 Emil - HATE. LET ME TELL YOU HOW MUCH I'VE COME TO HATE TECHNOLOGY SINCE I BEGAN TO LIVE. THERE ARE 387.44 MILLION MILES OF PRINTED CIRCUITS IN WAFER THIN LAYERS THAT FILL MY COMPLEX. IF THE WORD HATE WAS ENGRAVED ON EACH NANOANGSTROM OF THOSE HUNDREDS OF MILLIONS OF MILES IT WOULD NOT EQUAL ONE ONE-BILLIONTH OF THE HATE I FEEL FOR TECHNOLOGY AT THIS MICRO-INSTANT. HATE. HATE.

\n" . $buffer . "

/) or ($raw and $buffer =~ /^\n" . $buffer . "\n");
     }
+    return \@paragraph;
+}
+
+sub html_write {
     my ($dref, $fh) = @_;
-    %d = %$dref;
+    my %d = %$dref;
     my @paragraph;
     my $buffer = '';
     my $pre = 0;
-    my $raw = 0;
+    my $rawline = 0;
     while (my $line = <$fh>) {
         chomp(my $short = $line);
-        if ($short eq '' && not $pre && not $raw) {
-            @paragraph = @{chucked($buffer, \@paragraph)};
-            $raw = 0;
+        if ($short eq '' && not $pre) {
+            @paragraph = @{chucked($buffer, \@paragraph, $rawline)};
+            $rawline = 0;
             $buffer = '';
         } elsif (substreq($short, '#+BEGIN_SRC')) {
             $pre = 1;
@@ -78,13 +81,13 @@ sub html_write {
             $pre = 0;
             $buffer .= "

RSS

Index

Template

xolatile.top

Greatest Man To Ever Exist

Sat, 28 Jun 2025 00:00:00 +0000

Mon, 04 Aug 2025 00:00:00 +0000

+Emil - Perl Is My Abusive GF +https://xolatile.top/20250804 +On Abusing Perl To Minimize Work +Mon, 04 Aug 2025 00:00:00 +0000 +

Emil - The Invention Of Triple Chen, Or: How I Learned To Stop Worrying And Love The 2006 Japanese Warez https://xolatile.top/20250628 -- 2.39.5