Do not alter the start time of an event
This commit is contained in:
parent
137bdb1f24
commit
4758b2304a
|
@ -420,7 +420,7 @@ MAIN: while( $loop ) {
|
||||||
Debug("Checking for Medium Scheme Events under $$Storage{Path}/$monitor_dir");
|
Debug("Checking for Medium Scheme Events under $$Storage{Path}/$monitor_dir");
|
||||||
{
|
{
|
||||||
my @event_dirs = glob("$monitor_dir/[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/*");
|
my @event_dirs = glob("$monitor_dir/[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/*");
|
||||||
Debug(qq`glob("$monitor_dir/[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/*") returned ` . scalar @event_dirs . ' entries.' );
|
Debug('glob("'.$monitor_dir.'/[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/*") returned '.(scalar @event_dirs).' entries.');
|
||||||
foreach my $event_dir ( @event_dirs ) {
|
foreach my $event_dir ( @event_dirs ) {
|
||||||
if ( ! -d $event_dir ) {
|
if ( ! -d $event_dir ) {
|
||||||
Debug("$event_dir is not a dir. Skipping");
|
Debug("$event_dir is not a dir. Skipping");
|
||||||
|
@ -428,7 +428,7 @@ MAIN: while( $loop ) {
|
||||||
}
|
}
|
||||||
my ( $date, $event_id ) = $event_dir =~ /^$monitor_dir\/(\d{4}\-\d{2}\-\d{2})\/(\d+)$/;
|
my ( $date, $event_id ) = $event_dir =~ /^$monitor_dir\/(\d{4}\-\d{2}\-\d{2})\/(\d+)$/;
|
||||||
if ( !$event_id ) {
|
if ( !$event_id ) {
|
||||||
Debug("Unable to parse date/event_id from $event_dir");
|
Debug('Unable to parse date/event_id from '.$event_dir);
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
my $Event = $fs_events->{$event_id} = new ZoneMinder::Event();
|
my $Event = $fs_events->{$event_id} = new ZoneMinder::Event();
|
||||||
|
@ -438,6 +438,7 @@ MAIN: while( $loop ) {
|
||||||
$Event->MonitorId( $monitor_dir );
|
$Event->MonitorId( $monitor_dir );
|
||||||
$Event->StorageId( $Storage->Id() );
|
$Event->StorageId( $Storage->Id() );
|
||||||
$Event->Path();
|
$Event->Path();
|
||||||
|
$Event->age();
|
||||||
Debug("Have event $$Event{Id} at $$Event{Path}");
|
Debug("Have event $$Event{Id} at $$Event{Path}");
|
||||||
$Event->StartTime(POSIX::strftime('%Y-%m-%d %H:%M:%S', gmtime(time_of_youngest_file($Event->Path()))));
|
$Event->StartTime(POSIX::strftime('%Y-%m-%d %H:%M:%S', gmtime(time_of_youngest_file($Event->Path()))));
|
||||||
} # end foreach event
|
} # end foreach event
|
||||||
|
@ -466,13 +467,13 @@ MAIN: while( $loop ) {
|
||||||
} # end foreach event
|
} # end foreach event
|
||||||
chdir( $Storage->Path() );
|
chdir( $Storage->Path() );
|
||||||
} # if USE_DEEP_STORAGE
|
} # if USE_DEEP_STORAGE
|
||||||
Debug( 'Got '.int(keys(%$fs_events))." filesystem events for monitor $monitor_dir" );
|
Debug('Got '.int(keys(%$fs_events)).' filesystem events for monitor '.$monitor_dir);
|
||||||
|
|
||||||
delete_empty_subdirs($$Storage{Path}.'/'.$monitor_dir);
|
delete_empty_subdirs($$Storage{Path}.'/'.$monitor_dir);
|
||||||
} # end foreach monitor
|
} # end foreach monitor
|
||||||
|
|
||||||
if ( $cleaned ) {
|
if ( $cleaned ) {
|
||||||
Debug("First stage cleaning done. Restarting.");
|
Debug('First stage cleaning done. Restarting.');
|
||||||
redo MAIN;
|
redo MAIN;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -484,7 +485,7 @@ MAIN: while( $loop ) {
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
my @event_ids = keys %$fs_events;
|
my @event_ids = keys %$fs_events;
|
||||||
Debug('Have ' .scalar @event_ids . " events for monitor $monitor_id");
|
Debug('Have ' .scalar @event_ids . ' events for monitor '.$monitor_id);
|
||||||
|
|
||||||
foreach my $fs_event_id ( sort { $a <=> $b } keys %$fs_events ) {
|
foreach my $fs_event_id ( sort { $a <=> $b } keys %$fs_events ) {
|
||||||
|
|
||||||
|
@ -499,7 +500,7 @@ MAIN: while( $loop ) {
|
||||||
}
|
}
|
||||||
my $age = $Event->age();
|
my $age = $Event->age();
|
||||||
|
|
||||||
if ( $age > $Config{ZM_AUDIT_MIN_AGE} ) {
|
if ( $age and ($age > $Config{ZM_AUDIT_MIN_AGE}) ) {
|
||||||
aud_print("Filesystem event $fs_event_id at $$Event{Path} does not exist in database and is $age seconds old");
|
aud_print("Filesystem event $fs_event_id at $$Event{Path} does not exist in database and is $age seconds old");
|
||||||
if ( confirm() ) {
|
if ( confirm() ) {
|
||||||
$Event->delete_files();
|
$Event->delete_files();
|
||||||
|
@ -586,7 +587,7 @@ EVENT: while ( my ( $db_event, $age ) = each( %$db_events ) ) {
|
||||||
} else {
|
} else {
|
||||||
Debug("$$Event{Id} Not found at $path");
|
Debug("$$Event{Id} Not found at $path");
|
||||||
}
|
}
|
||||||
}
|
} # end foreach Storage
|
||||||
if ( $Event->Archived() ) {
|
if ( $Event->Archived() ) {
|
||||||
Warning("Event $$Event{Id} is Archived. Taking no further action on it.");
|
Warning("Event $$Event{Id} is Archived. Taking no further action on it.");
|
||||||
next;
|
next;
|
||||||
|
@ -638,18 +639,13 @@ EVENT: while ( my ( $db_event, $age ) = each( %$db_events ) ) {
|
||||||
Info("Updating storage area on event $$Event{Id} from $$Event{StorageId} to $$fs_events{$db_event}{StorageId}");
|
Info("Updating storage area on event $$Event{Id} from $$Event{StorageId} to $$fs_events{$db_event}{StorageId}");
|
||||||
$Event->StorageId($$fs_events{$db_event}->StorageId());
|
$Event->StorageId($$fs_events{$db_event}->StorageId());
|
||||||
}
|
}
|
||||||
if ( $$fs_events{$db_event}->StartTime() ne $Event->StartTime() ) {
|
if ( ! $Event->StartTime() ) {
|
||||||
Info("Updating StartTime on event $$Event{Id} from $$Event{StartTime} to $$fs_events{$db_event}{StartTime}");
|
Info("Updating StartTime on event $$Event{Id} from $$Event{StartTime} to $$fs_events{$db_event}{StartTime}");
|
||||||
if ( $$Event{Scheme} eq 'Deep' ) {
|
|
||||||
$Event->StartTime($$fs_events{$db_event}->StartTime());
|
$Event->StartTime($$fs_events{$db_event}->StartTime());
|
||||||
} else {
|
|
||||||
$Event->StartTime($$fs_events{$db_event}->StartTime());
|
|
||||||
}
|
|
||||||
$Event->save();
|
|
||||||
}
|
}
|
||||||
|
|
||||||
$Event->save();
|
$Event->save();
|
||||||
}
|
} # end if Event exists in db and not in filesystem
|
||||||
} # end if ! in fs_events
|
} # end if ! in fs_events
|
||||||
} # foreach db_event
|
} # foreach db_event
|
||||||
} # end foreach db_monitor
|
} # end foreach db_monitor
|
||||||
|
|
Loading…
Reference in New Issue