From 023a4ff0ecb1a50292872ea7b13f4cb0150d35d8 Mon Sep 17 00:00:00 2001
From: Christian Veigl <cveigl@sipwise.com>
Date: Mon, 12 Mar 2012 08:55:16 +0000
Subject: [PATCH] enforce billing profile name limit (mantis:969)

---
 lib/admin/Controller/billing.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/admin/Controller/billing.pm b/lib/admin/Controller/billing.pm
index 6e2ed26..78b0c43 100644
--- a/lib/admin/Controller/billing.pm
+++ b/lib/admin/Controller/billing.pm
@@ -262,6 +262,10 @@ sub do_edit_bilprof : Local {
     $settings{interval_unit} = $c->request->params->{interval_unit} || 'month';
     $settings{interval_count} = $c->request->params->{interval_count} || 1;
 
+    if (length $settings{name} > 31) {
+        $messages{name} = 'Client.Syntax.ProfileNameTooLong';
+    }
+
     $settings{interval_charge} = $c->request->params->{interval_charge};
     if(length $settings{interval_charge}) {
         if($settings{interval_charge} =~ /^[+]?\d+(?:[.,]\d\d?)?$/) {