logbot-hypnotoad 578 B

12345678910111213141516171819202122232425
  1. #!/usr/bin/perl
  2. use local::lib;
  3. use v5.10;
  4. use strict;
  5. use warnings;
  6. use FindBin qw( $RealBin );
  7. use lib "$RealBin/lib";
  8. BEGIN { $ENV{TZ} = 'UTC' }
  9. use Mojo::Server::Hypnotoad ();
  10. use Mojo::Util qw( getopt );
  11. #<<<
  12. getopt
  13. 'redirector' => \$ENV{LOGBOT_REDIRECT},
  14. 'default=s' => \$ENV{LOGBOT_DEFAULT_NETWORK},
  15. 'pid-file=s' => \$ENV{LOGBOT_PID_FILE},
  16. 'listen-port=i' => \$ENV{LOGBOT_PORT},
  17. 'stop' => \$ENV{HYPNOTOAD_STOP};
  18. #>>>
  19. chdir($RealBin);
  20. Mojo::Server::Hypnotoad->new->run($ENV{LOGBOT_REDIRECT} ? 'logbot-redirect' : 'logbot-web');