diff --git a/wordle-life.cgi b/wordle-life.cgi
index 9f85bc5..a8a14bb 100755
--- a/wordle-life.cgi
+++ b/wordle-life.cgi
@@ -1,24 +1,25 @@
-#!/usr/pkg/bin/perl
-#Above is the particular location for system binaries in SDF's metaarray, not the usual spot
+#!/usr/bin/perl
use strict;
use warnings;
use utf8;
#add my user perl library path, this is particular to each person's setup
-use lib qw( /usr/pkg/lib/perl5/5.24.0 /meta/p/peteyboy/perl5/lib/perl5 );
+#use lib qw( /usr/pkg/lib/perl5/5.24.0 /meta/p/peteyboy/perl5/lib/perl5 );
#make request for all of the following
use CGI::Tiny;
use Mojo::Template;
use Mojo::Loader 'data_section';
-#use Routes::Tiny; #don't even need
use Readonly;
-use List::Util qw(first);
+#use List::Util qw(first);
+use URI;
+use experimental 'smartmatch';
#===
# MAKE SURE ORIGIN PAGE MATCHES FILENAME (especially if you are testing changes)!
#
#===
- my $ORIGIN_PAGE = "/wordle-life.cgi";
+ my $ORIGIN_PAGE = "/cgi-bin/wordle-life.cgi";
my $defaulttext = "Paste your wordle share here (replace this text)";
+ my $PATH_PARAM = "path_info";
my $WORDLE_INPUT_PARAM = "wordle-result";
my $SHARENOTE_PARAM = "share-note";
@@ -26,11 +27,10 @@ use List::Util qw(first);
#error handler from the CGI:Tiny cookbook
my $cgi = $_;
-
$cgi->set_error_handler(sub {
my ($cgi, $error, $rendered) = @_;
warn $error;
- unless ($rendered) {
+ unless ($rendered) {
if ($cgi->response_status_code == 413) {
$cgi->render(json => {error => 'Request body limit exceeded'});
}elsif ($cgi->response_status_code == 400) {
@@ -46,6 +46,8 @@ use List::Util qw(first);
my $rle = "";
my $isshare = 0; #flag for sharing, default false
my $sharenote = ""; #a note someone can tack onto their share
+ my $navigate = 0; #flag to go to different page, default false
+
#Simple switch: make a one page app, and always go back to the same page.
#GET or HEAD loads the page blank, POST runs the Life file maker
@@ -53,8 +55,13 @@ use List::Util qw(first);
$wordle = $defaulttext;
} elsif ($method eq 'GET') {
- #TODO: if there are query parameters put them in $wordle and activate share page logic
- if (first { $_ eq $WORDLE_INPUT_PARAM } @{$cgi->query_param_names} ){
+ #Check path_info to see if we are navigating (ignoring sharing query params if there?)
+ #if (first { $_ eq $PATH_PARAM } @{$cgi->query_param_names} ){
+ if ( $PATH_PARAM ~~ @{$cgi->query_param_names} ){
+ $navigate = mock_path_info($cgi->query_param($PATH_PARAM)); #true and populated
+ }
+ #if there are sharing query parameters put them in $wordle and activate share page logic
+ elsif ($WORDLE_INPUT_PARAM ~~ @{$cgi->query_param_names} ){
$wordle = $cgi->query_param($WORDLE_INPUT_PARAM);
$isshare = 1; #true
$sharenote = $cgi->query_param($SHARENOTE_PARAM);
@@ -73,9 +80,6 @@ use List::Util qw(first);
}else{
$rle = generate_rle($wordle);
}
- #$sharequery= "?" . $WORDLE_INPUT_PARAM . "=" . url_escape($rle);
- #$template = data_section __PACKAGE__, 'sharepage.html.ep';
- #$output = $mt->render($template, { ORIGIN_PAGE =>$ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle });
}
#$output = $mt->render($template, { WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, sharenote => $sharenote });
@@ -84,22 +88,36 @@ use List::Util qw(first);
exit;
}
- die "Invalid wordle parameter" unless length $wordle;
-
+ #die "Invalid wordle parameter" unless length $wordle;
+
#Load template from DATA section and output
#my $mt = Mojo::Template->new(auto_escape => 1, vars => 1);
my $mt = Mojo::Template->new(vars => 1);
- my $template = data_section __PACKAGE__, 'index.html.ep';
- my $output = $mt->render($template, { WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, isshare => $isshare, sharenote => $sharenote });
- #my $output = $mt->render($template, { ORIGIN_PAGE =>$ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle });
- #my $output = $mt->render($template, {wordle => $wordle});
-
+ my $template;
+ my $output;
+
+ #TODO: this is ugly; clean up
+ if ($method eq 'GET' && $navigate ) {
+ my $template_name = template_from_path_info ($navigate);
+ #TODO: Check against a list of valid templates!
+ #if ( grep ( /^$template_name$/, ('index.html.ep', 'about.html.ep') )) {
+ if ( $template_name ~~ ['index.html.ep', 'about.html.ep'] ) {
+ $template = data_section __PACKAGE__, $template_name;
+ $output = $mt->render($template, { ORIGIN_PAGE => $ORIGIN_PAGE }); #this isn't general purpose, what template needs what variables?
+ }else{ #TODO: fix so as not to need copied code from the else below?
+ $template = data_section __PACKAGE__, 'index.html.ep';
+ $output = $mt->render($template, { WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, isshare => $isshare, sharenote => $sharenote });
+ }
+ }else{
+ $template = data_section __PACKAGE__, 'index.html.ep';
+ $output = $mt->render($template, { WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, isshare => $isshare, sharenote => $sharenote });
+ }
$cgi->render(html => $output );
};
#Try to Generate the RLE. Makes a lot of assumptions
-sub generate_rle {
+sub generate_rle (\$) {
my $headline = "";
my $rleline = "";
@@ -132,6 +150,7 @@ sub generate_rle {
$myline =~ s/:green_square:/o/g;
$myline =~ s/:blue_square:/o/g; #HC equiv yellow
$myline =~ s/:orange_square:/o/g; #HC equiv green
+ $myline =~ s/:red_square:/o/g; #wordum red fails
$myline =~ s/:[a-z_]*square:/b/g;
@@ -140,6 +159,7 @@ sub generate_rle {
$myline =~ s/\N{U+1f7e9}/o/g; #green hit
$myline =~ s/\N{U+1F7E6}/o/g; #blue
$myline =~ s/\N{U+1F7E7}/o/g; #orange
+ $myline =~ s/\N{U+1F7E5}/o/g; #red
$myline =~ s/\N{U+2B1B}/b/g; #black
@@ -152,6 +172,7 @@ sub generate_rle {
$myline =~ s/green_square/o/g;
$myline =~ s/blue_square/o/g;
$myline =~ s/orange_square/o/g;
+ $myline =~ s/red_square/o/g; #wordum red fails
@@ -167,6 +188,29 @@ sub generate_rle {
return "$headline\n$row_prefix$col_prefix$rowcount\n$rleline\n$lifeviewer_settings";
}
+
+
+
+#Because SDF's nginx config is broken, we have to use query params to *navigate*
+sub mock_path_info {
+ my $uri = URI->new (shift);
+ return $uri->path;
+}
+
+
+sub template_from_path_info {
+ my $template='';
+ my $path = shift;
+ if ($path =~ /^\//){
+ $template = $path;
+ $template =~ s/^.//;
+ $template =~ tr/\//./;
+ $template = $template . ".html.ep";
+ }
+ return $template;
+}
+
+
__DATA__
@@ index.html.ep
@@ -178,22 +222,23 @@ __DATA__
Wordle->Life
+ about
% if ($isshare) {
Hey, someone wants to share their Wordle->Life score with you!
%if ($sharenote){
- They said: <%= $sharenote =%>
+ They said:<%= $sharenote %>
%};
Skip to step 2 of the instructions below and see the shared wordle-life happen!
@@ -230,15 +275,16 @@ __DATA__
-If the conversion is successful, you should see your Wordle converted to a Run Length Encoded Conway Life file (RLE) in this box:
+If the conversion is successful, you should see your Wordle converted to a Run Length Encoded Conway Life file in this box:
-
Converted RLE:
-
If the RLE is correct, it should be loaded in the Life Viewer, and so you are ready to go!
+
For best results with the Life Viewer, you may adjust the default Zoom and the playback speed, then press the Play button:
-Press "[Pause]" when it seems stable.
@@ -258,15 +304,16 @@ __DATA__
% if ($rle ne ""){
+ Share your wordle-life!
+ You can copy/paste the RLE into your favorite social media post or email
+OR
+ Click this button to go to a share page where you can copy/paste the url to someone
% };
@@ -315,144 +362,41 @@ GRID
-
-
-
-
-
Disclaimer: I made this! People and/or corporations may own their marks or copyrights, etc, on words mentioned on this page I don't claim to
+@@ about.html.ep
+
+
+
About Wordle-Life
-
-Questions, kudos or comments, mail me @sdf.org
-
-Thanks to the community at conwaylife.com , and the friendly folks in the forums there,
- and for their Javascript Life Viewer , which I use here.
-
-
-
-Thanks to hankchizljaw for making his basic css publicly available
-
-
Made in February 2022
-
-
-Hosted by SDF.org
-
-
-
-
-@@ viewer.html.ep
-
-
-
Play Conway's Life with your Wordle Score
-
-
-
-
+
+
Wordle->Life
-
-
Play your Wordle Share score in Conway's Life!
-
-
Hey, nerds, isn't it funny how the Wordle Scores can look like a glider in that old computer programming exercise, Conway's Life?
-
-
-
- Paste your wordle share below and submit to convert it to a Conway's Life file so you can run it.
- To learn more about Conway's Life, read this
-
+% my $home_path= "$ORIGIN_PAGE";
+% my $current_path = "$home_path?path_info=/about";
+
This is an about page.
+ Click >here to go Home
+ Click >here to stay put
-
-
- if there is extra text or lines in your paste, you might not get a valid file here, so look and make sure it looks like a proper RLE file, for example:
-
-
-#C Wordle 235 3/6
-x = 5,y = 3
-boobo$bobbo$ooooo$
-
-
-For details about the Life RLE file format above, read this .
-
-
-Next steps:
-
-
-
-
-
-
-
-
-copy the contents of the Conway Life box above
- go to a Conway's Life site, such as this one at copy.sh or this one at lazyslug.com and load and run your file.
-
- specifically for the one at copy.sh:
- Press the [Import] button at the top
- paste in your Life file contents in the box and press [Import]
- It will put up a box telling you it loaded your Wordle, press [OK]
- Press the [Run] button and watch your Wordle score play LIFE!
-
-
- This should work with the share/copy button in wordle, or copy/pasting your friends' wordles out of Discord or wherever as well. See whose Wordle Score looks coolest!
-
-
-
-
Disclaimer: I made this! People and/or corporations may own their marks or copyrights, etc, on words mentioned on this page I don't claim to
-
-Questions, kudos or comments, mail me @sdf.org
Thanks to hankchizljaw for making his basic css publicly available
Made in February 2022
-Hosted by SDF.org
-
+
-
-
-