make an App::Netdisco dist using Module::Install
This commit is contained in:
@@ -1 +0,0 @@
|
||||
../config.yml
|
||||
@@ -1,12 +1,13 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
use FindBin;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
use App::Netdisco;
|
||||
|
||||
use Dancer ':script';
|
||||
use Dancer::Plugin::DBIC 'schema';
|
||||
|
||||
use Netdisco::DB;
|
||||
use App::Netdisco::DB;
|
||||
use Getopt::Long;
|
||||
|
||||
=head1 nd-dbic-versions
|
||||
@@ -22,10 +23,7 @@ specification.
|
||||
|
||||
=cut
|
||||
|
||||
schema('netdisco')->create_ddl_dir(
|
||||
'PostgreSQL', $version, $sql_dir, $preversion );
|
||||
|
||||
my $sql_dir = $Netdisco::DB::schema_versions_dir;
|
||||
my $sql_dir = $App::Netdisco::DB::schema_versions_dir;
|
||||
my $version = schema('netdisco')->schema_version;
|
||||
|
||||
my ( $preversion, $help );
|
||||
@@ -49,3 +47,7 @@ $sql_dir
|
||||
ENDHELP
|
||||
exit(1);
|
||||
};
|
||||
|
||||
schema('netdisco')->create_ddl_dir(
|
||||
'PostgreSQL', $version, $sql_dir, $preversion );
|
||||
|
||||
|
||||
@@ -1,5 +1,9 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use FindBin;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
use App::Netdisco;
|
||||
|
||||
use Dancer qw/:moose :script/;
|
||||
use Dancer::Plugin::DBIC 'schema';
|
||||
|
||||
@@ -61,7 +65,7 @@ sub gd_run_body {
|
||||
|
||||
$pp->start(sub {
|
||||
print STDERR ">>> new $next_role worker starting...\n";
|
||||
with "Netdisco::Daemon::Worker::$next_role";
|
||||
with "App::Netdisco::Daemon::Worker::$next_role";
|
||||
$gd->worker_begin if $gd->can('worker_begin');
|
||||
$gd->worker_body;
|
||||
$gd->worker_end if $gd->can('worker_end');
|
||||
|
||||
@@ -1,7 +1,8 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
use FindBin;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
use App::Netdisco;
|
||||
|
||||
use Dancer ':script';
|
||||
use Dancer::Plugin::DBIC 'schema';
|
||||
|
||||
@@ -1,5 +1,9 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use FindBin;
|
||||
use lib "$FindBin::Bin/../lib";
|
||||
use App::Netdisco;
|
||||
|
||||
use Dancer;
|
||||
use Netdisco::Web;
|
||||
use App::Netdisco::Web;
|
||||
dance;
|
||||
|
||||
Reference in New Issue
Block a user