less log spam by default

Makefile.PL

@@ -17,6 +17,7 @@ requires 'Moose';
 requires 'namespace::autoclean';
 requires 'Config::General'; # This should reflect the config file format you've chosen
                  # See Catalyst::Plugin::ConfigLoader for supported formats
+requires 'Log::Log4perl::Catalyst';
 test_requires 'Test::More' => '0.88';
 catalyst;
 

lib/NGCP/Panel.pm

@@ -25,6 +25,7 @@ use Catalyst qw/
     Session::Store::FastMmap
     Session::State::Cookie
 /;
+use Log::Log4perl::Catalyst qw();
 
 extends 'Catalyst';
 
@@ -135,6 +136,8 @@ __PACKAGE__->config(
     }
 );
 
+__PACKAGE__->log(Log::Log4perl::Catalyst->new('ngcp_panel.conf'));
+
 # Start the application
 __PACKAGE__->setup();
 

lib/NGCP/Panel/Controller/Login.pm

@@ -38,7 +38,7 @@ sub index :Path Form {
     );
 
     if($form->validated) {
-        print ">>>>>> login form validated\n";
+        $c->log->debug("login form validated");
         my $user = $form->field('username')->value;
         my $pass = $form->field('password')->value;
         $c->log->debug("*** Login::index user=$user, pass=$pass, realm=$realm");

lib/NGCP/Panel/Widget/Plugin/AdminBillingOverview.pm

@@ -10,7 +10,7 @@ has 'template' => (
 around handle => sub {
     my ($foo, $self, $c) = @_;
 
-    print "++++ AdminBillingOverview::handle\n";
+    $c->log->debug("AdminBillingOverview::handle");
     return;
 };
 

lib/NGCP/Panel/Widget/Plugin/AdminPeeringOverview.pm

@@ -10,7 +10,7 @@ has 'template' => (
 around handle => sub {
     my ($foo, $self, $c) = @_;
 
-    print "++++ AdminPeeringOverview::handle\n";
+    $c->log->debug("AdminPeeringOverview::handle");
     return;
 };
 

lib/NGCP/Panel/Widget/Plugin/AdminResellerOverview.pm

@@ -10,7 +10,7 @@ has 'template' => (
 around handle => sub {
     my ($foo, $self, $c) = @_;
 
-    print "++++ AdminResellerOverview::handle\n";
+    $c->log->debug("AdminResellerOverview::handle");
     return;
 };
 

lib/NGCP/Panel/Widget/Plugin/AdminSystemOverview.pm

@@ -10,7 +10,7 @@ has 'template' => (
 around handle => sub {
     my ($foo, $self, $c) = @_;
 
-    print "++++ AdminSystemOverview::handle\n";
+    $c->log->debug("AdminSystemOverview::handle");
     return;
 };
 

lib/NGCP/Panel/Widget/Plugin/ResellerDomainOverview.pm

@@ -10,7 +10,7 @@ has 'template' => (
 around handle => sub {
     my ($foo, $self, $c) = @_;
 
-    print "++++ ResellerDomainOverview::handle\n";
+    $c->log->debug("ResellerDomainOverview::handle");
     return;
 };
 

ngcp_panel.conf

@@ -1,3 +1,11 @@
 # rename this file to ngcp::panel.yml and put a ':' after 'name' if
 # you want to use YAML like in old versions of Catalyst
 name NGCP::Panel
+
+log4perl.logger=INFO, Default
+log4perl.appender.Default=Log::Log4perl::Appender::Screen
+log4perl.appender.Default.stderr=0
+log4perl.appender.Default.utf8=1
+log4perl.appender.Default.layout=PatternLayout
+log4perl.appender.Default.layout.ConversionPattern=%d{ISO8601} [%p] [%F +%L] %m{chomp}%n
+# perhaps also add: host=%H pid=%P