perl script to get interwoven teamsite dcr path

/
0 Comments
function to get dcrpath in perl for interwoven teamsite

sub getDcrPath{
    debug("getDCRPATH CALLED");
    my $currentDcrName=shift;
       debug("dcr path: $currentDcrName");
    $currentDcrName=~ s/(.*WORKAREA\/)(.*?\/)/$1$2/;
    my $workareaName=$2;
    $workareaName=~s/\///g;
    #my $dcrPath="$iwmount/default/main/$branchName/$subBranchName/WORKAREA/$workareaName/templatedata/content/Fragments/data/";
    debug("WORKAREA ".$workareaName."==".$currentDcrName);
    return $workareaName;
}


About Post Author

John Justin is a Software Engineer since last 9 years,Developing applications in Java and related technologies,blogger,writer and social worker.

You may also like

No comments:

About

Hi, my name is John Justin. I'm a software engineer living in Bentonville. This blog is to provide you with daily outfit ideas and share my personal style.This is my personal blog. Opinions expressed in my posts may or may not coincide with those of my employer.

google ads