Fix GoComics fetcher.

Author: sciurius

Changes

@@ -1,6 +1,6 @@
 Revision history for Comics
 
-1.22	2025-03-30
+1.23	2025-04-02
 
 	Fix GoComics fetcher.
 

lib/Comics/Fetcher/GoComics.pm

@@ -16,12 +16,9 @@ Comics::Fetcher::GoComics -- Fetcher for GoComics.
   package Comics::Plugin::Garfield;
   use parent qw(Comics::Fetcher::GoComics);
 
-  sub register {
-      shift->SUPER::register
-	( { name    => "Garfield",
-	    url     => "http://www.comics.com/garfield",
-	  } );
-  }
+  our $name    = "Garfield";
+  our $url     = "https://www.comics.com/garfield";
+
   # Return the package name.
   __PACKAGE__;
 
@@ -54,10 +51,11 @@ Fetcher specific arguments:
 
 =cut
 
-our $VERSION = "1.03";
+our $VERSION = "1.04";
 
 # Page contents changed, january 10, 2017.
 # Page contents changed, april 5, 2018.
+# Page contents changed, april 1, 2025.
 
 sub register {
     my ( $pkg, $init ) = @_;
@@ -72,12 +70,8 @@ sub register {
     # Add the standard pattern for GoComics comics.
     $self->{patterns} =
       [
-       qr{ href="(?<url>.*?)">Comics</a>
-         }x,
-       qr{ <meta \s+ property="og:image" \s+
-	   content="(?<url>https?://featureassets.amuniversal.com/assets/
-	   (?<image>[0-9a-f]+))" \s+
-           />
+       qr{ (?<url>https://featureassets.gocomics.com/assets/
+	   (?<image>[0-9a-f]+)) \?
          }x,
        ];
 

lib/Comics/Plugin/9ChickweedLane.pm

@@ -7,14 +7,10 @@ package Comics::Plugin::9ChickweedLane;
 
 use parent qw(Comics::Fetcher::GoComics);
 
-our $VERSION = "0.02";
+our $VERSION = "1.02";
 
-sub register {
-    shift->SUPER::register
-      ( { name    => "9 Chickweed Lane",
-	  url     => "https://www.gocomics.com/9_chickweed_lane",
-	} );
-}
+our $name    = "9 Chickweed Lane";
+our $url     = "https://www.gocomics.com/9-chickweed-lane";
 
 # Important: Return the package name!
 __PACKAGE__;

lib/Comics/Version.pm

@@ -1,3 +1,3 @@
 # This file is generated. Do not edit!
 package Comics::Version;
-our $VERSION = "1.21";
+our $VERSION = "1.23";