347 lines
11 KiB
Perl
Executable File
347 lines
11 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use Mojolicious::Lite -signatures;
|
|
use Readonly;
|
|
use List::Util qw(first);
|
|
use experimental 'smartmatch';
|
|
|
|
|
|
#===
|
|
# MAKE SURE ORIGIN PAGE MATCHES FILENAME (especially if you are testing changes)!
|
|
#
|
|
#===
|
|
my $ORIGIN_PAGE = "/cgi-bin/wordle-life-mojo.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";
|
|
|
|
my $wordle;
|
|
my $rle = "";
|
|
my $isshare = 0; #flag for sharing, default false
|
|
my $sharenote = ""; #a note someone can tack onto their share
|
|
|
|
get '/' => sub ($cgi) {
|
|
|
|
#if there are sharing query parameters put them in $wordle and activate share page logic
|
|
if (first { $_ eq $WORDLE_INPUT_PARAM } @{$cgi->req->query_params} ){
|
|
$wordle = $cgi->param($WORDLE_INPUT_PARAM);
|
|
$isshare = 1; #true
|
|
$sharenote = $cgi->param($SHARENOTE_PARAM);
|
|
}else{
|
|
$wordle = $defaulttext;
|
|
}
|
|
|
|
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
|
|
$wordle = $cgi->param($WORDLE_INPUT_PARAM);
|
|
#if input textarea not changed from default text, do nothing
|
|
unless ($wordle =~ /\Q$defaulttext\E/ or $wordle eq '') {
|
|
#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] /){
|
|
$rle = $wordle;
|
|
#if none of that, do the thing: generate RLE
|
|
}else{
|
|
$rle = generate_rle($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');
|
|
};
|
|
|
|
app->start;
|
|
|
|
|
|
|
|
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
|
|
sub generate_rle {
|
|
|
|
my $headline = "";
|
|
my $rleline = "";
|
|
my $rowcount;
|
|
my $myline;
|
|
|
|
Readonly my $headline_prefix => "#C "; #Part of RLE spec https://conwaylife.com/wiki/Run_Length_Encoded
|
|
Readonly my $row_prefix => "x = 5"; #for wordle always 5
|
|
Readonly my $col_prefix => ",y = ";
|
|
Readonly my $lifeviewer_settings => "\n[[\n GPS 3\n ZOOM 23\n COLOR ALIVE LIME\n COLOR BACKGROUND MIDNIGHTBLUE\n STOP 100\n GRID\n]]"; #Part of Viewer Spec
|
|
#Readonly my $lifeviewer_settings => "\n[[\n GPS 3\n ZOOM 23\n THEME INVERSE\n STOP 100\n GRID\n]]"; #Part of Viewer Spec
|
|
|
|
my $wordle = shift; # this is how you get variables in your function call!
|
|
$rowcount = 0;
|
|
|
|
my @lines = split /^/, $wordle;
|
|
foreach $myline (@lines) {
|
|
chomp($myline);
|
|
if ($headline eq "" && $myline =~ /Wordle/){
|
|
$headline = $headline_prefix . $myline;
|
|
}else{
|
|
|
|
#remove all line endings with magic perl identifier R
|
|
$myline =~ s/\R//;
|
|
$myline =~ s/^(.*)$/$1\$/;
|
|
#these replaces are logicless, so they need to be done in this order!
|
|
|
|
#in case of text mode (Discord)
|
|
$myline =~ s/:yellow_square:/o/g;
|
|
$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/:[a-z_]*square:/b/g;
|
|
# for normal unicode
|
|
$myline =~ s/\N{U+1f7e8}/o/g; #yellow hit
|
|
$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+2B1B}/b/g; #black
|
|
$myline =~ s/\N{U+2B1C}/b/g; #white
|
|
|
|
#broken copy/paste text
|
|
$myline =~ s/black_large_square/b/g;
|
|
$myline =~ s/white_large_square/b/g;
|
|
$myline =~ s/yellow_square/o/g;
|
|
$myline =~ s/green_square/o/g;
|
|
$myline =~ s/blue_square/o/g;
|
|
$myline =~ s/orange_square/o/g;
|
|
|
|
|
|
|
|
#skip blank lines, count rows added
|
|
if(length($myline) > 1){
|
|
$rowcount += 1;
|
|
$rleline= $rleline . $myline;
|
|
}
|
|
}
|
|
}
|
|
#this is the format with b,o, and $. Done lazily because I don't compress the repeated b or o.
|
|
$rleline =~ s/\$$/\!/; #Correct termination of last line of RLE is !, not $, so replace it.
|
|
return "$headline\n$row_prefix$col_prefix$rowcount\n$rleline\n$lifeviewer_settings";
|
|
}
|
|
|
|
|
|
__DATA__
|
|
@@ index.html.ep
|
|
<html>
|
|
<head>
|
|
<title>Play Conway's Life with your Wordle Score</title>
|
|
|
|
<link rel="stylesheet" href="https://unpkg.com/some-nice-basic-css/global.css" />
|
|
|
|
<style>
|
|
.
|
|
lv-rle{
|
|
min-height:200px;
|
|
}
|
|
</style>
|
|
<meta name="LifeViewer" content="viewer textarea"> <!--required tag-->
|
|
<script src="/lv-plugin.js"></script>
|
|
</head>
|
|
|
|
<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) {
|
|
<span>
|
|
<h3> Hey, someone wants to share their Wordle->Life score with you!</h3>
|
|
%if ($sharenote){
|
|
<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>
|
|
%}else{
|
|
<span>
|
|
<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>
|
|
</span>
|
|
% };
|
|
|
|
|
|
<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 (to learn more about Conway's Life, read <a href=https://en.wikipedia.org/wiki/Conway%27s_Game_of_Life> this)</a>.</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="12" cols="50" placeholder="<%== $defaulttext %>" style="vertical-align: middle" class="lv-rle" class="flow">
|
|
<%== $wordle %></textarea>
|
|
</p>
|
|
<br>
|
|
</li>
|
|
<li>
|
|
<p>Click "Submit" and an RLE format file made for Conway's Game of Life will appear in the box below and get loaded into the Life Viewer.</p>
|
|
<input type="submit" value="Submit">
|
|
|
|
</li>
|
|
<li>
|
|
<p>Watch your Wordle score play LIFE!</p>
|
|
<!--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>
|
|
</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">
|
|
<%== $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>
|
|
<li><p>Press "[Pause]" when it seems stable. </p>
|
|
</li>
|
|
</ul>
|
|
</div>
|
|
</li>
|
|
</ol>
|
|
<!--end viewer container-->
|
|
|
|
</form>
|
|
<p>
|
|
|
|
<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 runs the coolest!
|
|
|
|
<p>
|
|
|
|
|
|
|
|
% if ($rle ne ""){
|
|
<span>
|
|
<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">
|
|
<input type="submit" value="Go to sharing page">
|
|
</form>
|
|
% };
|
|
</span>
|
|
</p>
|
|
|
|
|
|
<p>
|
|
<strong>If it doesn't seem to be working:</strong>
|
|
<ol>
|
|
<li><p> If there is extra text or lines in your paste, you might not get a valid file in the box above, 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!
|
|
|
|
[[
|
|
GPS 3
|
|
ZOOM 23
|
|
COLOR ALIVE LIME
|
|
COLOR BACKGROUND BLUE
|
|
STOP 100
|
|
GRID
|
|
]]
|
|
|
|
|
|
</pre code>
|
|
|
|
<p>(the main thing that needs to be right are the first 3 lines. If the 3rd line has any colon <strong> :</strong> symbols, just try deleting them. The stuff between double brackets aren't part of the RLE but are comments that set some defaults for the Life Viewer)</p>
|
|
<p>For details about the Life RLE file format above, read <a href=https://conwaylife.com/wiki/Run_Length_Encoded>this</a>.</p>
|
|
|
|
</li>
|
|
|
|
<li>You can also copy the contents of the Conway Life box above and try it somewhere else:
|
|
<ol>
|
|
<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>
|
|
</ol>
|
|
|
|
<p>
|
|
|
|
</body></html>
|
|
|
|
|
|
@@ about.html.ep
|
|
<html>
|
|
<head>
|
|
<title>About Wordle-Life</title>
|
|
|
|
<link rel="stylesheet" href="https://unpkg.com/some-nice-basic-css/global.css" />
|
|
</head>
|
|
|
|
<body><h1>Wordle->Life</h1>
|
|
|
|
|
|
<p>
|
|
<p> This is an about page. </p>
|
|
|
|
<p> Click <a href=<%== $ORIGIN_PAGE %>>here</a> to return to Wordle-Life page </p>
|
|
<p> Click <a href="/">here</a> to go to website Home</p>
|
|
|
|
<p>
|
|
|
|
<hr 100%>
|
|
<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>
|
|
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, revised April 2022 for this site, using Perl Mojolicious
|
|
<p>
|
|
<center>
|
|
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>
|
|
|