From f2b57291bae3227735213b53227fca423ef9333d Mon Sep 17 00:00:00 2001
From: Andreas Granig <agranig@sipwise.com>
Date: Thu, 26 Sep 2013 16:36:37 +0200
Subject: [PATCH] Only allow subscriber logins from active accounts.

---
 lib/NGCP/Panel/Controller/Login.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/NGCP/Panel/Controller/Login.pm b/lib/NGCP/Panel/Controller/Login.pm
index d4d0628931..5992183b14 100644
--- a/lib/NGCP/Panel/Controller/Login.pm
+++ b/lib/NGCP/Panel/Controller/Login.pm
@@ -76,7 +76,6 @@ sub index :Path Form {
                 }, 
                 $realm);
         } elsif($realm eq 'subscriber') {
-            # TODO: check for lock status?
             my ($u, $d) = split /\@/, $user;
             unless($d) {
                 $d = $c->req->uri->host;
@@ -85,8 +84,9 @@ sub index :Path Form {
                 webusername => $u,
                 webpassword => $pass,
                 'domain.domain' => $d,
+                'contract.status' => 'active',
             }, {
-                join => 'domain',
+                join => ['domain', 'contract'],
             });
             $res = $c->authenticate(
                 {