drudgesentinel/Hyperlink-Redirect
1
0
Fork 0
forked from swaggboi/Hyperlink-Redirect
Code Pull requests Activity

Compare commits

merge into: drudgesentinel:main
Branches Tags
drudgesentinel:main
drudgesentinel:add-scheme
swaggboi:main
...
pull from: swaggboi:main
Branches Tags
swaggboi:main
drudgesentinel:main
drudgesentinel:add-scheme

7 commits
main ... main

Author SHA1 Message Date
swagg boi 3b44f3d633 podman and tests cope 2024-01-06 13:45:20 -05:00
swagg boi 6c60acf5f2 Run app in production mode in donker 2024-01-06 13:22:57 -05:00
swagg boi a14d4f2aef Use the new Logger plugin 2024-01-06 13:18:45 -05:00
swagg boi a6cc0239ec lil cleanup 2023-11-17 21:04:48 -05:00
swagg boi c53041b906 Merge branch 'main' of https://git.minimally.online/swaggboi/Hyperlink-Redirect 2023-11-17 20:56:58 -05:00
swagg boi db82f97921 VERY IMPORTANT CHANGE 2023-11-17 20:56:18 -05:00
swagg boi befd600fbe Merge branch 'drudgesentinel-main' 2023-11-15 19:01:13 -05:00
4 changed files with 15 additions and 19 deletions
Show stats Expand all files Collapse all files

11
Dockerfile
View file

@ -1,4 +1,4 @@
FROM rakudo-star:2023.08 FROM docker.io/rakudo-star:2023.08
# Move it # Move it
WORKDIR /opt WORKDIR /opt
@ -11,15 +11,14 @@ COPY templates/ ./templates/
RUN apt-get update RUN apt-get update
RUN apt-get -y upgrade RUN apt-get -y upgrade
RUN apt-get -y install libssl-dev libarchive-dev RUN apt-get -y install libssl-dev libarchive-dev
# Stupid tests failing idk # Tests failing cope
RUN zef -v install --force-test IO::Socket::Async::SSL \ RUN zef -v install --force-test IO::Socket::Async::SSL \
Archive::Libarchive::Raw NativeHelpers::Callback NativeHelpers::Callback \
# Get the latest and greatest for bug fix Archive::Libarchive::Raw
# https://github.com/rawleyfowler/Humming-Bird/issues/60#issuecomment-1788351265
RUN zef install https://github.com/rawleyfowler/Humming-Bird.git --force-install
RUN zef -v install --deps-only . RUN zef -v install --deps-only .
# Finish setting up the environment # Finish setting up the environment
ENV HUMMING_BIRD_ENV='PROD'
EXPOSE 3000 EXPOSE 3000
CMD ["raku", "bin/hyperlink-redirect"] CMD ["raku", "bin/hyperlink-redirect"]

2
bin/hyperlink-redirect
View file

@ -11,4 +11,4 @@ use Humming-Bird::Core;
use lib 'lib'; use lib 'lib';
use Hyperlink-Redirect; use Hyperlink-Redirect;
listen(3000); listen 3000;

7
lib/Hyperlink-Redirect.rakumod
View file

@ -1,6 +1,4 @@
use Humming-Bird::Core; use Humming-Bird::Core;
use Humming-Bird::Middleware;
use Humming-Bird::Advice;
use Template::Mustache; use Template::Mustache;
# Normally would 'use' local libs here for Controller and Model and # Normally would 'use' local libs here for Controller and Model and
@ -11,9 +9,8 @@ use Hyperlink-Redirect::Helpers;
# Set things up (config stuff would go here?) # Set things up (config stuff would go here?)
my $template = Template::Mustache.new: :from<../templates>; my $template = Template::Mustache.new: :from<../templates>;
# Logging # Plugins
middleware &middleware-logger; plugin 'Logger';
advice &advice-logger;
# Must set the root path lest yet miss setting $!root # Must set the root path lest yet miss setting $!root
my $router = Router.new(root => '/'); my $router = Router.new(root => '/');

8
t/01-basic.rakutest
View file

@ -8,10 +8,10 @@ use Hyperlink-Redirect::Helpers;
plan 2; plan 2;
ok fix-protocol("seriousbusiness.international") eq "http://seriousbusiness.international", \ ok fix-protocol("seriousbusiness.international") eq "http://seriousbusiness.international",
"fix-protocol fixes bare domains correctly"\ "fix-protocol fixes bare domains correctly"
or diag "\nfix-protocol should return the same string with 'http://' prefixed if protocol isn't specified"; or diag "\nfix-protocol should return the same string with 'http://' prefixed if protocol isn't specified";
ok fix-protocol("https://www.seriousbusiness.international") eq "https://www.seriousbusiness.international",\ ok fix-protocol("https://www.seriousbusiness.international") eq "https://www.seriousbusiness.international",
"fix-protocol does not mangle correctly formatted domains"\ "fix-protocol does not mangle correctly formatted domains"
or diag "\nThe URL should remain unchanged when the protocol is specified"; or diag "\nThe URL should remain unchanged when the protocol is specified";