swaggboi/guestbook-ng
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Check for presence of the webhook URL dotfile

Browse source
This commit is contained in:
swagg boi 2022-07-21 23:58:41 -04:00
parent 83205cdb00
commit 629b3406ac
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guestbook-ng.pl
View file

@ -9,7 +9,7 @@ use List::Util qw{shuffle};
use Regexp::Common qw{URI};
use Number::Format qw{format_number};
use WebService::Discord::Webhook;
#use Data::Dumper; # Uncomment for debugging
use Data::Dumper; # Uncomment for debugging
# Load the model
use lib 'lib';
@ -85,9 +85,16 @@ any [qw{GET POST}], '/sign' => sub ($c) {
$c->stash(status => 400)
}
else {
$c->message->create_post($name, $message, $url, $spam);
my $blah =
$c->message->create_post($name, $message, $url, $spam);
say Dumper $blah;
$c->flash(error => 'This message was flagged as spam') if $spam;
if ($spam) {
$c->flash(error => 'This message was flagged as spam')
}
elsif (-s '.tom.url') {
say 'do stuff here...'
}
return $c->redirect_to(page => {page => 'view'});
}