From mboxrd@z Thu Jan  1 00:00:00 1970
From: johnbent@lanl.gov (John Bent)
Date: Tue, 22 Jan 2008 15:33:22 -0700
Subject: [sup-talk] missing run-mailcap
In-Reply-To: <1201019996-sup-8960@tangerine.lanl.gov>
References: <1201019996-sup-8960@tangerine.lanl.gov>
Message-ID: <1201041081-sup-6034@tangerine.lanl.gov>

Excerpts from John Bent's message of Tue Jan 22 09:40:05 -0700 2008:
> I saw some earlier discussion in the list archives about a missing run-mailcap
> script.  I had this same problem too on my mac (10.4.11 Power PC).  It's sort
> of a kluge but I dealt with this by writing my own /usr/bin/run-mailcap which
> just does a simple hash lookup of mime type to rename the file with an
> appropriate extension and then uses the mac 'open' command.  I haven't fully
> populated the hash table yet; I'll do that lazily.  If the 'file' command
> could return an extension, I'd be tempted to use it and avoid the hash table
> but the best it can do is return the mime-type which we already know.  Or if
> there was some way to pass the mime-type to the 'open' command, that'd be
> better too.  But at least this works...
> 

Here's a cleaner version that doesn't have anything hard-coded but relies
on the 'find' command and the MIME::Types perl module:

============================================================================


#! /opt/local/bin/perl

use MIME::Types;

my ( $type, $file ) = split( /:/, $ARGV[1] );
if ( $type eq 'application/octet-stream' ) {
    $type = findType( $file );
}
my $extension = findExtension( $type );

my $newfile    = "$file.$extension";
my $command    = "open $newfile";
rename( $file, $newfile );
Log( "Extension for $type is $extension -> $command\n" );
system( $command ); 

#######################################################################

sub
findExtension {
    my $mimetypes           = MIME::Types->new;
    my MIME::Type $mimetype = $mimetypes->type($type);
    my @extensions          = $mimetype->extensions;
    return $extensions[0];
}

sub
findType {
    my $file = shift;
    my $type = `file -i -b $file`;
    chomp( $type );
    return $type;
}

my $log_fd;
sub
Log {
    if ( ! defined $log_fd ) {
        open LOG, ">>/tmp/mailcap.log" or warn "open log: $!\n";
        $log_fd = \*LOG;
    }
    #print "@_";
    print LOG "@_";
}