Fixed issue with flat event file dirs not being detected.

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@2192 e3e1d417-86f3-4887-817a-d78f3d33393f
This commit is contained in:
stan committed 2007-09-05 14:13:13 +00:00
1 parent d3977dde5b
commit ec3cef978e
1 file changed
+4 -4
+4 -4
View File
@@ -218,10 +218,10 @@ do
}
else
{
opendir( DIR, $monitor_dir ) or Fatal( "Can't open directory '$monitor_dir': $!" );
my @temp_events = sort { $b <=> $a } grep { -l $_ } readdir( DIR );
closedir( DIR );
chdir( $monitor_dir );
opendir( DIR, "." ) or Fatal( "Can't open directory '$monitor_dir': $!" );
my @temp_events = sort { $b <=> $a } grep { -d $_ && $_ =~ /^\d+$/ } readdir( DIR );
closedir( DIR );
my $count = 0;
foreach my $event ( @temp_events )
{
@@ -234,8 +234,8 @@ do
$fs_events->{$event} = (time() - ($^T - ((-M $event) * 24*60*60)));
}
}
chdir( EVENT_PATH );
}
chdir( EVENT_PATH );
Debug( "Got ".int(keys(%$fs_events))." events\n" );
}