Adding --dryrun|-d option to assignphone and feide2sipuser

diff --git a/guc-clients/assignphone b/guc-clients/assignphone
index 074ab1fd8b32853453e6e17a898d7d0d4d68235e..91b10a9d32184f25b1736691e4664e0fd8be1235 100755 (executable)
--- a/guc-clients/assignphone
+++ b/guc-clients/assignphone
@@ -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, $sipuser, $mac);
 
@@ -27,6 +28,7 @@ GetOptions(
        "macaddress=s"  => \$mac,
        "username=s"    => \$username,
        "configfile=s"  => \$configfile,
+       "dryrun"        => \$dryrun,
 );
 
 if (
@@ -57,6 +59,7 @@ Verify that the following options are set:
        --configfile=s|--config|-c
        --username=s|--user|-u
        --macaddress=s|--mac|-m
+       --dryrun|--dry|-d
 
 Verify the contents of the configuration file.
 Verify that the key-file exists.
@@ -106,6 +109,12 @@ if ( not $data->{'response'} eq 'ok' )
        exit;
 }
 
+if ( $dryrun ) {
+       print("Dryrun specified. All OK so far, stopping before add.\n");
+       logout();
+       exit;
+}
+
 $data = exec_apinode("phone/add", { 'user' => $sipuser, 'mac' => $mac });
 
 printf("Failed to add phone+user, cause given: '%s'\n", $data->{'cause'})

diff --git a/guc-clients/feide2sipuser b/guc-clients/feide2sipuser
index 48e20c8a207c083b31a3c60c0b845a3b2e88fab7..5660c5e1b18ff9fbf5644a96e1135c8e25edcf3e 100755 (executable)
--- 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,