ZaneYork
/
zoneminder
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Does not upload previously uploaded events. 

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@255 e3e1d417-86f3-4887-817a-d78f3d33393f
This commit is contained in:
stan 2003-01-07 13:08:28 +00:00
parent bcee53c274
commit 23276d2f3c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scripts/zmfilter.pl.z
View File

@ -193,6 +193,8 @@ while( 1 )
print( "Checking event $event->{Id}\n" ) if ( VERBOSE ); print( "Checking event $event->{Id}\n" ) if ( VERBOSE );
if ( $filter->{AutoUpload} ) if ( $filter->{AutoUpload} )
{ {
next if ( $event->{Uploaded} );
my $arch_file = FTP_LOC_DIR.$filter->{MonitorName}.'-'.$event->{Id}; my $arch_file = FTP_LOC_DIR.$filter->{MonitorName}.'-'.$event->{Id};
my $arch_image_path = "$filter->{MonitorName}/$event->{Id}/".(ARCH_ANALYSE?'*':'capture*').".jpg"; my $arch_image_path = "$filter->{MonitorName}/$event->{Id}/".(ARCH_ANALYSE?'*':'capture*').".jpg";
my $arch_error; my $arch_error;
@ -247,6 +249,9 @@ while( 1 )
$ftp->put( $arch_file ) or warn( "FTP - Can't upload '$arch_file'" ); $ftp->put( $arch_file ) or warn( "FTP - Can't upload '$arch_file'" );
$ftp->quit() or warn( "FTP - Can't quit" ); $ftp->quit() or warn( "FTP - Can't quit" );
unlink( $arch_file ); unlink( $arch_file );
my $sql = "update Events set Uploaded = 1 where Id = ?";
my $sth = $dbh->prepare_cached( $sql ) or die( "Can't prepare '$sql': ".$dbh->errstr() );
my $res = $sth->execute( $event->{Id} ) or die( "Can't execute: ".$sth->errstr() );
} }
} }
if ( $filter->{AutoDelete} ) if ( $filter->{AutoDelete} )