Support a <base> element

davorg · davorg · commit 501286f10967 · 2021-05-07T07:46:35.000+01:00
diff --git a/bin/mksite b/bin/mksite
@@ -7,9 +7,14 @@ use v5.14;
 
 use App::CPANModuleSite;
 
-@ARGV or die "Usage: $0 <distribution_name>\n";
+@ARGV or die "Usage: $0 <distribution_name> [<base_url>]\n";
 
-my $app = App::CPANModuleSite->new($ARGV[0]);
+my $args = { distribution => $ARGV[0] };
+if (@ARGV > 1) {
+  $args->{base} = $ARGV[1];
+}
+
+my $app = App::CPANModuleSite->new($args);
 
 $app->run;
 
diff --git a/lib/App/CPANModuleSite.pm b/lib/App/CPANModuleSite.pm
@@ -13,7 +13,7 @@ It's probably not particularly useful to use the class directly.
 
 package App::CPANModuleSite;
 
-our $VERSION = '0.0.6';
+our $VERSION = '0.0.1';
 
 use v5.14;
 
@@ -105,6 +105,7 @@ sub _build_tt_config {
       distribution => $self->distribution,
       release => $self->release,
       modules => $self->modules,
+      base => $self->base,
     },
   }
 }
@@ -168,6 +169,12 @@ sub _build_wrapper {
   return 'page.tt';
 }
 
+has base => (
+  is => 'ro',
+  isa => 'Str',
+  default => '',
+);
+
 around BUILDARGS => sub {
   my $orig = shift;
   my $class = shift;
diff --git a/share/tt_lib/page.tt b/share/tt_lib/page.tt
@@ -2,6 +2,9 @@
 <!doctype html>
 <html lang="en">
   <head>
+[% IF base -%]
+    <base href="[% base %]">
+[% END -%]
     <!-- Required meta tags -->
     <meta charset="utf-8">
     <meta name="viewport" content="width=device-width, initial-scale=1">
