fail early of no sau serverid

diff --git a/lib/APKPM/VOICE.pm b/lib/APKPM/VOICE.pm
index 69aaad3..65d2946 100644 (file)
--- a/lib/APKPM/VOICE.pm
+++ b/lib/APKPM/VOICE.pm
@@ -30,6 +30,8 @@ sub info : Job : MinProcesses(1) : MaxProcesses(5) : Encode(e_json) {
                my %sru = $voice->searchSRU($broj);
        warn "# SRU ",dump( %sru );
 
+       return { broj => $workload, error => "no serverid" } unless defined $sru{serverid};
+
        $voice->connectSAU( $sau->[ $sru{serverid} ] );
         my %sau = $voice->searchSAU($sru{alias});