/usr/share/doc/elinks-data/examples/mailcap.pl is in elinks-data 0.12~pre6-11build2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #!/usr/bin/perl -w
# mailcap to elinks.conf converter (aka quick hack)
# version 1.00 by <grin@tolna.net>
# Released under GPLv2 or later
#
# Usage: mailcap-convert.pl /etc/mailcap >> ~/.elinks/elinks.conf
#
print "association \"-=BEGIN DEBIAN CONVERT=-\" \"\" \"\" 23 1\n";
while( <> ) {
chomp;
next if /^\s*(#|$)/;
@fields = split /;\s*/;
# change %s to % in the command
$fields[1] =~ s/%s/%/g;
my @out = ( "External association", $fields[0], $fields[1] );
for( my $i=2; $i<=$#fields; $i++ ) {
if( $fields[$i] =~ m/description="?([^"]+)"?/ ) {
# description
$out[0] = $1;
} elsif( $fields[$i] =~ m/nametemplate=(.+)/ ) {
# extension for the mime type
my $ext = $1;
$ext =~ s/%s\.(.+)$/$1/;
&new_ext($ext,$fields[0]);
}
}
&new_assoc( \@out );
}
print "association \"-=END DEBIAN CONVERT=-\" \"\" \"\" 23 1\n";
sub new_assoc {
my $aref = shift;
print "association ";
for my $i (0..2) {
print "\"$aref->[$i]\" ";
}
print "23 1\n";
}
sub new_ext {
print "extension";
for my $i (0..1) {
print " \"$_[$i]\"";
}
print "\n";
}
|