Updated master branch to contain the CGI::Tiny version with mocked
PATH_INFO, but supporting a 'neutral' environment (not SDF), and playing out of /cgi-bin.
This commit is contained in:
parent
0151070b58
commit
a38abfdf7e
246
wordle-life.cgi
246
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__
|
||||
|
||||
<style>
|
||||
.lv-rle{
|
||||
min-height:200px;
|
||||
min-height:140px;
|
||||
}
|
||||
</style>
|
||||
<meta name="LifeViewer" content="viewer textarea"> <!--required tag-->
|
||||
<script src="lv-plugin.js"></script>
|
||||
<script src="/lv-plugin.js"></script>
|
||||
|
||||
</head>
|
||||
|
||||
<body><h1>Wordle->Life</h1>
|
||||
|
||||
<p align= right> <a href="<%=$ORIGIN_PAGE%>?path_info=/about">about</a>
|
||||
|
||||
% if ($isshare) {
|
||||
<span>
|
||||
<h3> Hey, someone wants to share their Wordle->Life score with you!</h3>
|
||||
%if ($sharenote){
|
||||
<p>They said: <em><%= $sharenote =%></em></p>
|
||||
<p>They said:<em><%= $sharenote %></em></p>
|
||||
%};
|
||||
<p><strong>Skip to step 2 of the instructions below and see the shared wordle-life happen!</strong></p>
|
||||
</span>
|
||||
@ -230,15 +275,16 @@ __DATA__
|
||||
<!--viewer container-->
|
||||
<div class="viewer" class="flow">
|
||||
<label for="wordle">
|
||||
<p>If the conversion is successful, you should see your Wordle converted to a Run Length Encoded Conway Life file (RLE) in this box:</p>
|
||||
<p>If the conversion is successful, you should see your Wordle converted to a Run Length Encoded Conway Life file in this box:</p>
|
||||
</label>
|
||||
<label for="wordle">Converted RLE:</label>
|
||||
<textarea id="life" name="life-file" rows="12" cols="50" style="vertical-align: middle" class="lv-rle" class="flow">
|
||||
|
||||
<textarea id="life" name="life-file" rows="9" cols="50" style="vertical-align: middle" class="lv-rle" class="flow">
|
||||
<%== $rle %></textarea>
|
||||
<p>If the RLE is correct, it should be loaded in the Life Viewer, and so you are ready to go!</p>
|
||||
|
||||
<ul>
|
||||
<li><p>For best results with the Life Viewer, you may adjust the default Zoom and the playback speed, then press the Play button:</p>
|
||||
<canvas height=400 width=450></canvas></li>
|
||||
<canvas height=400 width=400></canvas></li>
|
||||
<li><p>Press "[Pause]" when it seems stable. </p>
|
||||
</li>
|
||||
</ul>
|
||||
@ -258,15 +304,16 @@ __DATA__
|
||||
|
||||
% if ($rle ne ""){
|
||||
<span>
|
||||
<p><strong> Share your wordle-life!</strong></p>
|
||||
<p> You can copy/paste the RLE into your favorite social media post or email</p>
|
||||
<p><em>OR</em></p>
|
||||
<p> Click this button to go to a share page where you can copy/paste the url to someone</p>
|
||||
<form id="life-share" name="life-share" action="<%== $ORIGIN_PAGE %>" method="GET" class="flow">
|
||||
<p><strong> Share your wordle-life!</strong>
|
||||
<p> You can copy/paste the RLE into your favorite social media post or email
|
||||
<br><em>OR</em><br>
|
||||
Click this button to go to a share page where you can copy/paste the URL to someone:</p>
|
||||
<textarea id="share-rle" name="<%= $WORDLE_INPUT_PARAM %>" rows="9" cols="50" style="display:none;">
|
||||
<%=$rle %></textarea>
|
||||
<input id="share-note" type="text" name="share-note" placeholder="Include a note, if you'd like" style="vertical-align: bottom">
|
||||
<%=$rle %>
|
||||
</textarea>
|
||||
<input type="submit" value="Go to sharing page">
|
||||
<input id="share-note" type="text" name="share-note" placeholder="Add a note if you'd like" style="vertical-align: bottom">
|
||||
</form>
|
||||
% };
|
||||
</span>
|
||||
@ -315,144 +362,41 @@ GRID
|
||||
|
||||
<p>
|
||||
|
||||
|
||||
<p>
|
||||
<p>
|
||||
|
||||
<hr 100%>
|
||||
<em>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</em>
|
||||
@@ about.html.ep
|
||||
<html>
|
||||
<head>
|
||||
<title>About Wordle-Life</title>
|
||||
|
||||
<p>
|
||||
Questions, kudos or comments, mail me @sdf.org
|
||||
<p>
|
||||
Thanks to the community at <a href="https://conwaylife.com">conwaylife.com</a>, and the friendly folks in the forums there,
|
||||
and for their <a href="https://conwaylife.com/wiki/Tutorials/LifeViewer_JavaScript_plug-in">Javascript Life Viewer</a>, which I use here.
|
||||
</p>
|
||||
|
||||
<p>
|
||||
Thanks to <a href="https://github.com/hankchizljaw/some-nice-basic-css"> hankchizljaw</a> for making his basic css publicly available
|
||||
</p>
|
||||
<p> Made in February 2022</p>
|
||||
<p>
|
||||
<center>
|
||||
Hosted by SDF.org
|
||||
<p><a href="https://sdf.org"><img src=https://mab.sdf.org/sdfbanner.png alt="SDF.org"></a>
|
||||
</center>
|
||||
</body></html>
|
||||
|
||||
|
||||
@@ viewer.html.ep
|
||||
<html>
|
||||
<head>
|
||||
<title>Play Conway's Life with your Wordle Score</title>
|
||||
|
||||
<link rel="stylesheet" href="https://peteyboy.freeshell.org/air.css">
|
||||
<meta name="LifeViewer" content="viewer textarea"> <!--required tag-->
|
||||
<script src="lv-plugin.js"></script>
|
||||
<link rel="stylesheet" href="https://unpkg.com/some-nice-basic-css/global.css" />
|
||||
<!-- <link rel="stylesheet" href="https://peteyboy.freeshell.org/air.css"> -->
|
||||
|
||||
</head>
|
||||
|
||||
<body><h1>Wordle->Life</h1>
|
||||
|
||||
|
||||
<p><em>Play your Wordle Share score in <a href=https://en.wikipedia.org/wiki/Conway%27s_Game_of_Life> Conway's Life!</a></em></p>
|
||||
<p>
|
||||
<p> Hey, nerds, isn't it funny how the Wordle Scores can look like a glider in that old computer programming exercise, Conway's Life?</p> <img src="https://conwaylife.com/w/images/e/e2/Lwss.png" alt="Glider image from Conwaylife.org, it looks like an 8-bit staple gun" align= float />
|
||||
|
||||
<ol>
|
||||
<li>
|
||||
<p> Paste your wordle share below and submit to convert it to a Conway's Life file so you can run it.</p>
|
||||
<p> To learn more about Conway's Life, read <a href=https://en.wikipedia.org/wiki/Conway%27s_Game_of_Life> this</a>
|
||||
</li>
|
||||
% my $home_path= "$ORIGIN_PAGE";
|
||||
% my $current_path = "$home_path?path_info=/about";
|
||||
|
||||
<p>
|
||||
<p> This is an about page. </p>
|
||||
|
||||
<p> Click <a href=<%== $home_path %> >here</a> to go Home </p>
|
||||
<p> Click <a href=<%== $current_path %> >here</a> to stay put </p>
|
||||
|
||||
<form id="wordle-form" name="wordle-form" action="<%== $ORIGIN_PAGE =%>" method="POST" class="flow">
|
||||
|
||||
<label for="wordle">Wordle Share Chart:</label>
|
||||
<textarea id="wordle" name="wordle-result" rows="9" cols="50" placeholder="<%== $defaulttext =%>" style="vertical-align: middle; border:none;">
|
||||
<%== $wordle %>
|
||||
</textarea>
|
||||
</p>
|
||||
<br>
|
||||
|
||||
|
||||
<li>
|
||||
<p>Click "Submit" and and RLE format file for Conway's Game of Life will appear below.</p>
|
||||
<input type="submit" value="Submit">
|
||||
</li>
|
||||
</ol>
|
||||
<label for="life">Your wordle as Conway Life RLE file:</label>
|
||||
<textarea id="life" name="Life file" rows="9" cols="50" style="vertical-align: middle; border:none;">
|
||||
<%== $rle %>
|
||||
</textarea>
|
||||
|
||||
|
||||
<!--viewer container-->
|
||||
<div class="viewer" class="flow">
|
||||
<div class="lv-buttons">
|
||||
<button onclick="document.getElementById('life').innerHTML=''">Clear</button>
|
||||
<button onclick="updateMe(this)">Show in Viewer</button>
|
||||
<!--the element that calls updateMe must be in the viewer container-->
|
||||
</div>
|
||||
<canvas height=400 width=600></canvas>
|
||||
</div>
|
||||
|
||||
<!--end viewer container-->
|
||||
|
||||
|
||||
</form>
|
||||
</div>
|
||||
<p> 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:
|
||||
<p>
|
||||
<pre code>
|
||||
#C Wordle 235 3/6
|
||||
x = 5,y = 3
|
||||
boobo$bobbo$ooooo$
|
||||
</pre code>
|
||||
|
||||
<p>For details about the Life RLE file format above, read <a href=https://conwaylife.com/wiki/Run_Length_Encoded>this</a>.
|
||||
|
||||
<p>
|
||||
<strong>Next steps:</strong>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<!-- not embedded -->
|
||||
|
||||
<ol>
|
||||
<li>copy the contents of the Conway Life box above
|
||||
<li>go to a Conway's Life site, such as <a href= https://copy.sh/life/> this one at copy.sh</a> or <a href="https://lazyslug.com/lifeviewer/">this one at lazyslug.com</a> and load and run your file.</li>
|
||||
<ol>
|
||||
<li> specifically for the one at copy.sh:</li>
|
||||
<li> Press the [Import] button at the top</li>
|
||||
<li> paste in your Life file contents in the box and press [Import]</li>
|
||||
<li> It will put up a box telling you it loaded your Wordle, press [OK]</li>
|
||||
<li> Press the [Run] button and watch your Wordle score play LIFE!</li>
|
||||
</ol>
|
||||
</ol>
|
||||
<p> 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!
|
||||
<p>
|
||||
|
||||
|
||||
<p>
|
||||
<p>
|
||||
|
||||
<hr 100%>
|
||||
<em>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</em>
|
||||
|
||||
<p>
|
||||
Questions, kudos or comments, mail me @sdf.org
|
||||
<p>
|
||||
Thanks to <a href="https://github.com/hankchizljaw/some-nice-basic-css"> hankchizljaw</a> for making his basic css publicly available
|
||||
|
||||
<p> Made in February 2022
|
||||
<p>
|
||||
<center>
|
||||
Hosted by SDF.org
|
||||
<p><a href="https://sdf.org"><img src=https://mab.sdf.org/sdfbanner.png alt="SDF.org"></a>
|
||||
Hosted by Bisect Hosting
|
||||
<p><a href="https://www.bisecthosting.com"><img src=https://www.bisecthosting.com/images/logos/logo.svg alt="bisecthosting.com" height= 10% width=auto></a>
|
||||
</center>
|
||||
|
||||
</body></html>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user