Select Code to Download

Select or download this

[template] 
url          = http://www.foo.com/    # URL to fetch
AvantGo      = No                     # apply heuristics
...
bpp          = 4                      # pits-per-pixel
compression  = zlib                   # or 'DOC' or 'None'
title        = My Document            # title of output

Select or download this

my $message     = new Mail::Internet ([<>]);
my $from        = $message->get('From');
my $subject     = $message->get('Subject');
...
}
$line .= "\n";
push @unwrappeddata, $line;

Select or download this

use Digest::MD5  qw(md5 md5_hex md5_base64);
 
my $date        = UnixDate("today","%b %e, %Y at %T");
...
open(INFILE, ">$workpath/$md5file.msg") or die "$?";
print INFILE @unwrappeddata;
close ('INFILE');

Select or download this

my $ConfigFile = "$workpath/$md5file.msg";
tie my %ini, 'Config::IniFiles', (-file => $ConfigFile);

...
$title          = $template{'title'};      

$avantgo        = "No" unless $template{'AvantGo'};

Select or download this

my $buildcmd    = "/path/to/foo/binary";   
my @buildcmd;
push @buildcmd, "-p";
...
} else {
        print_error_message();
}

Select or download this

if ($maxd && $maxd =~ /^\d$/) {
      $maxd < 3 ? $maxd : $maxd=2;
      $maxd_msg   = "$maxd level" . ($maxd > 1 ? "s" : "") . " down";
}