<?php
/*
Plugin Name: Reverse data
Version: 0.1.0
Description: Write into images data entered in Piwigo (tags)
Plugin URI: None
Author: TdM
*/

if (!defined('PHPWG_ROOT_PATH')) die('Hacking attempt!');
define('REVERSE_PATH' , PHPWG_PLUGINS_PATH . basename(dirname(__FILE__)) . '/');

function single_write_tags($tags_id, $image_id){ multiple_write_tags($tags_id,array($image_id)); }

function multiple_write_tags($tags_id,$images_id){

  include_once("include/iptc.php");
  include_once(PHPWG_ROOT_PATH.'include/functions_picture.inc.php');

  $query = '
  SELECT
    id,
    path,
    has_high
    FROM '.IMAGES_TABLE.'
    WHERE id IN ('.implode(',', $images_id).')
  ;';
  $result = pwg_query($query);
  
  while ($row = pwg_db_fetch_assoc($result)){
  
    if (!empty($row['has_high']) and get_boolean($row['has_high']))
    
      // Récupération du chemin vers l'image HD
      $path = get_high_path($row);
      
      // Récupération des valeurs des keywords
      $query = '
      SELECT name
        FROM '.TAGS_TABLE.'
        WHERE id IN ('.implode(',', $tags_id).')
      ;';
      $keywords = array_from_query($query, 'name');
      
      // Tag IPTC de l'image HD
      $iptc = new iptc($path);
      $iptc->set(IPTC_KEYWORDS,$keywords); 
      $iptc->write();
    }
  }
}

add_event_handler('add_tags', 'multiple_write_tags', 50, 2);
add_event_handler('set_tags', 'single_write_tags', 50, 2);

?>

<?php
  
  /************************************************************\
  IPTC EASY 1.0 - IPTC data manipulator for JPEG images       
  All reserved www.image-host-script.com - Sep 15, 2008
  Modified by TdM - December 2011  
  \************************************************************/
  
  DEFINE('IPTC_OBJECT_NAME', '005');
  DEFINE('IPTC_EDIT_STATUS', '007');
  DEFINE('IPTC_PRIORITY', '010');
  DEFINE('IPTC_CATEGORY', '015');
  DEFINE('IPTC_SUPPLEMENTAL_CATEGORY', '020');
  DEFINE('IPTC_FIXTURE_IDENTIFIER', '022');
  DEFINE('IPTC_KEYWORDS', '025');
  DEFINE('IPTC_RELEASE_DATE', '030');
  DEFINE('IPTC_RELEASE_TIME', '035');
  DEFINE('IPTC_SPECIAL_INSTRUCTIONS', '040');
  DEFINE('IPTC_REFERENCE_SERVICE', '045');
  DEFINE('IPTC_REFERENCE_DATE', '047');
  DEFINE('IPTC_REFERENCE_NUMBER', '050');
  DEFINE('IPTC_CREATED_DATE', '055');
  DEFINE('IPTC_CREATED_TIME', '060');
  DEFINE('IPTC_ORIGINATING_PROGRAM', '065');
  DEFINE('IPTC_PROGRAM_VERSION', '070');
  DEFINE('IPTC_OBJECT_CYCLE', '075');
  DEFINE('IPTC_BYLINE', '080');
  DEFINE('IPTC_BYLINE_TITLE', '085');
  DEFINE('IPTC_CITY', '090');
  DEFINE('IPTC_PROVINCE_STATE', '095');
  DEFINE('IPTC_COUNTRY_CODE', '100');
  DEFINE('IPTC_COUNTRY', '101');
  DEFINE('IPTC_ORIGINAL_TRANSMISSION_REFERENCE',     '103');
  DEFINE('IPTC_HEADLINE', '105');
  DEFINE('IPTC_CREDIT', '110');
  DEFINE('IPTC_SOURCE', '115');
  DEFINE('IPTC_COPYRIGHT_STRING', '116');
  DEFINE('IPTC_CAPTION', '120');
  DEFINE('IPTC_LOCAL_CAPTION', '121');
  
  class iptc {
    var $meta=Array();
    var $hasmeta=false;
    var $file=false;
    
    
    function iptc($filename) {
      $size = getimagesize($filename,$info);
      $this->hasmeta = isset($info["APP13"]);
      if($this->hasmeta)
        $this->meta = iptcparse ($info["APP13"]);
      $this->file = $filename;
    }
    
    function set($tag, $data) { // Cette fonction remplace les meta-data existante
      if(is_array($data)){
        $c = count($data);
        for ($i=0; $i <$c; $i++){
          $this->meta["2#$tag"][$i] = $data[$i];
        }                
        $this->hasmeta=true;
      } else {
        $this->meta["2#$tag"]= Array( $data );
        $this->hasmeta=true;
      }
    } 
    
    function get($tag) {      
      if(array_key_exists("2#$tag", $this->meta))
      {
        return $this->meta["2#$tag"];
      }
      else
        return false;
    }
    
    function dump() {
      print_r($this->meta);
    }
    
    function binary() { 
      
      // These two lines ensure that UTF8-Encoding will work (set the 1:90 field in the envelop)
      // @see http://cpanforum.com/threads/2114 for a hint
      $utf8seq = chr(0x1b) . chr(0x25) . chr(0x47);
      $length = strlen($utf8seq);
      $iptc_new = chr(0x1C) . chr(1) . chr('090') . chr($length >> 8) . chr($length & 0xFF) . $utf8seq;
      
      foreach (array_keys($this->meta) as $s) { 
        $tag = str_replace("2#", "", $s); 
        if(count($this->meta[$s])>1){ 
          foreach ($this->meta[$s] as $row){ 
            $iptc_new .= $this->iptc_maketag(2, $tag, $row); 
          } 
        }else { 
          $iptc_new .= $this->iptc_maketag(2, $tag, $this->meta[$s][0]); 
        } 
      } 
      return $iptc_new; 
    } 
    
    function iptc_maketag($rec,$dat,$val) {
      $len = strlen($val);
      if ($len < 0x8000) {
        return chr(0x1c).chr($rec).chr($dat).
          chr($len >> 8).
          chr($len & 0xff).
          $val;
      } else {
        return chr(0x1c).chr($rec).chr($dat).
          chr(0x80).chr(0x04).
          chr(($len >> 24) & 0xff).
          chr(($len >> 16) & 0xff).
          chr(($len >> 8 ) & 0xff).
          chr(($len ) & 0xff).
          $val;
        
      }
    }  
  
    function write() {
      if(!function_exists('iptcembed')) return false;
      $mode = 0;
      $content = iptcembed($this->binary(), $this->file, $mode);
    
      if(is_link($this->file)) // Linux only
    $filename = readlink($this->file);
    else
    $filename = $this->file;
    
      @unlink($filename); #delete if exists
      
      $fp = fopen($filename, "w");
      fwrite($fp, $content);
      fclose($fp);
    }    
  
  };
    
?>