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. |