1/*
2   +----------------------------------------------------------------------+
3   | PHP Version 7                                                        |
4   +----------------------------------------------------------------------+
5   | Copyright (c) 1997-2015 The PHP Group                                |
6   +----------------------------------------------------------------------+
7   | This source file is subject to version 3.01 of the PHP license,      |
8   | that is bundled with this package in the file LICENSE, and is        |
9   | available through the world-wide-web at the following url:           |
10   | http://www.php.net/license/3_01.txt                                  |
11   | If you did not receive a copy of the PHP license and are unable to   |
12   | obtain it through the world-wide-web, please send a note to          |
13   | license@php.net so we can mail you a copy immediately.               |
14   +----------------------------------------------------------------------+
15   | Author: Thies C. Arntzen <thies@thieso.net>                          |
16   +----------------------------------------------------------------------+
17 */
18
19/* $Id$ */
20
21/*
22 * Functions to parse & compse IPTC data.
23 * PhotoShop >= 3.0 can read and write textual data to JPEG files.
24 * ... more to come .....
25 *
26 * i know, parts of this is now duplicated in image.c
27 * but in this case i think it's okay!
28 */
29
30/*
31 * TODO:
32 *  - add IPTC translation table
33 */
34
35#include "php.h"
36#include "php_iptc.h"
37#include "ext/standard/head.h"
38
39#include <sys/stat.h>
40
41
42/* some defines for the different JPEG block types */
43#define M_SOF0  0xC0            /* Start Of Frame N */
44#define M_SOF1  0xC1            /* N indicates which compression process */
45#define M_SOF2  0xC2            /* Only SOF0-SOF2 are now in common use */
46#define M_SOF3  0xC3
47#define M_SOF5  0xC5            /* NB: codes C4 and CC are NOT SOF markers */
48#define M_SOF6  0xC6
49#define M_SOF7  0xC7
50#define M_SOF9  0xC9
51#define M_SOF10 0xCA
52#define M_SOF11 0xCB
53#define M_SOF13 0xCD
54#define M_SOF14 0xCE
55#define M_SOF15 0xCF
56#define M_SOI   0xD8
57#define M_EOI   0xD9            /* End Of Image (end of datastream) */
58#define M_SOS   0xDA            /* Start Of Scan (begins compressed data) */
59#define M_APP0  0xe0
60#define M_APP1  0xe1
61#define M_APP2  0xe2
62#define M_APP3  0xe3
63#define M_APP4  0xe4
64#define M_APP5  0xe5
65#define M_APP6  0xe6
66#define M_APP7  0xe7
67#define M_APP8  0xe8
68#define M_APP9  0xe9
69#define M_APP10 0xea
70#define M_APP11 0xeb
71#define M_APP12 0xec
72#define M_APP13 0xed
73#define M_APP14 0xee
74#define M_APP15 0xef
75
76/* {{{ php_iptc_put1
77 */
78static int php_iptc_put1(FILE *fp, int spool, unsigned char c, unsigned char **spoolbuf)
79{
80    if (spool > 0)
81        PUTC(c);
82
83    if (spoolbuf) *(*spoolbuf)++ = c;
84
85    return c;
86}
87/* }}} */
88
89/* {{{ php_iptc_get1
90 */
91static int php_iptc_get1(FILE *fp, int spool, unsigned char **spoolbuf)
92{
93    int c;
94    char cc;
95
96    c = getc(fp);
97
98    if (c == EOF) return EOF;
99
100    if (spool > 0) {
101        cc = c;
102        PUTC(cc);
103    }
104
105    if (spoolbuf) *(*spoolbuf)++ = c;
106
107    return c;
108}
109/* }}} */
110
111/* {{{ php_iptc_read_remaining
112 */
113static int php_iptc_read_remaining(FILE *fp, int spool, unsigned char **spoolbuf)
114{
115    while (php_iptc_get1(fp, spool, spoolbuf) != EOF) continue;
116
117    return M_EOI;
118}
119/* }}} */
120
121/* {{{ php_iptc_skip_variable
122 */
123static int php_iptc_skip_variable(FILE *fp, int spool, unsigned char **spoolbuf)
124{
125    unsigned int  length;
126    int c1, c2;
127
128    if ((c1 = php_iptc_get1(fp, spool, spoolbuf)) == EOF) return M_EOI;
129
130    if ((c2 = php_iptc_get1(fp, spool, spoolbuf)) == EOF) return M_EOI;
131
132    length = (((unsigned char) c1) << 8) + ((unsigned char) c2);
133
134    length -= 2;
135
136    while (length--)
137        if (php_iptc_get1(fp, spool, spoolbuf) == EOF) return M_EOI;
138
139    return 0;
140}
141/* }}} */
142
143/* {{{ php_iptc_next_marker
144 */
145static int php_iptc_next_marker(FILE *fp, int spool, unsigned char **spoolbuf)
146{
147    int c;
148
149    /* skip unimportant stuff */
150
151    c = php_iptc_get1(fp, spool, spoolbuf);
152
153    if (c == EOF) return M_EOI;
154
155    while (c != 0xff) {
156        if ((c = php_iptc_get1(fp, spool, spoolbuf)) == EOF)
157            return M_EOI; /* we hit EOF */
158    }
159
160    /* get marker byte, swallowing possible padding */
161    do {
162        c = php_iptc_get1(fp, 0, 0);
163        if (c == EOF)
164            return M_EOI;       /* we hit EOF */
165        else
166        if (c == 0xff)
167            php_iptc_put1(fp, spool, (unsigned char)c, spoolbuf);
168    } while (c == 0xff);
169
170    return (unsigned int) c;
171}
172/* }}} */
173
174static char psheader[] = "\xFF\xED\0\0Photoshop 3.0\08BIM\x04\x04\0\0\0\0";
175
176/* {{{ proto array iptcembed(string iptcdata, string jpeg_file_name [, int spool])
177   Embed binary IPTC data into a JPEG image. */
178PHP_FUNCTION(iptcembed)
179{
180    char *iptcdata, *jpeg_file;
181    size_t iptcdata_len, jpeg_file_len;
182    zend_long spool = 0;
183    FILE *fp;
184    unsigned int marker, done = 0;
185    int inx;
186    zend_string *spoolbuf = NULL;
187    unsigned char *poi = NULL;
188    zend_stat_t sb;
189    zend_bool written = 0;
190
191    if (zend_parse_parameters(ZEND_NUM_ARGS(), "sp|l", &iptcdata, &iptcdata_len, &jpeg_file, &jpeg_file_len, &spool) != SUCCESS) {
192        return;
193    }
194
195    if (php_check_open_basedir(jpeg_file)) {
196        RETURN_FALSE;
197    }
198
199    if ((fp = VCWD_FOPEN(jpeg_file, "rb")) == 0) {
200        php_error_docref(NULL, E_WARNING, "Unable to open %s", jpeg_file);
201        RETURN_FALSE;
202    }
203
204    if (spool < 2) {
205        zend_fstat(fileno(fp), &sb);
206
207        spoolbuf = zend_string_alloc(iptcdata_len + sizeof(psheader) + sb.st_size + 1024, 0);
208        poi = (unsigned char*)ZSTR_VAL(spoolbuf);
209        memset(poi, 0, iptcdata_len + sizeof(psheader) + sb.st_size + 1024 + 1);
210    }
211
212    if (php_iptc_get1(fp, spool, poi?&poi:0) != 0xFF) {
213        fclose(fp);
214        if (spoolbuf) {
215            zend_string_free(spoolbuf);
216        }
217        RETURN_FALSE;
218    }
219
220    if (php_iptc_get1(fp, spool, poi?&poi:0) != 0xD8) {
221        fclose(fp);
222        if (spoolbuf) {
223            zend_string_free(spoolbuf);
224        }
225        RETURN_FALSE;
226    }
227
228    while (!done) {
229        marker = php_iptc_next_marker(fp, spool, poi?&poi:0);
230
231        if (marker == M_EOI) { /* EOF */
232            break;
233        } else if (marker != M_APP13) {
234            php_iptc_put1(fp, spool, (unsigned char)marker, poi?&poi:0);
235        }
236
237        switch (marker) {
238            case M_APP13:
239                /* we are going to write a new APP13 marker, so don't output the old one */
240                php_iptc_skip_variable(fp, 0, 0);
241                fgetc(fp); /* skip already copied 0xFF byte */
242                php_iptc_read_remaining(fp, spool, poi?&poi:0);
243                done = 1;
244                break;
245
246            case M_APP0:
247                /* APP0 is in each and every JPEG, so when we hit APP0 we insert our new APP13! */
248            case M_APP1:
249                if (written) {
250                    /* don't try to write the data twice */
251                    break;
252                }
253                written = 1;
254
255                php_iptc_skip_variable(fp, spool, poi?&poi:0);
256
257                if (iptcdata_len & 1) {
258                    iptcdata_len++; /* make the length even */
259                }
260
261                psheader[ 2 ] = (iptcdata_len+28)>>8;
262                psheader[ 3 ] = (iptcdata_len+28)&0xff;
263
264                for (inx = 0; inx < 28; inx++) {
265                    php_iptc_put1(fp, spool, psheader[inx], poi?&poi:0);
266                }
267
268                php_iptc_put1(fp, spool, (unsigned char)(iptcdata_len>>8), poi?&poi:0);
269                php_iptc_put1(fp, spool, (unsigned char)(iptcdata_len&0xff), poi?&poi:0);
270
271                for (inx = 0; inx < iptcdata_len; inx++) {
272                    php_iptc_put1(fp, spool, iptcdata[inx], poi?&poi:0);
273                }
274                break;
275
276            case M_SOS:
277                /* we hit data, no more marker-inserting can be done! */
278                php_iptc_read_remaining(fp, spool, poi?&poi:0);
279                done = 1;
280                break;
281
282            default:
283                php_iptc_skip_variable(fp, spool, poi?&poi:0);
284                break;
285        }
286    }
287
288    fclose(fp);
289
290    if (spool < 2) {
291        spoolbuf = zend_string_truncate(spoolbuf, poi - (unsigned char*)ZSTR_VAL(spoolbuf), 0);
292        RETURN_NEW_STR(spoolbuf);
293    } else {
294        RETURN_TRUE;
295    }
296}
297/* }}} */
298
299/* {{{ proto array iptcparse(string iptcdata)
300   Parse binary IPTC-data into associative array */
301PHP_FUNCTION(iptcparse)
302{
303    int inx = 0, len;
304    unsigned int tagsfound = 0;
305    unsigned char *buffer, recnum, dataset;
306    char *str, key[16];
307    size_t str_len;
308    zval values, *element;
309
310    if (zend_parse_parameters(ZEND_NUM_ARGS(), "s", &str, &str_len) != SUCCESS) {
311        return;
312    }
313
314    buffer = (unsigned char *)str;
315
316    while (inx < str_len) { /* find 1st tag */
317        if ((buffer[inx] == 0x1c) && ((buffer[inx+1] == 0x01) || (buffer[inx+1] == 0x02))){
318            break;
319        } else {
320            inx++;
321        }
322    }
323
324    while (inx < str_len) {
325        if (buffer[ inx++ ] != 0x1c) {
326            break;   /* we ran against some data which does not conform to IPTC - stop parsing! */
327        }
328
329        if ((inx + 4) >= str_len)
330            break;
331
332        dataset = buffer[ inx++ ];
333        recnum = buffer[ inx++ ];
334
335        if (buffer[ inx ] & (unsigned char) 0x80) { /* long tag */
336            if((inx+6) >= str_len) {
337                break;
338            }
339            len = (((zend_long) buffer[ inx + 2 ]) << 24) + (((zend_long) buffer[ inx + 3 ]) << 16) +
340                  (((zend_long) buffer[ inx + 4 ]) <<  8) + (((zend_long) buffer[ inx + 5 ]));
341            inx += 6;
342        } else { /* short tag */
343            len = (((unsigned short) buffer[ inx ])<<8) | (unsigned short)buffer[ inx+1 ];
344            inx += 2;
345        }
346
347        if ((len < 0) || (len > str_len) || (inx + len) > str_len) {
348            break;
349        }
350
351        snprintf(key, sizeof(key), "%d#%03d", (unsigned int) dataset, (unsigned int) recnum);
352
353        if (tagsfound == 0) { /* found the 1st tag - initialize the return array */
354            array_init(return_value);
355        }
356
357        if ((element = zend_hash_str_find(Z_ARRVAL_P(return_value), key, strlen(key))) == NULL) {
358            array_init(&values);
359
360            element = zend_hash_str_update(Z_ARRVAL_P(return_value), key, strlen(key), &values);
361        }
362
363        add_next_index_stringl(element, (char *) buffer+inx, len);
364        inx += len;
365        tagsfound++;
366    }
367
368    if (! tagsfound) {
369        RETURN_FALSE;
370    }
371}
372/* }}} */
373
374/*
375 * Local variables:
376 * tab-width: 4
377 * c-basic-offset: 4
378 * End:
379 * vim600: sw=4 ts=4 fdm=marker
380 * vim<600: sw=4 ts=4
381 */
382