Perl

The following code example is written in the Perl language:

#!/usr/local/bin/perl
# Requires LWP to be installed
use LWP::Simple;
# define parts of the SecureKey request URL
my $logiAppUrl = 'http://<yourServer>/<LogiApp>';
my $user = 'Bob';
my $role = 'Admin';
my $rights = 'Manager';
my $clientAddress = print $ENV{REMOTE_ADDR};
# build complete URL to Logi app
my $url = $logiAppUrl . '/rdTemplate/rdGetSecureKey.aspx?Username=' . $user . '&Role=' . $role . '&Rights=' . $rights . '&ClientBrowserAddress=' . $clientAddress;
# make the SecureKey call and get the response
my $response = get $url;
# The response should be used as the rdSecureKey parameter value in HTML or Javascript in a Div or iFrame  
print $response;