—#!/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