|
From: <buc...@us...> - 2011-01-25 09:00:43
|
Revision: 211
http://devmon.svn.sourceforge.net/devmon/?rev=211&view=rev
Author: buchanmilne
Date: 2011-01-25 09:00:37 +0000 (Tue, 25 Jan 2011)
Log Message:
-----------
Support the 'directory' statement in bb-hosts (#2897676)
Modified Paths:
--------------
trunk/modules/dm_config.pm
Modified: trunk/modules/dm_config.pm
===================================================================
--- trunk/modules/dm_config.pm 2011-01-24 15:45:24 UTC (rev 210)
+++ trunk/modules/dm_config.pm 2011-01-25 09:00:37 UTC (rev 211)
@@ -1296,6 +1296,15 @@
push @bbfiles, $file;
}
+ # Similarly, but different, for directory
+ if($line =~ /^\s*directory\s+(\S+)$/i) {
+ require File::Find;
+ import File::Find;
+ my $dir = $1;
+ do_log("Looking for bb-hosts files in $dir",3) if $g{'debug'};
+ find(sub {push @bbfiles,$File::Find::name},$dir);
+ }
+
# Else see if this line matches the ip/host bb-hosts format
elsif($line =~ /^\s*(\d+\.\d+\.\d+\.\d+)\s+(\S+)(.*)$/i) {
my ($ip, $host, $bbopts) = ($1, $2, $3);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|