Tuxedo::Admin::RemoteAccessPoint
use Tuxedo::Admin; $admin = new Tuxedo::Admin; $remote_access_point = $admin->remote_access_point('ACCESS_POINT_NAME'); $rc = $remote_access_point->remove() if $remote_access_point->exists(); unless ($remote_access_point->exists()) { $remote_access_point->dmaccesspointid('ACCESS_POINT_ID'); $remote_access_point->dmsrvgroup('GW_GRP'); $rc = $remote_access_point->add(); die $admin->status() if ($rc < 0); }
Provides methods to query, add, remove and update a remote access point.
Tuxedo::Admin::RemoteAccessPoint objects are not instantiated directly. Instead they are created via the remote_access_point() method of a Tuxedo::Admin object.
Example:
$remote_access_point = $admin->remote_access_point('ACCESS_POINT_NAME');
This applies both for existing access points and for new access points that are being created.
Used to determine whether or not the remote access point exists in the current Tuxedo application.
if ($remote_access_point->exists()) { ... }
Returns true if the remote access point exists.
Adds the remote access point to the current Tuxedo application.
$rc = $remote_access_point->add();
Croaks if the remote access point already exists or if the required dmaccesspoint and dmaccesspointid are not set. If $rc is negative then an error occurred. If successful then the exists() method will return true.
$remote_access_point = $admin->remote_access_point('REMOTE'); unless ($remote_access_point->exists()) { $remote_access_point->dmaccesspointid('REMOTE_ID'); $rc = $remote_access_point->add(); $admin->print_status(); die if ($rc < 0); $tdomain1 = $admin->tdomain('REMOTE', 'hostname:8765'); $rc = $tdomain1->add(); $admin->print_status(); die if ($rc < 0); $tdomain2 = $admin->tdomain('REMOTE', 'hostname:8766'); $rc = $tdomain2->add(); $admin->print_status(); die if ($rc < 0); } else { print STDERR "Already exists!\n"; }
Updates the remote access point configuration with the values of the current object.
$rc = $remote_access_point->update();
Croaks if the remote access point does not exist or if the required dmaccesspoint parameter is not set. If $rc is negative then an error occurred.
Removes the remote access point from the current Tuxedo application.
$rc = $remote_access_point->remove();
$remote_access_point = $admin->remote_access_point('REMOTE'); if ($remote_access_point->exists()) { $remote_access_point->remove(); }
The following methods are available to get and set the remote access point parameters. If an argument is provided then the parameter value is set to be the argument value. The value of the parameter is returned.
# Get the access point id print $remote_access_point->dmaccesspointid(), "\n"; # Set the access point id $remote_access_point->dmaccesspointid('REMOTE_ID');
To install Tuxedo::Admin, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tuxedo::Admin
CPAN shell
perl -MCPAN -e shell install Tuxedo::Admin
For more information on module installation, please visit the detailed CPAN module installation guide.