On Fri, Oct 26, 2012 at 12:19 PM, Joseph Spenner <joseph85...@yahoo.com> wrote:
> 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;
> }
> }
> }
>
Thanks for sharing that.
John
------------------------------------------------------------------------------
The Windows 8 Center
In partnership with Sourceforge
Your idea - your app - 30 days. Get started!
http://windows8center.sourceforge.net/
what-html-developers-need-to-know-about-coding-windows-8-metro-style-apps/
_______________________________________________
Bacula-users mailing list
Bacula-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bacula-users
