OD 6.0.2 User Access

baretto

Hello

TS 6.1
OD 6.0.2
Solaris 2.9

We've upgrade OpenDeploy / DataDeploy to version 6.0.2.0.0 and we've found that we need to add every user to OpenDeploy to allow them to initiate deployments. This is because deployments are:

1. Initiated via workflow and the tasks running responsible are owned by the business user - easy enough to change the task so that its owned by a user which access to the deployments.

2. Initiated via presentation templates to enable content to be virtualized - what are my options for this?

The concern is keeping OpenDeploy's access list consistent with TeamSite's user list.

Cheers,

Adam Stoller

this thread mentions a bug id which has been filed to disable this requirement of authentication for CLT users -- you should probably contact Support to add your organization's name to the list of interested customers for this fix.

In the meantime - you can do something like this (off the top of my head - as I will probably have to create a script like this soon anyway):use strict;
use warnings;
use File::Temp qw(tempfile);
use TeamSite::Config;

my $iwhome = TeamSite::Config::iwgethome();
open(IN, "</etc/defaultiwod60home") || die " /etc/defaultiwod60home ($!)";
chomp(my $odhome = <IN>);
close(IN);

my %users;
get_users(\%users, "$iwhome/conf/roles");
my($fh1, $fname1) = tempfile(UNLINK => 1);
print $fh1 "$_\n" foreach(sort(keys(%users)));
close($fh1);

my @configs;
get_configs(\@configs, "$odhome/conf");
my($fh2, $fname2) = tempfile(UNLINK => 1);
print $fh2 "$_\n" foreach(sort(@configs));
close($fh2);

my @results = qx($odhome/bin/iwodauthorize -u $fname1 -d $fname2 -a set);
die "iwodauthorize failed?" if ($?);
exit 0;

# get all the userids from all the IWHOME/conf/roles/*.uid files
# store in hash to eliminate duplicates
sub get_users{
my($hashref, $dir) = @_;
die "[opendir] '$dir' ($!)" if (!opendir(DIR, $dir));
foreach(readdir(DIR)){
next if /^\.+$/;
next if !/\.uid$/;
if (open(IN, "<$dir/$_")){
my @tmp = <IN>;
chomp(@tmp);
$hashref->{$_} = 1 foreach(@tmp);
}
else {
die(" '$dir/$_' ($!)");
}
}
closedir(DIR);
}

# get all the deployment configuration files from ODHOME/conf
# and its subdirectories
sub get_configs{
my($listref, $dir) = @_;
die "[opendir] '$dir' ($!)" if (!opendir(DIR, $dir));
my @subdirs;
(my $location = $dir) =~ s|^$odhome/conf||;
$location .= '/' if ($location ne '');
foreach(readdir(DIR)){
next if /^\.+$/;
next if !/\.xml$/;
if (-d "$dir/$_"){
push(@subdirs, "$dir/$_");
next;
}
s|\.xml$||; # remove .xml extension
push(@$listref, "$location$_");
}
closedir(DIR);
get_configs($listref, $_) foreach(@subdirs);
}

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com