This is copying the mojo version to just wordle-life.cgi for the mojo
branch
This commit is contained in:
parent
0151070b58
commit
38585f0b71
264
wordle-life.cgi
264
wordle-life.cgi
@ -1,102 +1,91 @@
|
|||||||
#!/usr/pkg/bin/perl
|
#!/usr/bin/perl
|
||||||
#Above is the particular location for system binaries in SDF's metaarray, not the usual spot
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use utf8;
|
use utf8;
|
||||||
#add my user perl library path, this is particular to each person's setup
|
use Mojolicious::Lite -signatures;
|
||||||
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 Readonly;
|
||||||
use List::Util qw(first);
|
use List::Util qw(first);
|
||||||
|
use experimental 'smartmatch';
|
||||||
|
|
||||||
|
|
||||||
#===
|
#===
|
||||||
# MAKE SURE ORIGIN PAGE MATCHES FILENAME (especially if you are testing changes)!
|
# 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-mojo.cgi";
|
||||||
my $defaulttext = "Paste your wordle share here (replace this text)";
|
my $defaulttext = "Paste your wordle share here (replace this text)";
|
||||||
my $WORDLE_INPUT_PARAM = "wordle-result";
|
my $PATH_PARAM = "PATH_INFO";
|
||||||
my $SHARENOTE_PARAM = "share-note";
|
my $WORDLE_INPUT_PARAM = "wordle-result";
|
||||||
|
my $SHARENOTE_PARAM = "share-note";
|
||||||
|
|
||||||
cgi {
|
my $wordle;
|
||||||
|
my $rle = "";
|
||||||
|
my $isshare = 0; #flag for sharing, default false
|
||||||
|
my $sharenote = ""; #a note someone can tack onto their share
|
||||||
|
|
||||||
#error handler from the CGI:Tiny cookbook
|
get '/' => sub ($cgi) {
|
||||||
my $cgi = $_;
|
|
||||||
|
|
||||||
$cgi->set_error_handler(sub {
|
#if there are sharing query parameters put them in $wordle and activate share page logic
|
||||||
my ($cgi, $error, $rendered) = @_;
|
if (first { $_ eq $WORDLE_INPUT_PARAM } @{$cgi->req->query_params} ){
|
||||||
warn $error;
|
$wordle = $cgi->param($WORDLE_INPUT_PARAM);
|
||||||
unless ($rendered) {
|
|
||||||
if ($cgi->response_status_code == 413) {
|
|
||||||
$cgi->render(json => {error => 'Request body limit exceeded'});
|
|
||||||
}elsif ($cgi->response_status_code == 400) {
|
|
||||||
$cgi->render(json => {error => 'Bad request'});
|
|
||||||
} else {
|
|
||||||
$cgi->render(json => {error => 'Internal server error'});
|
|
||||||
}
|
|
||||||
}
|
|
||||||
});
|
|
||||||
|
|
||||||
my $wordle;
|
|
||||||
my $method = $cgi->method;
|
|
||||||
my $rle = "";
|
|
||||||
my $isshare = 0; #flag for sharing, default false
|
|
||||||
my $sharenote = ""; #a note someone can tack onto their share
|
|
||||||
|
|
||||||
#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
|
|
||||||
if ($method eq 'HEAD') {
|
|
||||||
$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} ){
|
|
||||||
$wordle = $cgi->query_param($WORDLE_INPUT_PARAM);
|
|
||||||
$isshare = 1; #true
|
$isshare = 1; #true
|
||||||
$sharenote = $cgi->query_param($SHARENOTE_PARAM);
|
$sharenote = $cgi->param($SHARENOTE_PARAM);
|
||||||
}else{
|
}else{
|
||||||
$wordle = $defaulttext;
|
$wordle = $defaulttext;
|
||||||
}
|
}
|
||||||
} elsif ($method eq 'POST') {
|
|
||||||
|
my $template_name = 'index';
|
||||||
|
$cgi->stash( WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, isshare => $isshare, sharenote => $sharenote );
|
||||||
|
$cgi->render(template => $template_name);
|
||||||
|
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
get '/*path_info' => sub ($cgi) {
|
||||||
|
my $template_name = $cgi->stash("path_info");
|
||||||
|
#TODO: Check against a list of valid templates!
|
||||||
|
#if ( grep ( /^$template_name$/, ('index', 'about') )) {
|
||||||
|
if ( $template_name ~~ ['about'] ) {
|
||||||
|
$cgi->stash( 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_name = 'index';
|
||||||
|
$cgi->stash( WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, isshare => $isshare, sharenote => $sharenote );
|
||||||
|
}
|
||||||
|
$cgi->render(template => $template_name);
|
||||||
|
};
|
||||||
|
|
||||||
|
post '/' => sub($cgi) {
|
||||||
#textarea name, pull the value from POST and reload into textarea
|
#textarea name, pull the value from POST and reload into textarea
|
||||||
$wordle = $cgi->body_param($WORDLE_INPUT_PARAM);
|
$wordle = $cgi->param($WORDLE_INPUT_PARAM);
|
||||||
#if input textarea not changed from default text, do nothing
|
#if input textarea not changed from default text, do nothing
|
||||||
unless ($wordle =~ /\Q$defaulttext\E/ or $wordle eq '') {
|
unless ($wordle =~ /\Q$defaulttext\E/ or $wordle eq '') {
|
||||||
#[Cc] /){ #cheat, if they put in something that looks like an RLE, pass output through
|
#if they put in something that looks like an RLE, pass output through, for share or to just use the life viewer
|
||||||
if ($wordle =~ /^#[Cc] /){
|
if ($wordle =~ /^#[Cc] /){
|
||||||
$rle = $wordle;
|
$rle = $wordle;
|
||||||
#if none of that, do the thing: generate RLE
|
#if none of that, do the thing: generate RLE
|
||||||
}else{
|
}else{
|
||||||
$rle = generate_rle($wordle);
|
$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 });
|
|
||||||
|
|
||||||
} else { #some other request? PUT, DELETE?
|
|
||||||
$cgi->set_response_status(405)->render;
|
|
||||||
exit;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
die "Invalid wordle parameter" unless length $wordle;
|
$cgi->stash( WORDLE_INPUT_PARAM => $WORDLE_INPUT_PARAM, ORIGIN_PAGE => $ORIGIN_PAGE, defaulttext => $defaulttext, wordle => $wordle, rle => $rle, isshare => $isshare, sharenote => $sharenote );
|
||||||
|
$cgi->render(template =>'index');
|
||||||
|
};
|
||||||
|
|
||||||
#Load template from DATA section and output
|
app->start;
|
||||||
#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});
|
|
||||||
|
|
||||||
$cgi->render(html => $output );
|
|
||||||
|
|
||||||
};
|
|
||||||
|
sub template_from_path_info {
|
||||||
|
my $template='';
|
||||||
|
my $path = shift;
|
||||||
|
if ($path =~ /^\//){
|
||||||
|
$template = $path;
|
||||||
|
$template =~ s/^.//;
|
||||||
|
$template =~ tr/\//./;
|
||||||
|
}
|
||||||
|
return $template;
|
||||||
|
}
|
||||||
|
|
||||||
#Try to Generate the RLE. Makes a lot of assumptions
|
#Try to Generate the RLE. Makes a lot of assumptions
|
||||||
sub generate_rle {
|
sub generate_rle {
|
||||||
@ -177,17 +166,21 @@ __DATA__
|
|||||||
<link rel="stylesheet" href="https://unpkg.com/some-nice-basic-css/global.css" />
|
<link rel="stylesheet" href="https://unpkg.com/some-nice-basic-css/global.css" />
|
||||||
|
|
||||||
<style>
|
<style>
|
||||||
.lv-rle{
|
.
|
||||||
|
lv-rle{
|
||||||
min-height:200px;
|
min-height:200px;
|
||||||
}
|
}
|
||||||
</style>
|
</style>
|
||||||
<meta name="LifeViewer" content="viewer textarea"> <!--required tag-->
|
<meta name="LifeViewer" content="viewer textarea"> <!--required tag-->
|
||||||
<script src="lv-plugin.js"></script>
|
<script src="/lv-plugin.js"></script>
|
||||||
|
|
||||||
</head>
|
</head>
|
||||||
|
|
||||||
<body><h1>Wordle->Life</h1>
|
<body>
|
||||||
|
<p align= left> <a href="/">back to Site Home</a>
|
||||||
|
</p>
|
||||||
|
|
||||||
|
<h1>Wordle->Life</h1>
|
||||||
|
<p align= right> <a href="<%=$ORIGIN_PAGE%>/about">about</a></p>
|
||||||
|
|
||||||
% if ($isshare) {
|
% if ($isshare) {
|
||||||
<span>
|
<span>
|
||||||
@ -315,144 +308,39 @@ GRID
|
|||||||
|
|
||||||
<p>
|
<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 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>
|
</body></html>
|
||||||
|
|
||||||
|
|
||||||
@@ viewer.html.ep
|
@@ about.html.ep
|
||||||
<html>
|
<html>
|
||||||
<head>
|
<head>
|
||||||
<title>Play Conway's Life with your Wordle Score</title>
|
<title>About Wordle-Life</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" />
|
||||||
</head>
|
</head>
|
||||||
|
|
||||||
<body><h1>Wordle->Life</h1>
|
<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>
|
||||||
<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 />
|
<p> This is an about page. </p>
|
||||||
|
|
||||||
<ol>
|
<p> Click <a href=<%== $ORIGIN_PAGE %>>here</a> to return to Wordle-Life page </p>
|
||||||
<li>
|
<p> Click <a href="/">here</a> to go to website Home</p>
|
||||||
<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>
|
|
||||||
|
|
||||||
<p>
|
<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%>
|
<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>
|
<em>Disclaimer: I made this! People and/or corporations may own their marks or copyrights, etc, on words mentioned on these pages I don't claim to</em>
|
||||||
|
|
||||||
<p>
|
|
||||||
Questions, kudos or comments, mail me @sdf.org
|
|
||||||
<p>
|
<p>
|
||||||
Thanks to <a href="https://github.com/hankchizljaw/some-nice-basic-css"> hankchizljaw</a> for making his basic css publicly available
|
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> Made in February 2022, revised April 2022 for this site, using Perl Mojolicious
|
||||||
<p>
|
<p>
|
||||||
<center>
|
<center>
|
||||||
Hosted by SDF.org
|
Hosted by Bisect Hosting
|
||||||
<p><a href="https://sdf.org"><img src=https://mab.sdf.org/sdfbanner.png alt="SDF.org"></a>
|
<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>
|
</center>
|
||||||
</body></html>
|
</body></html>
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user