<?php
//
// ZoneMinder web image view file, $Date: 2008-09-29 14:15:13 +0100 (Mon, 29 Sep 2008) $, $Revision: 2640 $
// Copyright (C) 2001-2008 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
//

// Calling sequence:   ... /zm/index.php?view=image&path=/monid/path/image.jpg&scale=nnn&width=wwww&height=hhhhh
//
//     Path is physical path to the image starting at the monitor id
//
//     Scale is optional and between 1 and 400 (percent),
//          Omitted or 100 = no scaling done, image passed through directly
//          Scaling will increase response time slightly
//
//     width and height are each optional, ideally supply both, but if only one is supplied the other is calculated
//          These are in pixels
//
//     If both scale and either width or height are specified, scale is ignored
//

if ( !canView( 'Events' ) ) {
  $view = 'error';
  return;
}
require_once('includes/Event.php');
require_once('includes/Frame.php');

// Compatibility for PHP 5.4 
if (!function_exists('imagescale')) {
  function imagescale($image, $new_width, $new_height = -1, $mode = 0) {
    $mode; // Not supported

    $new_height = ($new_height == -1) ? imagesy($image) : $new_height;
    $imageNew = imagecreatetruecolor($new_width, $new_height);
    imagecopyresampled($imageNew, $image, 0, 0, 0, 0, (int)$new_width, (int)$new_height, imagesx($image), imagesy($image));

    return $imageNew;
  }
}

$errorText = false;
$filename = '';
$Frame = null;
$Event = null;
$path = null;

if ( empty($_REQUEST['path']) ) {

  if ( ! empty($_REQUEST['fid']) ) {
    if ( $_REQUEST['fid'] == 'snapshot' ) {
      $Event = new Event( $_REQUEST['eid'] );
      $Frame = new Frame();
      $Frame->FrameId('snapshot');
      $path = $Event->Path().'/snapshot.jpg';
Warning("Path to snapshot: $path");
    } else {

      $show = empty($_REQUEST['show']) ? 'capture' : $_REQUEST['show'];

      if ( ! empty($_REQUEST['eid'] ) ) {
        $Event = new Event( $_REQUEST['eid'] );
        $Frame = Frame::find_one( array( 'EventId' => $_REQUEST['eid'], 'FrameId' => $_REQUEST['fid'] ) );
        if ( ! $Frame ) {
          $previousBulkFrame = dbFetchOne( "SELECT * FROM Frames WHERE EventId=? AND FrameId < ? ORDER BY FrameID DESC LIMIT 1", NULL, array($_REQUEST['eid'], $_REQUEST['fid'] ) );
          $nextBulkFrame = dbFetchOne( "SELECT * FROM Frames WHERE EventId=? AND FrameId > ? ORDER BY FrameID ASC LIMIT 1", NULL, array($_REQUEST['eid'], $_REQUEST['fid'] ) );
          if ( $previousBulkFrame and $nextBulkFrame ) {
            $Frame = new Frame( $previousBulkFrame );
            $Frame->FrameId( $_REQUEST['fid'] );

            $percentage = floor(100*(($Frame->FrameId() - $previousBulkFrame['FrameId']) / ($nextBulkFrame['FrameId'] - $previousBulkFrame['FrameId'])))/100;

            $Frame->Delta( $previousBulkFrame['Delta'] + floor( 100* ( $nextBulkFrame['Delta'] - $previousBulkFrame['Delta'] ) * $percentage )/100 );
Logger::Debug("Got virtual frame from Bulk Frames previous delta: " . $previousBulkFrame['Delta'] . " + nextdelta:" . $nextBulkFrame['Delta'] . ' - ' . $previousBulkFrame['Delta'] . ' * ' . $percentage );
          } else {
          Fatal("No Frame found for event(".$_REQUEST['eid'].") and frame id(".$_REQUEST['fid'].")");
          }
        }
        // Frame can be non-existent.  We have Bulk frames.  So now we should try to load the bulk frame 

      } else {
# If we are only specifying fid, then the fid must be the primary key into the frames table. But when the event is specified, then it is the frame #
        $Frame = new Frame( $_REQUEST['fid'] );
        $Event = new Event( $Frame->EventId() );
      }
      $path = $Event->Path().'/'.sprintf('%0'.ZM_EVENT_IMAGE_DIGITS.'d',$Frame->FrameId()).'-'.$show.'.jpg';
    }
    
  } else {
    Fatal("No Frame ID specified");
    header("HTTP/1.0 404 Not Found");
    return;
  }

  if ( ! file_exists( $path ) ) {
    Logger::Debug( "$path does not exist");
# Generate the frame JPG
    if ( $show == 'capture' and $Event->DefaultVideo() ) {
      $command ='ffmpeg -ss '. $Frame->Delta() .' -i '.$Event->Path().'/'.$Event->DefaultVideo().' -frames:v 1 '.$path;
      #$command ='ffmpeg -ss '. $Frame->Delta() .' -i '.$Event->Path().'/'.$Event->DefaultVideo().' -vf "select=gte(n\\,'.$Frame->FrameId().'),setpts=PTS-STARTPTS" '.$path;
#$command ='ffmpeg -v 0 -i '.$Storage->Path().'/'.$Event->Path().'/'.$Event->DefaultVideo().' -vf "select=gte(n\\,'.$Frame->FrameId().'),setpts=PTS-STARTPTS" '.$path;
      Logger::Debug( "Running $command" );
      $output = array();
      $retval = 0;
      exec( $command, $output, $retval );
      Logger::Debug("Command: $command, retval: $retval, output: " . implode("\n", $output));
      if ( ! file_exists( $path ) ) {
        header('HTTP/1.0 404 Not Found');
        Fatal("Can't create frame images from video for this event (".$Event->DefaultVideo() );
      }
      $Event->DiskSpace( null );
      $Event->save();
    } else {
      header('HTTP/1.0 404 Not Found');
      Fatal("Can't create frame images from video becuase there is no video file for this event (".$Event->DefaultVideo() );
    }
  }

} else {
  Warning('Loading images by path is deprecated');
  $dir_events = realpath(ZM_DIR_EVENTS);
  $path = realpath($dir_events . '/' . $_REQUEST['path']);
  $pos = strpos($path, $dir_events);

  if ( $pos == 0 && $pos !== false ) {
    if ( ! empty( $user['MonitorIds'] ) ) {
      $imageOk = false;
      $pathMonId = substr( $path, 0, strspn( $path, '1234567890' ) );
      foreach ( preg_split( '/["\'\s]*,["\'\s]*/', $user['MonitorIds'] ) as $monId ) {
        if ( $pathMonId == $monId ) {
          $imageOk = true;
          break;
        }
      }
      if ( !$imageOk )
        $errorText = 'No image permissions';
    }
  } else {
    $errorText = 'Invalid image path';
  }
  if ( ! file_exists( $path ) ) {
    header('HTTP/1.0 404 Not Found');
    Fatal("Image not found at $path");
  }
}

