Modify Content-Disposition Header Fields in MIME

Demonstrates how to edit the Content-Disposition header in MIME sub-parts.

Download Chilkat Perl Module

use chilkat;


#  The intent of this example is to modify Content-Disposition
#  header fields from this:
# 
#  Content-Disposition: attachment; filename="a4 manuscript.pdf"; size=0;
#  	creation-date="Thu, 12 Apr 2007 06:39:10 GMT";
#  	modification-date="Thu, 12 Apr 2007 06:39:10 GMT"
# 
#  to this:
# 
#  content-disposition: attachment;
#  	 filename="a4 manuscript.pdf"
# 

$mime = new chilkat::CkMime();

$success = $mime->UnlockComponent("Anything for 30-day trial");
if ($success == 0) {
    print "Failed to unlock" . "\n";
    exit;
}

$success = $mime->LoadMimeFile("testMime.txt");
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

#  This example assumes the header fields to be modified
#  are located directly beneath the top-level MIME part.

$numParts = $mime->get_NumParts();

for ($i = 0; $i <= $numParts - 1; $i++) {
    $mimePart = $mime->GetPart($i);

    $disposition = $mimePart->disposition();
    if ($disposition == "attachment") {
        $filename = $mimePart->filename();
        #  AddHeaderField replaces the existing field if it already exists.
        #  Discard the contents of the existing Content-Disposition
        #  and replace it with "attachment".
        $mimePart->AddHeaderField("content-disposition","attachment");

        #  Now add the filename attribute:
        $mimePart->put_Filename($filename);
    }

}

$success = $mime->SaveMime("modifiedMime.txt");