Hi Michael,

I'm thinking that the user has more than 1 device associated and the CUCM is returning the results in a hash which you'd have to de-reference and print/other afterward. If you use Data:umper and:

print Dumper($res-paramsall());

you could post the results here and I'll try to help further.

Thanks,

Marty

Hi Michael,

Thanks, I got a chance to test and this worked for me.

print "AssociatedDevices ".$res->valueof('//getUserResponse/return/user/associatedDevices/device/'); # 'device' added to the end

The XML structure of the return message looks like this:

$VAR1 = {
'user' => {
'pin' => '',
'firstname' => 'Martin',
'department' => '',
'userid' => 'msloan'',
'lastname' => 'Sloan',
'primaryDevice' => 'SEP001D4560F000',
'password' => '',
'remoteDestinationLimit' => '4',
'digestCredentials' => '',
'associatedDevices' => {
'device' => 'SEP001D4560F000'
},
'enableCTI' => 'true',
'telephoneNumber' => '',
'associatedPC' => '',
'phoneProfiles' => {

etc....

The device info is a level deeper in the structure. When there is more than 1 device associated, the XML structure changes and includes an anonymous hash (square brackets):

'associatedDevices' => {
'device' => [
'SEP001D4560F000',
'SEP9743'
]
},
When you try to access assocaiatedDevices->device the same way as above when there are multiple devices, it returns ARRAY(something). I can assist if you need (and don't mind using Data Dumper!)

HTH

Marty

Hi Marty,

how the perl script have to look like when a user have more than one phone associated?

For example

1 x cisco hardphone
1 x Cisco Unified Client Services Framework


I tried this but it`s not working:

print "AssociatedDevices ".$res->valueof('//getUserResponse/return/user/associatedDevices/device0/');
print "\n";
print "AssociatedDevices ".$res->valueof('//getUserResponse/return/user/associatedDevices/device1/');
print "\n";


print "AssociatedDevices ".$res->valueof('//getUserResponse/return/user/associatedDevices/device/0/');
print "\n";
print "AssociatedDevices ".$res->valueof('//getUserResponse/return/user/associatedDevices/device/1/');
print "\n";

BR
Michael

Hi Marty,

thank you so much. I hope you have Happy Easter.

With adding this to the perl script getuser.pl it`s working to read out also for example 2 associated devices:

my ($reply) = $res->paramsall();
my $devices = $reply->{user}{associatedDevices}{device};
foreach (@$devices) {
print "$_\n";
}

What we trying to use this script "getuser" additional with "updatePhone", "updateLine" and "updateDeviceProfile" for is to update the change of name in the Active Directory automatically at the phones.

The "updatePhone", "updateLine" and "updateDeviceProfile" scripts are already working and I hope we can implement this after Easter.

So if there is a name changed in the Activce Directory we want to read out the associated devices with getuser and then update the phone, line and deviceprofile of the user.

Is this the easiest why of implement the automatically change of the disply / configured names at the Cisco phones? Do you also use perl scripts for automatically change of the name at the Cisco phones?

BR
Michael

Hi Marty,

I thank you so much for your great help :-)

I will be back in the office at Friday and test all these things.

For the moment I just have some more questions but it`s not really urgent:

In our "getuser" script we using this prompt for asking for the username to get the infos about:

print "What is the User ID of the user?\n";
chomp ($userid = <STDIN>);


1. Is it also possible to read out with "getuser" every user from the CUCM without inserting one specified username?

2. Is it also possible just to display all the users with "getuser" which have one phone and / or UDP associated?


In the worst-case scenario when a username have changed in the active directory the affected end user has no phone and / or UDP associated at CUCM.


3. Is there also a command like "getuser" just for getting back the associated devices for a DN (directory number)? Maybe something like "getline"?


Because when the name in AD is changed and the affected end user have not associated the phone and also not the UDP at CUCM I just would search for the end users DN and for the associated devices with this DN which I also would see at CUCM web gui when I open the DN of the end user.

BR
Michael

Hi Michael,

For these issues, I would typically use the SQL select method. I've been using the update and select methods more and more since I find it easier to get and update the information that way. For your questions, here's what I would do:

1. Is it also possible to read out with "getuser" every user from the CUCM without inserting one specified username?

- I would use "select userid from enduser". This is assuming you want to list only userid. You could use "select userid,firstname,lastname,etc...." if you want more info. (Check out the data dictionary for any info on the DB tables - this info is for v8.5.1)

2. Is it also possible just to display all the users with "getuser" which have one phone and / or UDP associated?

- Use something like "select e.userid, e.firstname, e.lastname, d.name device from ((device d inner join enduserdevicemap em on d.pkid = em.fkdevice) inner join enduser e on e.pkid = em.fkenduser)" There may be a more elegant way to get the info, but this would be my approach. It will list users an associated devices.

3. Is there also a command like "getuser" just for getting back the associated devices for a DN (directory number)? Maybe something like "getline"?

- For this one, you could "select n.dnorpattern, d.name device from ((numplan n inner join devicenumplanmap dnpm on n.pkid = dnpm.fknumplan) inner join device d on d.pkid = dnpm.fkdevice) order by n.dnorpattern". This will give you a list of DN's with their associated devices, ordered by DN.

This would be my approach but there might be an easier way to do it through the "list" methods (which I've always had issues getting to work for some reason.....). If you're more comfortable staying away from the SQL statements someone here might be able to recommend a way using the list methods, but I hope this info does help!

Marty