return error on invalid workload
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 13 Mar 2011 17:18:57 +0000 (18:18 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 13 Mar 2011 17:18:57 +0000 (18:18 +0100)
lib/APKPM/Davolink.pm

index 0413679..f258ce7 100644 (file)
@@ -19,6 +19,9 @@ sub info : Job : MinProcesses(1) : MaxProcesses(5) : Decode(d_array) : Encode(e_
        warn "# workload = ", dump $workload;
        my $cpeip = shift @$workload;
        my $username = shift @$workload;
+
+       return { error => "invalid workload", workload => $workload } unless $cpeip && $username;
+
        my $cpeconnect=H1::Davolink->new($cpeip,$self->config('iadusername'),$self->config('iadpasswd'));
        $cpeconnect->connect();
        my $ret = { ip => $cpeip, username => $username };