How to find workarea using perl ?

How to obtain the workarea,branch of file in STAGING area using perl?

Edited by sanjeevappa on 04/07/05 06:29 AM (server time).

Find more posts tagged with

Comments

Hi

It would help if you supply some context to your question: How? When? Why? + it is a good idea to include your environment details: TS version, platform etc

Cheers
Michael

sanjeevappa

I have a file in STAGING area if TS6.5 , i have to find from which workarea the file was submitted using perl.

Adam Stoller

Can you elaborate a bit on what you are trying to do?
When a file is in STAGING - it's not directly associated with any workarea -or- the version of the file that is in STAGING is the same that appears to be in all up-to-date [with respect to that file] workareas.

Are you trying to find out from what workarea a given file in staging had been submitted?

If so - you can do so through a process of steps (there might be an easier way, but ...):

run iwrlog on the file in staging - and extract the first submit event objid you see ($sobjid)
run iwattrib -o $sobjid workarea which will give you the objectid of the workarea ($wobjid)
run iwattrib -o $wobjid name which will give you the name of the workarea

If you're looking for something else - then you need to be more specific.

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

mgal

Also you could run

iwevents -s vpath latest or all

which will show you the files which are submitted and it also shows from which workarea you submitted the file.

Hope this helps

Mohammed Gazal.

Adam Stoller

Almost - iwevents -s /default/main/.../STAGING will show you the WORKAREAID -- you still need to run iwattrib -o WORKAREAID name to get the actual name of the workarea from which the files were submitted.

At least that's how things seem to work on TS 6.5 SP1 on Solaris ...

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

sanjeevappa

How to extract submit event objid form the output of iwrlog command?And what if there are many submit events for the specific file?

Edited by sanjeevappa on 04/08/05 00:28 AM (server time).

jbonifaci

Completely untested, but I would imagine it would go something like this:
my $iwrlogResults = `iwrlog vpath`;
my ($sobjid) = ($iwrlogResults =~ m|submit event objid ([^\s]+)|);
my $wobjid = `iwattrib -o $sobjid workarea`;
my $workareaName = `iwattrib -o $wobjid name`;