sample method.... sub getEA { my ($path, $attr) = @_; $path =~ s/^.*?\/default/\/default/; my $command = "/usr/iw-home/bin/iwextattr -g '$attr' \"$path\" " . "2>/dev/null |"; open (EA, $command); my $val = join('',); close EA; my $result = $?; return undef if $result; chomp $val; return $val;}
use TeamSite::Config;my $iwmount = TeamSite::Config::iwgetmount();(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;...sub getEA{ my($path, $attr) = @_; $path =~ s|^$iwmount||i; # does not assume only 'default' store my $cmd = qq[$iwhome/bin/iwextattr -g "$attr" "$path"]; chomp(my $results = qx($cmd 2>&1)); if ($?){# error. log it?; return undef; # or return q{}; } return $results;}
Just out of curiousity, how does this relate to the topic at all? You are retrieving extended attributes, the author wants the version of a file within TeamSite.~Jeff
Whine whine whine, It gave Adam an excuse to critque someones code. That is what matters. :-)
Hi Guys,Thank you all for your execellent support.You are right..I didn't written the mail in a detailed manner.Sorry for that..Even dcr version question didn't fit to my requirement.My original requirement is if the author submit the task,it goes to reviewer and reviewer has three optionsa)Approves-Submit to stagingb)Edits-Notifies author and Author who initiates the task becomes Reviewerc)Rejects-Job assign to Author for EditingTo achieve this i thought of going with dcr version in the beginning and later found that it is not fit for my requirement.So i decided to go based on the lastedit option.So using ie "lastuser" attribute in" iwattrib" we can get the lastuser edited the content. But still struggling, how to achieve it in workflow.Here with i attached the sample workflow file.You are most welcome to throw some light on this..Advance Thanks!Jumbo