Perl

Download Web Page to MHT with w/ Disk Cache

See more MHT / HTML Email Examples

Downloads a web page into a .mht web archive. Embedded images and style sheets are loaded and/or saved to a disk cache. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $mht = Chilkat2::Mht->new;

# Use a single directory to hold cached files.
# (Make sure it is a directory your app has permission to create files.)
$mht->NumCacheLevels(0);
$mht->AddCacheRoot('/Users/chilkat/temp/mhtCache/');

# Tell the MHT component to save files to cache,
# and to retrieve from cache if possible:
$mht->FetchFromCache(1);
$mht->UpdateCache(1);

# The 1st time this is run, the parts (image files,
# style sheets, etc.) will be saved to the disk cache.
# The 2nd time this is run, the parts will load from cache.
# Note: The main content (i.e. the HTML page)
# is not saved to cache, nor is it retrieved from cache.
# It is only the sub-parts (embedded images, style sheets)
# that are saved to and loaded from cache.
my $success = $mht->GetAndSaveMHT('http://www.intel.com/', 'intel.mht');
if (!$success) {
    print $mht->LastErrorText, "\n";
} else {
    print "MHT Created!\n";
}