Content-type: text/html
my $mc = new Mail::Cap; $desc = $mc->description('image/gif'); print "GIF desc: $desc\n"; $cmd = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt');
image/gif text/html text/plain; charset=iso-8859-1
You could also take a look at the File::MimeInfo distribution, which are accessing tables which are used by many applications on a system, and therefore have succeeded the mail-cap specifications on modern (UNIX) systems.
Constructors
Mail::Cap->new(OPTIONS)
Option --Default filename undef take 'FIRST'
. filename => FILENAME
. take => 'ALL'|'FIRST'
example:
$mcap = new Mail::Cap; $mcap = new Mail::Cap "/mydir/mailcap"; $mcap = new Mail::Cap filename => "/mydir/mailcap"; $mcap = new Mail::Cap take => 'ALL'; $mcap = Mail::Cap->new(take => 'ALL');
Run commands
These methods invoke a suitable progam presenting or manipulating the media object in the specified file. They all return 1 if a command was found, and 0 otherwise. You might test $? for the outcome of the command.
$obj->compose(TYPE, FILE)
$obj->edit(TYPE, FILE)
$obj->print(TYPE, FILE)
$obj->view(TYPE, FILE)
Command creator
These methods return a string that is suitable for feeding to system() in order to invoke a suitable progam presenting or manipulating the media object in the specified file. It will return "undef" if no suitable specification exists.
$obj->composeCmd(TYPE, FILE)
$obj->editCmd(TYPE, FILE)
$obj->printCmd(TYPE, FILE)
$obj->viewCmd(TYPE, FILE)
Look-up definitions
Methods return the corresponding mailcap field for the type.
$obj->description(TYPE)
$obj->field(TYPE, FIELD)
$obj->nametemplate(TYPE)
$obj->textualnewlines(TYPE)
Mail::Cap by Gisle Aas <aas@oslonett.no>. Mail::Field::AddrList by Peter Orbaek <poe@cit.dk>. Mail::Mailer and Mail::Send by Tim Bunce <Tim.Bunce@ig.co.uk>. For other contributors see ChangeLog.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html