TT#8901 soundsets: add sounds file to package

* check soundfile path

Change-Id: I0698bf029e527b89cc561f69c079a8e46f6bd0ed

bin/create_soundsets.pl

@@ -71,11 +71,16 @@ sub manage_soundfiles
   {
     my $sf_data = $data->{sounds}->{$sf};
     my $filename = $sf_data->{filename};
+    my $filepath = abs_path($filename);
     $sf_data->{set_id} = $data->{id};
     $sf_data->{handle} = $sf;
     $sf_data->{filename} = basename($filename, '.wav');
-    $api->upload_soundfile($sf_data, abs_path($filename));
-    print "[$filename] uploaded\n";
+    if(-f $filepath) {
+      $api->upload_soundfile($sf_data, $filepath);
+      print "$filename at [$filepath] uploaded\n";
+    } else {
+      die("$filename at [$filepath] not found");
+    }
   }
   return;
 }

debian/install

@@ -6,3 +6,4 @@ run_tests.sh /usr/share/kamailio-config-tests/
 scenarios/ /usr/share/kamailio-config-tests/
 scenarios_lnp /usr/share/kamailio-config-tests/
 scenarios_pbx /usr/share/kamailio-config-tests/
+sounds /usr/share/kamailio-config-tests/

lib/Sipwise/API.pm

@@ -98,6 +98,9 @@ sub _do_binary_request {
 	my $req = HTTP::Request->new('POST', $url);
 	$req->header('Content-Type' => $ct);
 	$req->header('Prefer' => 'return=representation');
+	if(! -f $filename) {
+		die "$filename not found\n";
+	}
 	$req->content(read_file($filename));
 	my $res = $ua->request($req);
 	if(!$res->is_success) {

run_tests.sh

@@ -1,5 +1,5 @@
 #!/bin/bash
-RUN_DIR="$(dirname "$0")"
+RUN_DIR="$(pwd dirname "$0")"
 export BASE_DIR=${BASE_DIR:-$RUN_DIR}
 # Set up the environment, to use local perl modules
 export PERL5LIB="${BASE_DIR}/lib"