How to get User Name in DCT?

I need help in getting user name in DCT using form API or Inline command. I am using Teamsite 6.1 on Solaris 8.

Suggest me.

Thanks,
Rahul

Find more posts tagged with

Comments

kaalraa

RTFM or else you need training. As of now use and read about IWDatacapture.getUser();

I need help in getting user name in DCT using form API or Inline command. I am using Teamsite 6.1 on Solaris 8.

Suggest me.

Thanks,
Rahul

rahulindia

It gives user id only, I need user name !!!

nipper

you mean converting nipper to Andy ?

That is a Solaris issue, you could use finger (if it is a local account, otherwise need to query LDAP for that info)

kaalraa

For that you have to write a program which can fetch username value from the uid files against the user ID you pass.

It gives user id only, I need user name !!!

Migrateduser

This is from a Windows installation.

paypay

This is from a Windows installation.

I have tried the script which is inserted in the previous comments but it doesn't work.
When I want to see %ENV value, it is equal to 0.
Idem with this script which return me "" :

foreach $key (sort keys(%ENV)) {
$user .= "$key = $ENV{$key}";
}

What is my problem ?
Configuration : Windows 2000 SP3/TeamSite 6.0

Adam Stoller

Try taking the value returned from IWDatacapture.getUser(); and using it to reference the data that can be retrieved with Win32::NetAdmin::GetUsers()

- read the perldoc for Win32::NetAdmin for more information.

paypay

Try taking the value returned from IWDatacapture.getUser(); and using it to reference the data that can be retrieved with Win32::NetAdmin::GetUsers()

- read the perldoc for Win32::NetAdmin for more information.

Ok when you want to have this information after the form generation by using the Form API (IWDatacapture.getUser() is a Form API function), but in this case, I want to have the current user to generate a container from it so I can't use the Form API

Adam Stoller

Ok when you want to have this information after the form generation by using the Form API (IWDatacapture.getUser() is a Form API function), but in this case, I want to have the current user to generate a container from it so I can't use the Form API

Are you saying that you are trying to dynamically create a container in a DCT that will be unique per user who creates a DCR of that type?

I don't see how this can work - reasonably / reliably.

Based on what you've said so far - this *must* be done within an inline callout script - but inline callout scripts do not get the full environment data. Instead, you should be able to pull from the environment the value associated with IW_USER (e.g.:

$ENV{IW_USER};

) - however, despite what the documentation says ("The full user name of the current templating user") the example that follows "clarifies" that to mean the userid.

Once you have the userid - you can use the Win32::NetAdmin::GetUsers() piece I previously mentioned.

However - I still believe that this is going to be akin to running full-steam into a wall. You might be able to get it to work in the DCT, but FormAPI and/or PT code and/or DD or Perl: Smiley Very Happy

BI code that may have to deal with parsing the DCR will be awkward at best (IMO).

iw_store

It gives user id only, I need user name !!!

User full name will be there inside eamil_map.cfg, get this id and parse email_map.cfg using this id you will get user full name.

But you need to update email_map.cfg properely.

For this XML: Smiley Frustrated

imple will be sufficient.

I feel this will help Smiley Happy

paypay

Yes, my scope is to create in an inline callout script a container with the following field in readonly : login, fullname from email_map.cfg and email from the same file.
I have no problem to fill with the two last fields if only I have the userID. That is why I need this field value that I thought I find with $ENV{IW_SERVER}.

Adam Stoller

Yes, my scope is to create in an inline callout script a container with the following field in readonly : login, fullname from email_map.cfg and email from the same file.
I have no problem to fill with the two last fields if only I have the userID. That is why I need this field value that I thought I find with $ENV{IW_SERVER}.

Either you keep changing the way you phrase the question, or I'm getting confused by something for some unknown reason.

If you are simply trying to set the *value* of a field within the DCT/DCR to be the full name of the user who created (or last edited?) the DCR - then the code I mentioned earlier should work just fine. (if it isn't - you need to post the code you are trying to use to implement it - both DCT and inline script)..

If you are trying to create a distinct field *name* within the DCT/DCR based on the full name of the user who created (or last edited?) the DCR - then I think this will be problematic (at best) and completely unusable (at worst).

paypay

this is my code:

Datacapture.cfg :

with iw-user.ipl :

use strict; # Try to catch errors as early as possible.
use TeamSite::Config;
use TeamSite::XMLnode;
use Win32::NetAdmin;
#extract of iwov_emailmap.pm
my $IWHOME = TeamSite::Config::iwgethome();
$IWHOME =~ s/\\/\//g;
my($IWCFG) = "$IWHOME/bin/iwconfig iwsend_mail";
my $MAILDOMAIN = `$IWCFG maildomain`;
$MAILDOMAIN =~ s/\n$//;

my $full_username = $ENV{IW_USER};
my $bare_username = remove_domain($full_username);

my $email_map_file; # the email mapping file for users
my $xml; # the xml variable holds the email mapping info.
my $rootNode; # the rootnode of the xml tree
my @userlist; # the 'user' list values of the xml tree
my $userlist; # each user in the list nodes
my @useremails; # the email lists
my $name; # the name key in the config file
my $email; # the email address that returned to the PT
my $fullname; # the full name of the user
$email_map_file = "$IWHOME/local/config/wft/solutions/email_map.cfg";
open (CFG, $email_map_file) || die "Cannot open $email_map_file: $!\n";
$xml = join ("", );
close CFG;
$rootNode = TeamSite::XMLnode->new($xml);
@userlist = $rootNode->get_node_list('user');

foreach $userlist (@userlist) {
$name = $userlist->get_attrib('name');
$email = $userlist->get_attrib('email');
$fullname = $userlist->get_attrib('fullname');

# Look for a case-insensitive match of the 'name' from the
# config file to either the full username or the username
# without the NT domain.
if (((lc $name) eq (lc $full_username))
|| ((lc $name) eq (lc $bare_username))) {
last;
}
}

my $test = Win32::NetAdmin::GetUsers();

print <

contributor information

$test

$fullname

$email

EOF
sub remove_domain{
my($v) = @_;
if ($^O eq "MSWin32"){
$v =~ s|^.*[\\/]||;
}
return($v);
}

paypay

code are in attached files

Adam Stoller

code are in attached files

You don't indicate the results that you are seeing - so we have no idea what is/is not working and how it is/is not working.
If you dump the contents of your "hereis" print statement to a log file as well as to STDOUT - then you'll have something useful in the way of debugging information.

From your script:

my $test = Win32::NetAdmin::GetUsers();

Did you bother to look at the perldoc for this function?
Please do so if you intend to try to use it.

The code at least answers one question - which is that you are looking to use the user's full name as a value for one of the fields ("user_fullname") - that's reasonable.

I'm not sure why you're including those

elements within each of your items though (technically, the

allowed

element should come before the

default

element) - if you don't want to allow editing of the field you should probably use the javascript file you're including in your DCT to include code to mark the fields as readonly (read the FormAPI Developer's Guide for more details).