quick publish script?

DavidMusser

Does anyone have a script that simply goes through all of the branchs and publishes an edition in each nightly? I'm on Winders 2000 if you do :-)

David R Musser
Eye Street Software
540-542-5257
dmusser@eyestreet.com
Win2k, TS 6.5 SP1, OD 6.01

Adam Stoller

You should be able to write a fairly simple recursion routine to do this - either walking the directories directly and avoiding going down "WORKAREA", "STAGING", and "EDITION" directories - or using the iwlist CLT (unfortunately it doesn't have it's own recusion ability). However, since I'm feeling generous (bored) - this should get you started:duse strict;
use warnings;
use TeamSite::Config;
my $iwhome = TeamSite::Config::iwgethome();

my @branchlist;
get_branches(\@branchlist, "/default/main");

print join("\n", @branchlist) . "\n"; #=# Debugging

sub get_branches{
my($listref, $dir) = @_;
my @branches = qx($iwhome/bin/iwlist $dir);
chomp(@branches);
s|^|$dir/| foreach(@branches);
push(@$listref, @branches) if (@branches);
get_branches($listref, $_) foreach(@branches);
}

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