In case anyone finds this useful, I wrote this to quickly show all the FileSets:
-----
#!/usr/bin/perl
@fileSetCommand=`echo "show fileset" | bconsole |grep FileSet`;
foreach $line (@fileSetCommand) {
$line =~ m/\=(.*)/;
$fileSet=$1;
push (@fileSets, $fileSet);
}
foreach $line (@fileSets) {
@thisSet=`echo "show fileset=\\\"$line\\\"" | bconsole`;
print "\n==============\n";
foreach $line (@thisSet)
{
if ($line =~ m/ I | E |^FileSet/) {
$line =~ s/name\=//g;
print $line;
}
}
}
-----
______________________________________________________________________
If life gives you lemons, keep them-- because hey.. free lemons.
"♥ Sticker" fixer:
http://microflush.org/stuff/stickers/heartFix.html