$scale=0;
if( !empty($_REQUEST['scale']) ) {
  if (is_numeric($_REQUEST['scale'])) {
    $x = $_REQUEST['scale'];
    if($x >= 1 and $x <= 400)
      $scale=$x;
  }
}

$width=0;
if ( !empty($_REQUEST['width']) ) {
  if (is_numeric($_REQUEST['width'])) {
    $x = $_REQUEST['width'];
    if($x >= 10 and $x <= 8000)
      $width=$x;
  }
}
$height=0;
if( !empty($_REQUEST['height']) ) {
  if (is_numeric($_REQUEST['height'])) {
    $x = $_REQUEST['height'];
    if($x >= 10 and $x <= 8000)
      $height=$x;
  }
}

header( 'Content-type: image/jpeg' );

# This is so that Save Image As give a useful filename
if ( $Event ) {
  $filename = $Event->MonitorId().'_'.$Event->Id().'_'.$Frame->FrameId().'.jpg';
  header('Content-Disposition: inline; filename="' . $filename . '"');
}
ob_clean();
flush();

if ( $errorText ) {
  Error( $errorText );
} else {
  if ( ( $scale==0 || $scale==100 ) && $width==0 && $height==0 ) {
    if ( ! readfile( $path ) ) {
      Error("No bytes read from ". $path );
    }
  } else {
    Logger::Debug("Doing a scaled image: scale($scale) width($width) height($height)");
    $i = 0;
    if ( ! ( $width && $height ) ) {
      $i = imagecreatefromjpeg( $path );
      $oldWidth = imagesx( $i );
      $oldHeight = imagesy( $i );
      if ( $width == 0 && $height == 0 ) { // scale has to be set to get here with both zero
        $width = $oldWidth  * $scale / 100.0;
        $height= $oldHeight * $scale / 100.0;
      } elseif ( $width == 0 && $height != 0 ) {
        $width = ($height * $oldWidth) / $oldHeight;
      } elseif ( $width != 0 && $height == 0 ) {
        $height = ($width * $oldHeight) / $oldWidth;
      }
      if ( $width == $oldWidth && $height == $oldHeight) {
        Warning( 'No change to width despite scaling.' );
      }
    }
  
    # Slight optimisation, thumbnails always specify width and height, so we can cache them.
    $scaled_path = preg_replace('/\.jpg$/', "-${width}x${height}.jpg", $path );
    if ( ! file_exists( $scaled_path ) or ! readfile( $scaled_path ) ) {
      Logger::Debug( "Cached scaled image does not exist at $scaled_path or is no good.. Creating it");
      ob_start();
      if ( ! $i )
        $i = imagecreatefromjpeg( $path );
      $iScale = imagescale( $i, $width, $height );
      imagejpeg( $iScale );
      imagedestroy( $i );
      imagedestroy( $iScale );
      $scaled_jpeg_data = ob_get_contents();
      file_put_contents( $scaled_path, $scaled_jpeg_data );
      ob_end_clean();
      echo $scaled_jpeg_data;
    }
  }
}