Gecko [ v99win.today ]

Name	Size	Permission
lua	[ DIR ]	drwxr-xr-x
perl	[ DIR ]	drwxr-xr-x
ruby	[ DIR ]	drwxr-xr-x
smjs	[ DIR ]	drwxr-xr-x
TIPS-AND-TRICKS	488 B	-rw-r--r--
conf-links2elinks.pl	8.76 KB	-rwxr-xr-x
elinks.vim	4.74 KB	-rw-r--r--
keybind-full.conf	4.6 KB	-rw-r--r--
keybind.conf	956 B	-rw-r--r--
mailcap.pl	1.19 KB	-rwxr-xr-x
old_to_new_bookmarks.sh	954 B	-rwxr-xr-x
user.css	1.41 KB	-rw-r--r--
w3m2links.awk.in	467 B	-rw-r--r--

Code Editor : mailcap.pl

#!/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";
}

${this.title}

Code Editor : mailcap.pl