diff --git a/bin/create_soundsets.pl b/bin/create_soundsets.pl index 04e44ca3..e69529bc 100755 --- a/bin/create_soundsets.pl +++ b/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; } diff --git a/debian/install b/debian/install index f57295ab..ae344abe 100644 --- a/debian/install +++ b/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/ diff --git a/lib/Sipwise/API.pm b/lib/Sipwise/API.pm index 65901835..40de6f30 100644 --- a/lib/Sipwise/API.pm +++ b/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) { diff --git a/run_tests.sh b/run_tests.sh index 36e0fc56..5597cc23 100755 --- a/run_tests.sh +++ b/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"