Add XMP MetaData to JPG or TIFF

Demonstrates how to add XMP metadata to a JPG or TIFF image that doesn't already have XMP metadata.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$xmp = new chilkat::CkXmp();

$success = $xmp->UnlockComponent("Anything for 30-day trial.");
if ($success != 1) {
    print $xmp->lastErrorText() . "\n";
    exit;
}

#  The first step is to create a new XMP document, which is nothing
#  more than XML.  The NewXmp method returns an XML document with
#  the standard XMP boilerplate.
# xml is a CkXml
$xml = $xmp->NewXmp();

#  Add some properties...
$success = $xmp->AddSimpleStr($xml,"Iptc4xmpCore:Chilkat","Blah blah");
#  If you wish to view the XML, save it to a file and review it
#  with a text editor:
$success = $xml->SaveXml("newXmp.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\n";
    exit;
}

#  To add the XMP to the JPG (or TIFF), simply load the JPG,
#  append the XMP, and save:
$success = $xmp->LoadAppFile("scream.jpg");
if ($success != 1) {
    print $xmp->lastErrorText() . "\n";
    exit;
}

$success = $xmp->Append($xml);
if ($success != 1) {
    print $xmp->lastErrorText() . "\n";
    exit;
}

$success = $xmp->SaveAppFile("screamOut.jpg");
if ($success != 1) {
    print $xmp->lastErrorText() . "\n";
    exit;
}