From 89d4e27bbebe26aed96832ae30b8a3c8f9a63e35 Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Tue, 21 Jan 2014 13:49:12 +0100
Subject: [PATCH] MT#5947 Add a way to use a wrong password for auth on the
 caller

---
 README          | 3 +++
 bin/scenario.pl | 5 +++++
 2 files changed, 8 insertions(+)

diff --git a/README b/README
index 3c7bc292..f6d8d124 100644
--- a/README
+++ b/README
@@ -151,6 +151,8 @@ scenario.yml file syntax:
 
   If foreign: yes then sipp_scenario_responderXX.xml will be run with 5060 port.
 
+  If password_wrong: yes then the caller is going to use 'wrongpass' as password.
+
   Example:
 
   subscribers:
@@ -184,6 +186,7 @@ scenario.yml file syntax:
       username: testuser1003
       domain: spce.test
       proto: udp
+      password_wrong: yes
       responders:
         - ip: 127.126.0.1                --> sipp_scenario_responder01.xml
           username: testuser1002
diff --git a/bin/scenario.pl b/bin/scenario.pl
index 132a35dd..cb09d492 100755
--- a/bin/scenario.pl
+++ b/bin/scenario.pl
@@ -119,6 +119,11 @@ sub generate
         $_->{password} = "" unless defined($_->{password});
         # by default proto is udp
         $_->{proto} = "udp" unless defined($_->{proto});
+        $_->{password_wrong} = "no" unless defined($_->{password_wrong});
+        if($_->{password_wrong} eq "yes")
+        {
+            $_->{password} = "wrongpass";
+        }
         my $auth   = "[authentication username=$_->{username} password=$_->{password}]";
         my $csv_data = [$_->{username}, $auth, $_->{domain}];
         $csv->{caller}->print($io_caller, $csv_data);