peteyboy/wordle-life
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

-remove copypasta die error, it doesn't work here

Browse Source 
-if user blanks the textarea, put the default text back, thus handling bug where form 500s if the world-result is blank. Just in case, if the wordle-result is blank, fill it with the default text
This commit is contained in:
peteyboy 2022-02-17 02:24:40 +00:00
parent b4c1734d98
commit 0911066c20
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
wordle-life.cgi
View File

@ -49,8 +49,11 @@ use Readonly;
#$wordle = "";
} elsif ($method eq 'POST') {
#textarea name, pull the value from POST and reload into textarea
$wordle = $cgi->body_param('wordle-result');
if ( grep( /^wordle-result$/, $cgi->body_param_names) ) { #if no param exists, go down same path with default text as in GET case
$wordle = chomp($cgi->body_param('wordle-result'));
}else{
$wordle = $defaulttext;
}
#if input textarea not changed from default text, do nothing
unless ($wordle =~ /\Q$defaulttext\E/) {
#[Cc] /){ #cheat, if they put in something that looks like an RLE, pass output through
@ -67,8 +70,6 @@ use Readonly;
exit;
}
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 $template = data_section __PACKAGE__, 'index.html.ep';
@ -83,7 +84,7 @@ use Readonly;
sub generate_rle {
my $headline = "";
my $rleline;
my $rleline = "";
my $rowcount;
my $myline;