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

Implement uh... try/catch sorta

Browse source
This commit is contained in:
swagg boi 2022-07-22 13:10:18 -04:00
parent 9c847637d2
commit 8c78834b61
1 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
guestbook-ng.pl
View file

@ -94,20 +94,26 @@ any [qw{GET POST}], '/sign' => sub ($c) {
elsif (app->mode() eq 'production' && -s '.tom.url') { elsif (app->mode() eq 'production' && -s '.tom.url') {
my ($new_message_id, $url_file, $url, $webhook); my ($new_message_id, $url_file, $url, $webhook);
$new_message_id = $c->message->get_last_message_id(); eval {
$new_message_id = $c->message->get_last_message_id();
open($url_file, '.tom.url') || die "$@"; open($url_file, '.tom.url');
chomp($url = <$url_file>); chomp($url = <$url_file>);
$webhook = WebService::Discord::Webhook->new( $webhook = WebService::Discord::Webhook->new(
url => $url, url => $url,
verify_SSL => 1 verify_SSL => 1
); );
$webhook->execute( $webhook->execute(
'content', 'content',
"https://guestbook.swagg.net/message/$new_message_id" "https://guestbook.swagg.net/message/$new_message_id"
); );
} or do {
$@ //= 'unknown error';
say "WEBHOOK URL $url FAILED: $@";
}
} }
return $c->redirect_to(page => {page => 'view'}); return $c->redirect_to(page => {page => 'view'});