33 lines
675 B
Perl
33 lines
675 B
Perl
|
package Webhook2Ntfy;
|
||
|
|
use Mojo::Base 'Mojolicious', -signatures;
|
||
|
|
|
||
|
|
# This method will run once at server start
|
||
|
|
sub startup ($self) {
|
||
|
|
|
||
|
|
# Configure the application
|
||
|
|
$self->secrets($ENV{SECRETS});
|
||
|
|
|
||
|
|
my $webhook = $ENV{WEBHOOK_PATH};
|
||
|
|
|
||
|
|
if (!$webhook || length($webhook) == 0 )
|
||
|
|
{
|
||
|
|
$self->log->fatal("no webhook provided in WEBHOOK_PATH");
|
||
|
|
exit(-1);
|
||
|
|
}
|
||
|
|
elsif (length($webhook) < 20)
|
||
|
|
{
|
||
|
|
$self->log->fatal("please provide a more complex webhook path in WEBHOOK_PATH");
|
||
|
|
exit(-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
$self->log->info("using webhook path: " . $webhook);
|
||
|
|
|
||
|
|
# Router
|
||
|
|
my $r = $self->routes;
|
||
|
|
|
||
|
|
# Normal route to controller
|
||
|
|
$r->post($webhook)->to('Webhook#call');
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|