fill out app

database
config
deploy
schema
cli
proof of dhcpd

Author: purge

bin/pa

@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+
+use lib './lib';
+use PeopleAPI::App::CLI;
+PeopleAPI::App::CLI->run;

dhcpd.pl

@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+use strict;
+use POE;
+use POE::Component::DHCP::Monitor;
+use Net::DHCP::Packet;
+
+$|=1;
+
+POE::Session->create(
+  inline_states => {
+    _start              => \&_start,
+    dhcp_monitor_packet => \&dhcp_monitor_packet,
+    _default            => \&_default,
+  },
+);
+
+$poe_kernel->run();
+exit 0;
+
+sub _start {
+  my ($kernel,$heap) = @_[KERNEL,HEAP];
+  $heap->{monitor} = 
+  POE::Component::DHCP::Monitor->spawn(
+    alias => 'monitor',       # optional
+    port1  => 67, 		  # default shown
+    port2  => 68,		  # default shown
+    #address => '192.168.1.1', # default is INADDR_ANY
+  );
+  return;
+}
+
+sub dhcp_monitor_packet {
+  my ($kernel,$heap,$packet) = @_[KERNEL,HEAP,ARG0];
+  print STDOUT $packet->toString();
+  print STDOUT "=============================================================================\n";
+  return;
+}
+
+sub _default {
+   my ($event, $args) = @_[ARG0 .. $#_];
+   my @output = ( "$event: " );
+
+   for my $arg (@$args) {
+       if ( ref $arg eq 'ARRAY' ) {
+           push( @output, '[' . join(', ', @$arg ) . ']' );
+       }
+       else {
+           push ( @output, "'$arg'" );
+       }
+   }
+   print join ' ', @output, "\n";
+   return;
+}

etc/conf/peopleapi_purge.conf

@@ -0,0 +1,5 @@
+<Model::Database>
+  <connect_info>
+    dsn dbi:SQLite:dbname=share/db/peopleapi
+  </connect_info>
+</Model::Database>

lib/PeopleAPI/App/CLI.pm

@@ -0,0 +1,5 @@
+package PeopleAPI::App::CLI;
+use App::Cmd::Setup -app => {
+  plugins => [ qw(Prompt) ],
+};
+1;

lib/PeopleAPI/App/CLI/Command/Deploy.pm

@@ -0,0 +1,26 @@
+package PeopleAPI::App::CLI::Command::Deploy;
+use PeopleAPI::App::CLI -command;
+use Try::Tiny;
+use PeopleAPI::Database::Script;
+
+sub validate_args {
+  my ($self, $opt, $args) = @_;
+  $self->usage_error("no args expected") if @$args;
+}
+
+sub execute {
+  my ($self, $opt, $args) = @_;
+
+  my $script = PeopleAPI::Database::Script->new;
+  my $schema = $script->schema->clone;
+
+  $schema->deploy({ add_drop_table => 1 });
+  $self->populate_data($schema);
+}
+
+sub populate_data {
+  my ($self,$schema) = @_;
+  
+}
+
+1;

lib/PeopleAPI.pm lib/PeopleAPI/App/Web.pmlib/PeopleAPI.pm renamed to lib/PeopleAPI/App/Web.pm

@@ -1,4 +1,4 @@
-package PeopleAPI;
+package PeopleAPI::App::Web;
 
 use v5.14.0;
 use Web::Simple;
@@ -16,7 +16,7 @@ sub dispatch_request {
   }
 }
 
-sub get_hosts {
+sub get_hosts_arp {
   my @alive;
   for my $cd (2..254) {
     my $p = Net::Ping->new('syn');

lib/PeopleAPI/Database/Candy.pm

@@ -0,0 +1,9 @@
+package PeopleAPI::Database::Candy;
+
+use base 'DBIx::Class::Candy';
+
+sub base { $_[1] || 'PeopleAPI::Database::Schema::Result' }
+sub perl_version { 12 }
+sub autotable { 1 }
+
+1;

lib/PeopleAPI/Database/Schema.pm

@@ -0,0 +1,6 @@
+package PeopleAPI::Database::Schema;
+use base qw/DBIx::Class::Schema/;
+
+__PACKAGE__->load_namespaces();
+
+1;

lib/PeopleAPI/Database/Schema/Result.pm

@@ -0,0 +1,7 @@
+package PeopleAPI::Database::Schema::Result;
+
+use parent 'DBIx::Class::Core';
+
+__PACKAGE__->load_components(qw/Helper::Row::RelationshipDWIM/);
+sub default_result_namespace { 'PeopleAPI::Database::Schema::Result' }
+1;

lib/PeopleAPI/Database/Schema/Result/Seen.pm

@@ -0,0 +1,27 @@
+package PeopleAPI::Database::Schema::Result::Seen;
+
+use PeopleAPI::Database::Candy
+  -components => [qw/ EncodedColumn UUIDColumns 
+                      InflateColumn::DateTime TimeStamp/];
+
+column 'email' => {
+  data_type => 'varchar',
+  size => 100,
+  is_nullable => 1,
+};
+
+column 'mac' => {
+  data_type => 'varchar',
+  size      => 100
+};
+
+column 'ip' => {
+  data_type => 'varchar',
+  size      => 100
+};
+
+column 'last_seen' => {
+  'data_type'     => 'datetime',
+  'set_on_create' => 0,
+  'set_on_update' => 1,
+};