question regarding locking files with iwlock CLT command

jrMugz

Greetings,

We have a quick question about the iwlock command, which is used for locking a file in a TeamSite workarea.

So here is the syntax example in the command line tools guide:

>iwlock branch1/WORKAREA/wa1/test.html 'here is a comment'

So the syntax for that is branch file, and a comment in single quotes.

What we want to know is this:

Lets say, we want to lock EVERY file named test.html in a given branch and all of it's subfolders.

Do the command line tools allow for wildcard variables in the branch description to achieve this?

And where the wildcard can mean for more than just one subfolder if necessary?

Something like to this effect. Just let us know; thanks!!!

>iwlock branch1/WORKAREA/wa1/test.html 'here is a comment'

Jim

Find more posts tagged with

Comments

nipper

No. You probably need to use a find command if you are on Linux

Something like

find /default/main/branch/WORKAREA/wa1 -name test.html -exec iwlock {} "Locked by me" \;

jrMugz

We're on Windows. The "find" at the beginning of the command is specific to Linux? If so, is there something you can recommend for Windows?

find /default/main/branch/WORKAREA/wa1 -name test.html -exec iwlock {} "Locked by me" \;

Jim

nipper

Find is a unix command. Doesn't look like there is an equivilent on Windows.

Might want to write up a perl script. might be 10 lines of code.

nipper

I was bored.

Try this:

#!iwperl -w
use File::Find;
use TeamSite::Config;
(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;

my $iwlock = $iwhome."/bin/iwlock ";

my $start="/default/main/branch/WORKAREA/wa1/";

@list =();
find(\&wanted, $start);

my $file="";

foreach $file (@list) {
chomp ($file);
next if (!($file=~ m|test\.html$|));
$command = "$iwlock '".$start.$file."' 'locked by me' ";
`$command` ;
}

sub wanted {-f && push(@list, $File::Find::name);}

jrMugz

Thanks nipper, we wound up going the delete route, but that is good code to have! Much appreciated.

Jim

#!E:/Interwoven/TeamSite/iw-perl/bin/iwperl

use File::Find;
use TeamSite::Config;

my $dir_location="Y:\\default\\main\\www\\asdf\\WORKAREA\\shared\\templatedata\\asdf1\\tabbedcontent\\data\\family\\asdf2";

my @DCR_list =();

find(\&wanted, $dir_location);

my $DCR="";
my $logfile = "E:\\Interwoven\\TeamSite\\custom\\bin\\logfolder\\log.txt";
open (LOG, ">$logfile") || die "Can't open log file";
foreach $DCR (@DCR_list) {
chomp ($DCR);
$DCR =~ s|\/|\\|g;
if ($DCR=~ m|accessories.xml$|){
print LOG "DCR: $DCR\n";
print "$DCR\n";
unlink($DCR);
}

}

sub wanted {-f && push(@DCR_list, $File::Find::name);}
close(LOG);