#!/var/www/p.hashbang.ca/perl5/perls/perl-5.14.2/bin/perl #!/usr/bin/env perl use strict; use warnings; our $VERSION = '0.004'; # VERSION # PODNAME: pastebin # ABSTRACT: init script for WWW::Hashbang::Pastebin use Daemon::Control; $ENV{USER} = 'www-data'; $ENV{PATH} = '/usr/bin:/usr/local/bin'; $ENV{PLACK_ENV} = 'production'; $ENV{PLACK_SERVER} = 'Starman'; Daemon::Control->new({ name => 'pastebin', program => '/var/www/p.hashbang.ca/perl5/perls/perl-5.14.2/bin/plackup', program_args=> [ '-l' => '/tmp/pastebin.sock', # '-D', '-a' => '/var/www/p.hashbang.ca/WWW-Hashbang-Pastebin/bin/app.pl', ], fork => 2, uid => scalar getpwnam('www-data'), gid => scalar getgrnam('www-data'), pid_file => '/var/run/pastebin.pid', stdout_file => '/var/log/pastebin.log', stderr_file => '/var/log/pastebin.log', lsb_start => '$nginx', lsb_stop => '$nginx', lsb_sdesc => 'Starts WWW::Hashbang::Pastebin under plackup+Starman', lsb_desc => 'Starts WWW::Hashbang::Pastebin under plackup+Starman', })->run; __END__ =pod =encoding utf-8 =head1 NAME pastebin - init script for WWW::Hashbang::Pastebin =head1 VERSION version 0.004 =head1 SYNOPSIS pastebin [start|stop|restart|status] =for test_synopsis 1; __END__ =head1 AVAILABILITY The project homepage is L<http://metacpan.org/release/WWW-Hashbang-Pastebin/>. The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit L<http://www.perl.com/CPAN/> to find a CPAN site near you, or see L<https://metacpan.org/module/WWW::Hashbang::Pastebin/>. =head1 SOURCE The development version is on github at L<http://github.com/doherty/WWW-Hashbang-Pastebin> and may be cloned from L<git://github.com/doherty/WWW-Hashbang-Pastebin.git> =head1 BUGS AND LIMITATIONS You can make new bug reports, and view existing ones, through the web interface at L<https://github.com/doherty/WWW-Hashbang-Pastebin/issues>. =head1 AUTHOR Mike Doherty <doherty@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2012 by Mike Doherty. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut