Added capability to send images and videos by mail.

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@476 e3e1d417-86f3-4887-817a-d78f3d33393f
This commit is contained in:
stan 2003-04-13 22:20:22 +00:00
parent 89541e2e4d
commit 4b11794431
8 changed files with 259 additions and 78 deletions

View File

@ -1,5 +1,5 @@
AUTOMAKE_OPTIONS = gnu AUTOMAKE_OPTIONS = gnu
bin_SCRIPTS = zmdc.pl zmaudit.pl zmfilter.pl zmx10.pl zmwatch.pl zmpkg.pl bin_SCRIPTS = zmdc.pl zmaudit.pl zmfilter.pl zmx10.pl zmwatch.pl zmpkg.pl zmvideo.pl
EXTRA_DIST = zmdc.pl.z zmaudit.pl.z zmfilter.pl.z zmx10.pl.z zmwatch.pl.z zmpkg.pl.z zm.z EXTRA_DIST = zmdc.pl.z zmaudit.pl.z zmfilter.pl.z zmx10.pl.z zmwatch.pl.z zmpkg.pl.z zmvideo.pl.z zm.z

View File

@ -117,9 +117,9 @@ sysconfdir = @sysconfdir@
target_alias = @target_alias@ target_alias = @target_alias@
AUTOMAKE_OPTIONS = gnu AUTOMAKE_OPTIONS = gnu
bin_SCRIPTS = zmdc.pl zmaudit.pl zmfilter.pl zmx10.pl zmwatch.pl zmpkg.pl bin_SCRIPTS = zmdc.pl zmaudit.pl zmfilter.pl zmx10.pl zmwatch.pl zmpkg.pl zmvideo.pl
EXTRA_DIST = zmdc.pl.z zmaudit.pl.z zmfilter.pl.z zmx10.pl.z zmwatch.pl.z zmpkg.pl.z zm.z EXTRA_DIST = zmdc.pl.z zmaudit.pl.z zmfilter.pl.z zmx10.pl.z zmwatch.pl.z zmpkg.pl.z zmvideo.pl.z zm.z
subdir = scripts subdir = scripts
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = $(top_builddir)/config.h CONFIG_HEADER = $(top_builddir)/config.h

View File

@ -86,7 +86,7 @@ my $email_subject;
my $email_body; my $email_body;
if ( ZM_OPT_EMAIL ) if ( ZM_OPT_EMAIL )
{ {
use Mail::Mailer; use MIME::Entity;
use constant ZM_EMAIL_FORMAT => "<from zmconfig>"; # File containing the contents of the email use constant ZM_EMAIL_FORMAT => "<from zmconfig>"; # File containing the contents of the email
@ -97,7 +97,7 @@ my $message_subject;
my $message_body; my $message_body;
if ( ZM_OPT_MESSAGE ) if ( ZM_OPT_MESSAGE )
{ {
use Mail::Mailer; use MIME::Entity;
use constant ZM_MESSAGE_FORMAT => "<from zmconfig>"; # File containing the contents of the message use constant ZM_MESSAGE_FORMAT => "<from zmconfig>"; # File containing the contents of the message
@ -475,25 +475,35 @@ sub sendEmail
print( "Creating notification email\n" ); print( "Creating notification email\n" );
my $subject = substituteTags( $email_subject, $filter, $event ); my $subject = substituteTags( $email_subject, $filter, \$event );
my $body = substituteTags( $email_body, $filter, $event ); my $body = substituteTags( $email_body, $filter, \$event );
print( "Sending notification email '$subject'\n" ); print( "Sending notification email '$subject'\n" );
print( "$body\n" ) if ( VERBOSE ); print( "$body\n" ) if ( VERBOSE );
eval eval
{ {
my $mailer = new Mail::Mailer; my $mail = MIME::Entity->build(
From =>ZM_FROM_EMAIL,
$mailer->open( { To=>ZM_EMAIL_ADDRESS,
Subject=>$subject, Subject=>$subject,
From=>ZM_FROM_EMAIL, Data=>$body
To=>ZM_EMAIL_ADDRESS );
} );
print( $mailer $body ); if ( $event->{attachments} )
{
foreach my $attachment ( @{$event->{attachments}} )
{
print( "Attaching '$attachment->{path}\n" );
$mail->attach(
Path=>$attachment->{path},
Type=>$attachment->{type},
Encoding=>"base64"
);
}
}
$mailer->close(); $mail->smtpsend();
}; };
if ( $@ ) if ( $@ )
{ {
@ -521,27 +531,37 @@ sub sendMessage
return; return;
} }
print( "Creating notification email\n" ); print( "Creating notification message\n" );
my $subject = substituteTags( $message_subject, $filter, $event ); my $subject = substituteTags( $message_subject, $filter, \$event );
my $body = substituteTags( $message_body, $filter, $event ); my $body = substituteTags( $message_body, $filter, \$event );
print( "Sending notification message '$subject'\n" ); print( "Sending notification message '$subject'\n" );
print( "$body\n" ) if ( VERBOSE ); print( "$body\n" ) if ( VERBOSE );
eval eval
{ {
my $mailer = new Mail::Mailer; my $mail = MIME::Entity->build(
From =>ZM_FROM_EMAIL,
$mailer->open( { To=>ZM_MESSAGE_ADDRESS,
Subject=>$subject, Subject=>$subject,
From=>ZM_FROM_EMAIL, Data=>$body
To=>ZM_MESSAGE_ADDRESS );
} );
print( $mailer $body ); if ( $event->{attachments} )
{
foreach my $attachment ( @{$event->{attachments}} )
{
print( "Attaching '$attachment->{path}\n" );
$mail->attach(
Path=>$attachment->{path},
Type=>$attachment->{type},
Encoding=>"base64"
);
}
}
$mailer->close(); $mail->smtpsend();
}; };
if ( $@ ) if ( $@ )
{ {
@ -557,7 +577,8 @@ sub substituteTags
{ {
my $text = shift; my $text = shift;
my $filter = shift; my $filter = shift;
my $event = shift; my $event_ref = shift;
my $event = $$event_ref;
# First we'd better check what we need to get # First we'd better check what we need to get
# We have a filter and an event, do we need any more # We have a filter and an event, do we need any more
@ -576,7 +597,7 @@ sub substituteTags
} }
# Do we need the image information too? # Do we need the image information too?
my $need_images = $text =~ /%(?:EPI1|EPIM)%/; my $need_images = $text =~ /%(?:EPI1|EPIM|EI1|EIM)%/;
my @frames = (); my @frames = ();
my $first_alarm_frame; my $first_alarm_frame;
my $max_alarm_frame; my $max_alarm_frame;
@ -630,6 +651,30 @@ sub substituteTags
$text =~ s/%ESM%/$event->{MaxScore}/g; $text =~ s/%ESM%/$event->{MaxScore}/g;
$text =~ s/%EPI1%/$url?view=image&mid=$filter->{MonitorId}&eid=$event->{Id}&fid=$first_alarm_frame->{FrameId}/g; $text =~ s/%EPI1%/$url?view=image&mid=$filter->{MonitorId}&eid=$event->{Id}&fid=$first_alarm_frame->{FrameId}/g;
$text =~ s/%EPIM%/$url?view=image&mid=$filter->{MonitorId}&eid=$event->{Id}&fid=$max_alarm_frame->{FrameId}/g; $text =~ s/%EPIM%/$url?view=image&mid=$filter->{MonitorId}&eid=$event->{Id}&fid=$max_alarm_frame->{FrameId}/g;
if ( $text =~ s/%EI1%/First alarm frame attached/g )
{
my $attachments = $event->{attachments};
$attachments = $event->{attachments} = [] if ( !$attachments );
push( @$attachments, { type=>"image/jpeg", path=>sprintf( "%s/%d/capture-%03d.jpg", $filter->{MonitorName}, $event->{Id}, $first_alarm_frame->{FrameId} ) } );
}
if ( $text =~ s/%EIM%/Max alarm frame attached/g )
{
my $attachments = $event->{attachments};
$attachments = $event->{attachments} = [] if ( !$attachments );
push( @$attachments, { type=>"image/jpeg", path=>sprintf( "%s/%d/capture-%03d.jpg", $filter->{MonitorName}, $event->{Id}, $max_alarm_frame->{FrameId} ) } );
}
if ( $text =~ s/%EV%/Event video attached/g )
{
my $attachments = $event->{attachments};
$attachments = $event->{attachments} = [] if ( !$attachments );
my $command = ZM_PATH_BIN."/zmvideo.pl -e $event->{Id}";
my $output = qx($command);
my $status = $? >> 8;
if ( $status == 0 )
{
push( @$attachments, { type=>"video/mpeg", path=>sprintf( "%s/%d/%s", $filter->{MonitorName}, $event->{Id}, $output ) } );
}
}
$text =~ s/%FN%/$filter->{Name}/g; $text =~ s/%FN%/$filter->{Name}/g;
( my $filter_name = $filter->{Name} ) =~ s/ /+/g; ( my $filter_name = $filter->{Name} ) =~ s/ /+/g;
$text =~ s/%FP%/$url?view=filter&mid=$filter->{MonitorId}&filter_name=$filter_name/g; $text =~ s/%FP%/$url?view=filter&mid=$filter->{MonitorId}&filter_name=$filter_name/g;

164
scripts/zmvideo.pl.z Normal file
View File

@ -0,0 +1,164 @@
#!/usr/bin/perl -wT
#
# ==========================================================================
#
# ZoneMinder Video Creation Script, $Date$, $Revision$
# Copyright (C) 2003 Philip Coombes
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# ==========================================================================
#
# This script is used to create MPEG videos of events for the web pages
# or as email attachments.
#
use strict;
# ==========================================================================
#
# These are the elements you need to edit to suit your installation
#
# ==========================================================================
use constant ZM_PATH_BIN => "<from zmconfig>";
use constant ZM_PATH_WEB => "<from zmconfig>";
use constant ZM_PATH_CGI => "<from zmconfig>";
use constant ZM_PATH_LOGS => "<from zmconfig>";
use constant ZM_PATH_NETPBM => "<from zmconfig>";
use constant ZM_PATH_MPEG_ENCODE => "<from zmconfig>";
use constant ZM_DB_SERVER => "<from zmconfig>";
use constant ZM_DB_NAME => "<from zmconfig>";
use constant ZM_DB_USERB => "<from zmconfig>";
use constant ZM_DB_PASSB => "<from zmconfig>";
use constant ZM_DIR_EVENTS => "<from zmconfig>";
use constant LOG_FILE => ZM_PATH_LOGS.'/zmvideo.log';
use constant VERBOSE => 0; # Whether to output more verbose debug
# ==========================================================================
#
# You shouldn't need to change anything from here downwards
#
# ==========================================================================
use DBI;
use Data::Dumper;
use Getopt::Long;
$| = 1;
$ENV{PATH} = '/bin:/usr/bin';
$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
my $event_id;
sub Usage
{
print( "
Usage: zmvideo.pl -e <event_id>,--event=<event_id>
Parameters are :-
-e<event_id>, --event=<event_id> - What event to start create the video for
");
exit( -1 );
}
if ( !GetOptions( 'event=i'=>\$event_id ) )
{
Usage();
}
if ( !$event_id || $event_id < 0 )
{
print( STDERR "Please give a valid event id\n" );
Usage();
}
my $log_file = LOG_FILE;
open( LOG, ">>$log_file" ) or die( "Can't open log file: $!" );
#open( STDOUT, ">&LOG" ) || die( "Can't dup stdout: $!" );
#select( STDOUT ); $| = 1;
open( STDERR, ">&LOG" ) || die( "Can't dup stderr: $!" );
select( STDERR ); $| = 1;
select( LOG ); $| = 1;
my $dbh = DBI->connect( "DBI:mysql:database=".ZM_DB_NAME.";host=".ZM_DB_SERVER, ZM_DB_USERB, ZM_DB_PASSB );
my @filters;
my $sql = "select E.*,M.Name as MonitorName, M.Palette from Events as E inner join Monitors as M on E.MonitorId = M.Id where E.Id = '$event_id'";
my $sth = $dbh->prepare_cached( $sql ) or die( "Can't prepare '$sql': ".$dbh->errstr() );
my $res = $sth->execute() or die( "Can't execute: ".$sth->errstr() );
my $event = $sth->fetchrow_hashref();
$sth->finish();
chdir( ZM_PATH_WEB.'/'.ZM_DIR_EVENTS.'/'.$event->{MonitorName}.'/'.$event->{Id} );
( my $video_name = $event->{Name} ) =~ s/\s/_/g;
my $param_file = "$video_name.mpe";
my $video_file = "$video_name.mpg";
if ( !-s $video_file )
{
print( LOG "Creating video file $video_file for event $event->{Id}\n" );
open( PARAMS, ">$param_file" ) or die( "Can't open '$param_file': $!" );
print( PARAMS "PATTERN IBBPBBPBBPBBPBB\n" );
print( PARAMS "OUTPUT $video_file\n" );
print( PARAMS "BASE_FILE_FORMAT JPEG\n" );
print( PARAMS "GOP_SIZE 30\n" );
print( PARAMS "SLICES_PER_FRAME 1\n" );
print( PARAMS "PIXEL HALF\n" );
print( PARAMS "RANGE 10\n" );
print( PARAMS "PSEARCH_ALG LOGARITHMIC\n" );
print( PARAMS "BSEARCH_ALG CROSS2\n" );
print( PARAMS "IQSCALE 8\n" );
print( PARAMS "PQSCALE 10\n" );
print( PARAMS "BQSCALE 25\n" );
print( PARAMS "REFERENCE_FRAME ORIGINAL\n" );
print( PARAMS "FRAME_RATE 24\n" );
if ( $event->{Palette} == 1 )
{
print( PARAMS "INPUT_CONVERT ".ZM_PATH_NETPBM."/jpegtopnm * | ".ZM_PATH_NETPBM."/pgmtoppm white | ".ZM_PATH_NETPBM."/ppmtojpeg\n" );
}
else
{
print( PARAMS "INPUT_CONVERT *\n" );
}
print( PARAMS "INPUT_DIR .\n" );
print( PARAMS "INPUT\n" );
for ( my $i = 1; $i <= $event->{Frames}; $i++ )
{
printf( PARAMS "capture-%03d.jpg\n", $i );
}
print( PARAMS "END_INPUT\n" );
close( PARAMS );
my $command = ZM_PATH_MPEG_ENCODE." $param_file >mpeg.log";
my $output = qx($command);
my $status = $? >> 8;
if ( $status )
{
die( "Error: $status" );
}
}
else
{
print( LOG "Video file $video_file already exists for event $event->{Id}\n" );
}
#print( STDOUT $event->{MonitorName}.'/'.$event->{Id}.'/'.$video_file."\n" );
print( STDOUT $video_file."\n" );
exit( 0 );

View File

@ -202,4 +202,12 @@ function zmaCheck( $monitor )
} }
return( daemonCheck( "zma", "-m $monitor" ) ); return( daemonCheck( "zma", "-m $monitor" ) );
} }
function createVideo( $event )
{
$command = ZM_PATH_BIN."/zmvideo.pl -e $event[Id]";
$result = exec( $command, $output, $status );
return( $status?"":$result );
}
?> ?>

View File

@ -2465,57 +2465,12 @@ function closeWindow()
die( mysql_error() ); die( mysql_error() );
$event = mysql_fetch_assoc( $result ); $event = mysql_fetch_assoc( $result );
if ( $video_file = createVideo( $event ) )
{
$event_dir = ZM_DIR_EVENTS."/$event[MonitorName]/".sprintf( "%d", $eid ); $event_dir = ZM_DIR_EVENTS."/$event[MonitorName]/".sprintf( "%d", $eid );
$param_file = $event_dir."/mpeg.param"; $video_path = $event_dir.'/'.$video_file;
$video_name = preg_replace( "/\\s/", "_", $event[Name] ).".mpeg"; header("Location: $video_path" );
$video_file = $event_dir."/".$video_name;
if ( !file_exists( $video_file ) )
{
$fp = fopen( $param_file, "w" );
fputs( $fp, "PATTERN IBBPBBPBBPBBPBB\n" );
fputs( $fp, "OUTPUT $video_file\n" );
fputs( $fp, "BASE_FILE_FORMAT JPEG\n" );
fputs( $fp, "GOP_SIZE 30\n" );
fputs( $fp, "SLICES_PER_FRAME 1\n" );
fputs( $fp, "PIXEL HALF\n" );
fputs( $fp, "RANGE 10\n" );
fputs( $fp, "PSEARCH_ALG LOGARITHMIC\n" );
fputs( $fp, "BSEARCH_ALG CROSS2\n" );
fputs( $fp, "IQSCALE 8\n" );
fputs( $fp, "PQSCALE 10\n" );
fputs( $fp, "BQSCALE 25\n" );
fputs( $fp, "REFERENCE_FRAME ORIGINAL\n" );
fputs( $fp, "FRAME_RATE 24\n" );
if ( $event[Palette] == 1 )
fputs( $fp, "INPUT_CONVERT ".ZM_PATH_NETPBM."/jpegtopnm * | ".ZM_PATH_NETPBM."/pgmtoppm white | ".ZM_PATH_NETPBM."/ppmtojpeg\n" );
else
fputs( $fp, "INPUT_CONVERT *\n" );
fputs( $fp, "INPUT_DIR $event_dir\n" );
fputs( $fp, "INPUT\n" );
for ( $i = 1; $i < $event[Frames]; $i++ )
{
fputs( $fp, "capture-".sprintf( "%03d", $i ).".jpg\n" );
fputs( $fp, "capture-".sprintf( "%03d", $i ).".jpg\n" );
} }
fputs( $fp, "END_INPUT\n" );
fclose( $fp );
exec( ZM_PATH_MPEG_ENCODE." $param_file >$event_dir/mpeg.log" );
}
//chdir( $event_dir );
//header("Content-type: video/mpeg");
//header("Content-Disposition: inline; filename=$video_name");
header("Location: $video_file" );
break; break;
} }
case "function" : case "function" :

View File

@ -18,6 +18,9 @@
# %EPI% - The path to the event images # %EPI% - The path to the event images
# %EPI1% - The path to the first alarmed event image # %EPI1% - The path to the first alarmed event image
# %EPIM% - The path to the (first) event image with the highest score # %EPIM% - The path to the (first) event image with the highest score
# %EI1% - Attach first alarmed event image
# %EIM% - Attach (first) event image with the highest score
# %EV% - Attach event mpeg video
# %EI% - The id of the event # %EI% - The id of the event
# %EN% - The name of the event # %EN% - The name of the event
# %ET% - The time of the event # %ET% - The time of the event
@ -63,6 +66,9 @@ This alarm was matched by the %FN% filter and can be viewed at %EPS%
# %EPI% - The path to the event images # %EPI% - The path to the event images
# %EPI1% - The path to the first alarmed event image # %EPI1% - The path to the first alarmed event image
# %EPIM% - The path to the (first) event image with the highest score # %EPIM% - The path to the (first) event image with the highest score
# %EI1% - Attach first alarmed event image
# %EIM% - Attach (first) event image with the highest score
# %EV% - Attach event mpeg video
# %EI% - The id of the event # %EI% - The id of the event
# %EN% - The name of the event # %EN% - The name of the event
# %ET% - The time of the event # %ET% - The time of the event

View File

@ -21,6 +21,9 @@
# %EPI% - The path to the event images # %EPI% - The path to the event images
# %EPI1% - The path to the first alarmed event image # %EPI1% - The path to the first alarmed event image
# %EPIM% - The path to the (first) event image with the highest score # %EPIM% - The path to the (first) event image with the highest score
# %EI1% - Attach first alarmed event image
# %EIM% - Attach (first) event image with the highest score
# %EV% - Attach event mpeg video
# %EI% - The id of the event # %EI% - The id of the event
# %EN% - The name of the event # %EN% - The name of the event
# %ET% - The time of the event # %ET% - The time of the event