Hi,

there is no generic function in Assure1::Core or Assure1::Config libraries and RunScript do not automatically fill the $AppConfig structure for you. The blackbox binaries which use the rules are filling the AppConfig themselves.

We have created our own library for it. Feel free to use it.

package TSP::Params;


#title           :Params.pm

#description     :Module adding GetJobParams and GetServices Params functions.

#author          :tomas.nekolny@tspdata.cz

#date            :2025-06-01

#version         :1.0

#notes           :Read comments or ask author about more information.#

#==============================================================================


use strict;

use warnings;

use Exporter 'import';

use Assure1::Core;

use Getopt::Long;

use Data::Dumper;  # optionally for debugging


our @EXPORT_OK = qw(GetJobParams GetServiceParams);


# Exported function:

# GetParams(dbh => $dbh, log => $log)

# Returns: hashref with config params

sub _get_params {

    my ($type, %args) = @_;

    my $dbh = $args{dbh} or die "GetParams requires a 'dbh' DB handle";

    my $log = $args{log};  # optional logging object

    my $Config = $args{Config}; # configuration objects


    # Parse -c parameter only once

    my $cvalue;

    # GetOptions modifies @ARGV, so do it here exactly once

    GetOptions('c=s' => \$cvalue) or die "Invalid command line arguments";


    unless (defined $cvalue) {

        die "Missing required -c parameter";

    }


    my $sqlquery = qq{

        SELECT

            bact.BrokerApplicationConfigName,

            bjc.BrokerApplicationConfigValue,

            prt.RenderTypeName

        FROM

            Broker${type}Configs bjc

        JOIN

            BrokerApplicationConfigTypes bact

              ON bjc.BrokerApplicationConfigTypeID = bact.BrokerApplicationConfigTypeID

        JOIN

            PropertyRenderTypes prt

              ON bact.RenderTypeID = prt.RenderTypeID

        WHERE

            bjc.Broker${type}ID = ?

    };


    # Here call your ExecuteQuery function; adjust if it's in a specific package

    my ($ErrorFlag, $Message, $Results) = ExecuteQuery({

        Query     => $sqlquery,

        Arguments => [$cvalue],

        Schema    => 'Assure1',

        Shards    => 0,

        DBH       => $dbh,        # pass DB handle if ExecuteQuery uses it

    });


    if ($ErrorFlag) {

        # Log the error if log object provided

        $log->Message('INFO', "Error occurred in GetParams: $Message") if $log;

        die "Database query failed: $Message";

    }


    $log->Message('INFO', "GetParams query returned " . scalar(@$Results) . " rows") if $log;


    my $AppCfg = {};

    for my $row (@$Results) {

        if ($row->{RenderTypeName} eq 'password'){

            $AppCfg->{ $row->{BrokerApplicationConfigName} } = $Config->passwordDecrypt(($row->{BrokerApplicationConfigValue}));

        } else {

            $AppCfg->{ $row->{BrokerApplicationConfigName} } = $row->{BrokerApplicationConfigValue};

        }

    }


    return $AppCfg;

}


sub GetJobParams {

    my %args = @_;

    return _get_params('Job', %args);

}


sub GetServiceParams {

    my %args = @_;

    return _get_params('Service', %args);

}


1;  # End of module

Just copy it to /opt/assure1/vendor/perl/lib/TSP/Params.pm and then you can import it in your Perl scripts in jobs (or services if you have custom ones - module supports both).
Sample GetParams.pl

#!/opt/assure1/bin/RunScript

use strict;

use warnings;

use Data::Dumper;

use Assure1::Core;

use Assure1::Config;

use Assure1::Log;

use utf8;

use TSP::Params qw(GetServiceParams GetJobParams);


# Initialize global config and logging as before

$main::Config = Assure1::Config->new({ configPath => '/opt/assure1/etc/Assure1.conf' });


our $Log = Assure1::Log->new({

    LogFile  => '/opt/assure1/logs/test_param.log',

    LogLevel => 'INFO'

});


# Connect to DB once here and reuse handle

my $DBH = DBConnect($main::Config, 'Assure1', { AutoCommit => 1 });

if (!defined $DBH) {

    $Log->Message('ERROR', "Failed to connect to DB: $DBI::errstr");

    exit(2);

}

$Log->Message('INFO', "Connected to Assure1 configuration database");


# Now get the params from the module

my $AppCfg = GetJobParams(

    dbh => $DBH,

    log => $Log,

    Config => $main::Config

);


use Data::Dumper;

print Dumper($AppCfg);


print "Password is: " . ($AppCfg->{'Password'} // '(missing)') . "\n";

Config is passed to module, because Password is of type password and its encrypted in the database. The module automatically recongizes the type and decrypts it.

Cheers,

Lukas

Lukas, this is perfect, thanks.