# ok on 22/08/2019 with uim 9.0.2 # ok on 01/05/2021 with uim 20.3.3 hf1 use Nimbus::API; use strict; # my $username = "administrator"; # my $password = "xxxx"; # nimLogin($username, $password); my $pds_snd = pdsCreate(); pdsPut_PCH($pds_snd, "subject", "alarm"); # - strange enough this doesn't work if the pri is not set ?? pdsPut_INT($pds_snd, "pri", 5); pdsPut_PCH($pds_snd, "prid", "luc_probe"); pdsPut_PCH($pds_snd, "nimid", "2"); pdsPut_INT($pds_snd, "nimts", time()); pdsPut_PCH($pds_snd, "domain", "luc_domain"); pdsPut_PCH($pds_snd, "origin", "luc_origin"); pdsPut_PCH($pds_snd, "robot", "luc_robot"); pdsPut_PCH($pds_snd, "source", "luc_source"); pdsPut_PCH($pds_snd, "hostname", "luc_host"); my $udata = pdsCreate(); pdsPut_PCH($udata,"message","tstingthisperltosendmessageagainandagain"); #pdsPut_PCH($udata,"subsys","test"); pdsPut_INT($udata,"level",2); pdsPut_PDS($pds_snd,"udata",$udata); nimNamedRequest("spooler", "hubpost", $pds_snd, 10);