X-Git-Url: https://git.defcon.no/?a=blobdiff_plain;f=guc-clients%2Ffeide2sipuser;h=5660c5e1b18ff9fbf5644a96e1135c8e25edcf3e;hb=1fded126d8c419e3c1d07889c2d3d7808c747edc;hp=48e20c8a207c083b31a3c60c0b845a3b2e88fab7;hpb=87cde98c94c33708506b8e94db43726393df5dfa;p=hermes

diff --git a/guc-clients/feide2sipuser b/guc-clients/feide2sipuser
index 48e20c8..5660c5e 100755
--- a/guc-clients/feide2sipuser
+++ b/guc-clients/feide2sipuser
@@ -14,6 +14,7 @@ my $api_key;
 my $help;
 my $username;
 my $configfile;
+my $dryrun = 0;
 my ($g_ua, $session, $api_key, $auth_key, $data, $domain);
 my ($user, $displayname, $phone, $mail, $sipuser, $linetext);
 
@@ -34,6 +35,7 @@ GetOptions(
 	"help"		=> \$help,
 	"username=s"  	=> \$username,
 	"configfile=s" 	=> \$configfile,
+	"dryrun" 	=> \$dryrun,
 );
 
 if (
@@ -62,6 +64,7 @@ print <<END_HELP;
 Verify that the following options are set:
 	--configfile=s
 	--username=s
+	--dryrun
 
 Verify the contents of the configuration file.
 Verify that the key-file exists.
@@ -133,6 +136,7 @@ $g_ua->cookie_jar({}); # In-memory jar, look at HTTP::Cookies for persistant
 
 login_apikey();
 
+
 $data = exec_apinode("user/available", { "user" => $sipuser });
 if ( not $data->{'response'} eq 'ok' )
 {
@@ -141,6 +145,12 @@ if ( not $data->{'response'} eq 'ok' )
 }
 undef $data;
 
+if ( $dryrun ) {
+	print("Dryrun specified. All OK so far, stopping before add.\n");
+	logout();
+	exit;
+}
+
 $data = exec_apinode("user/add_local", { 
 	"user" => $sipuser,
 	"displayname" => $displayname,