packages: mailcap/mailcap.spec, mailcap/run-mailcap (NEW), mailcap/run-mail...

gotar gotar at pld-linux.org
Thu Apr 30 18:06:10 CEST 2009


Author: gotar                        Date: Thu Apr 30 16:06:10 2009 GMT
Module: packages                      Tag: HEAD
---- Log message:
- added run-mailcap from Debian mime-support, bumped version to 2.3

---- Files affected:
packages/mailcap:
   mailcap.spec (1.54 -> 1.55) , run-mailcap (NONE -> 1.1)  (NEW), run-mailcap.man (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: packages/mailcap/mailcap.spec
diff -u packages/mailcap/mailcap.spec:1.54 packages/mailcap/mailcap.spec:1.55
--- packages/mailcap/mailcap.spec:1.54	Sun Apr 26 10:33:35 2009
+++ packages/mailcap/mailcap.spec	Thu Apr 30 18:06:05 2009
@@ -9,13 +9,15 @@
 Summary(pt_BR.UTF-8):	Define aplicações auxiliares multimídia para vários programas
 Summary(tr.UTF-8):	Çeşitli programlar için çokluortam yardımcı uygulamaları tanımlar
 Name:		mailcap
-Version:	2.2
-Release:	5
+Version:	2.3
+Release:	1
 License:	Public Domain
 Group:		Base
 Source0:	%{name}
 Source1:	%{name}.4
 Source2:	mime.types
+Source3:	run-%{name}
+Source4:	run-%{name}.man
 BuildRequires:	rpm >= 4.4.9-56
 Suggests:	colordiff
 Suggests:	dvi2tty
@@ -88,10 +90,12 @@
 
 %install
 rm -rf $RPM_BUILD_ROOT
-install -d $RPM_BUILD_ROOT{%{_sysconfdir},%{_mandir}/man4}
+install -d $RPM_BUILD_ROOT{%{_sysconfdir},%{_mandir}/man{1,4},%{_bindir}}
 
 install %{SOURCE0} %{SOURCE2} $RPM_BUILD_ROOT%{_sysconfdir}
 install %{SOURCE1} $RPM_BUILD_ROOT%{_mandir}/man4
+install %{SOURCE4} $RPM_BUILD_ROOT%{_mandir}/man1/run-%{name}.1
+install %{SOURCE3} $RPM_BUILD_ROOT%{_bindir}
 
 %clean
 rm -rf $RPM_BUILD_ROOT
@@ -99,6 +103,8 @@
 %files
 %defattr(644,root,root,755)
 %config(noreplace) %verify(not md5 mtime size) %{_sysconfdir}/*
+%attr(755,root,root) %{_bindir}/*
+%{_mandir}/man1/*
 %{_mandir}/man4/*
 
 %define date	%(echo `LC_ALL="C" date +"%a %b %d %Y"`)
@@ -107,6 +113,9 @@
 All persons listed below can be reached at <cvs_login>@pld-linux.org
 
 $Log$
+Revision 1.55  2009/04/30 16:06:05  gotar
+- added run-mailcap from Debian mime-support, bumped version to 2.3
+
 Revision 1.54  2009/04/26 08:33:35  pawelz
 - S: tnef (tool for decoding winmail.dat)
 

================================================================
Index: packages/mailcap/run-mailcap
diff -u /dev/null packages/mailcap/run-mailcap:1.1
--- /dev/null	Thu Apr 30 18:06:10 2009
+++ packages/mailcap/run-mailcap	Thu Apr 30 18:06:05 2009
@@ -0,0 +1,548 @@
+#! /usr/bin/perl
+###############################################################################
+#
+#  Run-Mailcap:  Run a program specified in the mailcap file based on a mime
+#  type.
+#
+#  Written by Brian White <bcwhite at pobox.com>
+#  This file has been placed in the public domain (the only true "free").
+#
+###############################################################################
+
+
+$debug=0;
+$etcmimetyp="/etc/mime.types";
+$shrmimetyp="/usr/share/etc/mime.types";
+$locmimetyp="/usr/local/etc/mime.types";
+$usrmimetyp="$ENV{HOME}/.mime.types";
+$xtermprgrm="/usr/bin/x-terminal-emulator"; # xterm?
+$defmimetyp="application/octet-stream";
+$quotedsemi=chr(255);
+$quotedprct=chr(254);
+$retcode=0;
+
+
+%patterntypes =
+(
+ '(^|/)crontab[^/]+$'                           => 'text/x-crontab',            #'
+ '/man\d*/'                                     => 'application/x-troff-man',   #'
+ '\.\d[^\.]*$'                                  => 'application/x-troff-man',   #'
+);
+
+
+
+sub Usage {
+    my($error) = @_;
+    print STDERR $error,"\n\n" if $error;
+
+    print STDERR "Use: $0 <--action=VAL> [--debug] [MIME-TYPE:[ENCODING:]]FILE [...]\n\n";
+    print STDERR "Options:\n";
+    print STDERR "  action        specify what action to do on these files (default=view)\n";
+    print STDERR "  debug         be verbose about what's going on\n";
+    print STDERR "\n";
+    print STDERR "Mime-Type:\n";
+    print STDERR "  any standard mime type designation in the form <class>/<subtype> -- if\n";
+    print STDERR "  not specified, it will be determined from the filename extension\n\n";
+    print STDERR "Encoding:\n";
+    print STDERR "  how the file (and type) has been encoded (only \"gzip\", \"bzip\", \"bzip2\"\n";
+    print STDERR "  and \"compress\" are supported) -- if not specified, it will be determined\n";
+    print STDERR "  from the filename extension\n\n";
+
+    exit ($error ? 1 : 0);
+}
+
+
+
+sub EncodingForFile {
+    my($file) = @_;
+    my $encoding;
+
+    if ($file =~ m/\.gz$/)  { $encoding = "gzip";       }
+    if ($file =~ m/\.bz$/)  { $encoding = "bzip";       }
+    if ($file =~ m/\.bz2$/) { $encoding = "bzip2";      }
+    if ($file =~ m/\.Z$/)   { $encoding = "compress";   }
+
+    print STDERR " - file \"$file\" has encoding \"$encoding\"\n" if $debug && $encoding;
+
+    return $encoding;
+}
+
+
+
+sub ReadMimetypes {
+    my($file) = @_;
+
+    return unless -r $file;
+
+    print STDERR " - Reading mime.types file \"$file\"...\n" if $debug;
+    open(MIMETYPES,"<$file") || die "Error: could not read \"$file\" -- $!\n";
+    while (<MIMETYPES>) {
+        chomp;
+        s/\#.*$//;
+        next if (m/^\s*$/);
+
+        $_=lc($_);
+        my($type, at exts) = split;
+
+        foreach (@exts) {
+            $mimetypes{$_} = $type unless exists $mimetypes{$_};
+        }
+    }
+    close MIMETYPES;
+}
+
+
+
+sub ReadMailcap {
+    my($file) = @_;
+    my $line = "";
+
+    return unless -r $file;
+
+    print STDERR " - Reading mailcap file \"$file\"...\n" if $debug;
+    open(MAILCAP,"<$file") || die "Error: could not read \"$file\" -- $!\n";
+    while (<MAILCAP>) {
+        chomp;
+        s/^\s+// if $line;
+        $line .= $_;
+        next unless $line;
+        if ($line =~ m/^\s*\#/) {
+            $line = "";
+            next;
+        }
+        if ($line =~ m/\\$/) {
+            $line =~ s/\\$//;
+        } else {
+            $line =~ s/\\;/$quotedsemi/go;
+            $line =~ s/\\%/$quotedprct/go;
+            push @mailcap,$line;
+            $line = "";
+        }
+    }
+    close MAILCAP;
+}
+
+
+
+sub TempFile {
+    my($template) = @_;
+    my($cmd,$head,$tail,$tmpfile);
+    $template = "" unless (defined $template);
+
+    ($head,$tail) = split(/%s/,$template,2);
+
+#   $tmpfile = POSIX::tmpnam($name);
+#   unlink($tmpfile);
+
+    $cmd  = "tempfile --mode=600";
+    $cmd .= " --prefix $head" if $head;
+    $cmd .= " --suffix $tail" if $tail;
+
+    $tmpfile = `$cmd`;
+    chomp($tmpfile);
+
+#   $tmpfile = $ENV{TMPDIR};
+#   $tmpfile = "/tmp" unless $tmpfile;
+#   $tmpfile.= "/$name";
+#   unlink($tmpfile);
+
+    return $tmpfile;
+}
+
+
+
+sub SaveStdin {
+    my($match) = @_;
+    my($tmpfile,$amt,$buf);
+
+    $tmpfile = $1 if ($match =~ m/nametemplate=(.*?)\s*($|;)/);
+    $tmpfile = TempFile($tmpfile);
+    open(TMPFILE,">$tmpfile") || die "Error: could not write \"$tmpfile\" -- $!\n";
+    do {
+        $amt = read(STDIN,$buf,102400);
+        print TMPFILE $buf if $amt;
+    } while ($amt != 0);
+    close(TMPFILE);
+
+    return $tmpfile;
+}
+
+
+
+sub DecodeFile {
+    my($efile,$encoding,$action) = @_;
+    my($file,$res);
+
+    $file = $efile;
+    $file =~ s!^.*/!!;          # remove leading directories
+    $file =~ s!\.[^\.]*$!!;     # remove encoding extension
+    $file =~ s!^\.?[^\.]*!%s!;  # replace name with placeholder
+    $file = undef if ($efile eq '-');
+    my $tmpfile = TempFile($file);
+
+    print STDERR " - decoding \"$efile\" as \"$tmpfile\"\n" if $debug;
+
+#   unlink($tmpfile); # should still be acceptable for "compose" output even if exists
+    return $tmpfile if (($efile ne '-' && ! -e $efile) || $action eq 'compose');
+
+    if ($encoding eq "gzip") {
+        if ($efile eq '-') {
+            $res = system "gzip -d >\Q$tmpfile\E";
+        } else {
+            $res = system "gzip -dc \Q$efile\E >\Q$tmpfile\E";
+        }
+    } elsif ($encoding eq "bzip") {
+        if ($efile eq '-') {
+            $res = system "bzip -d >\Q$tmpfile\E";
+        } else {
+            $res = system "bzip -dc <\Q$efile\E >\Q$tmpfile\E";
+        }
+    } elsif ($encoding eq "bzip2") {
+        if ($efile eq '-') {
+            $res = system "bzip2 -d >\Q$tmpfile\E";
+        } else {
+            $res = system "bzip2 -dc <\Q$efile\E >\Q$tmpfile\E";
+        }
+    } elsif ($encoding eq "compress") {
+        if ($efile eq '-') {
+            $res = system "uncompress >\Q$tmpfile\E";
+        } else {
+            $res = system "uncompress <\Q$efile\E >\Q$tmpfile\E";
+        }
+    } else {
+        die "Fatal: unknown encoding \"$encoding\" at";
+    }
+
+    $res = int($res/256);
+    if ($res != 0) {
+        print STDERR "Error: could not decode \"$efile\" -- $!\n";
+        $retcode = 2 if ($retcode < 2);
+        unlink($tmpfile);
+        return;
+    }
+
+#   chmod 0600,$tmpfile; # done already by TempFile
+    return $tmpfile;
+}
+
+
+
+sub EncodeFile {
+    my($dfile,$efile,$encoding) = @_;
+    my($res);
+
+    print STDERR " - encoding \"$dfile\" as \"$efile\"\n";
+
+    if ($encoding eq "gzip") {
+        if ($efile eq '-') {
+            $res = system "gzip -c \Q$dfile\E";
+        } else {
+            $res = system "gzip -c \Q$dfile\E >\Q$efile\E";
+        }
+    } elsif ($encoding eq "compress") {
+        if ($efile eq '-') {
+            $res = system "compress <\Q$dfile\E";
+        } else {
+            $res = system "compress <\Q$dfile\E >\Q$efile\E";
+        }
+    } else {
+        die "Fatal: unknown encoding \"$encoding\" at";
+    }
+
+    $res = int($res/256);
+    if ($res != 0) {
+        print STDERR "Error: could not encode \"$efile\" (left as \"$dfile\")\n";
+        $retcode = 2 if ($retcode < 2);
+        return;
+    }
+
+    return $dfile;
+}
+
+
+
+sub ExtensionMimetype {
+    my($ext) = @_;
+    my($typ);
+
+    unless ($donemimetypes) {
+        ReadMimetypes($usrmimetyp);
+        ReadMimetypes($locmimetyp);
+        ReadMimetypes($shrmimetyp);
+        ReadMimetypes($etcmimetyp);
+        $donemimetypes = 1;
+    }
+
+    $typ = $mimetypes{lc($ext)};
+
+    print STDERR " - extension \"$ext\" maps to mime-type \"$typ\"\n" if $debug;
+    return $typ;
+}
+
+
+
+sub PatternMimetype {
+    my($file) = @_;
+    my($key,$val);
+
+    while (($key,$val) = each %patterntypes) {
+        if ($file =~ m!$key!i) {
+            print STDERR " - file \"$file\" maps to mime-type \"$val\"\n" if $debug;
+            return $val;
+        }
+    }
+
+    print STDERR " - file \"$file\" does not conform to any known pattern\n" if $debug;
+    return;
+}
+
+
+
+sub FileMimetype {
+    my($file) = @_;
+    my($ext)  = ($file =~ m!\.([^/\.]+)$!);
+
+    my $type;
+
+    $type = ExtensionMimetype($ext) if $ext;
+    $type = PatternMimetype($file) unless $type;
+
+    return $type;
+}
+
+
+
+ at files = ();
+foreach (@ARGV) {
+    print STDERR " - parsing parameter \"$_\"\n" if $debug;
+    if (m!^(-h|--help)$!) {
+        Usage();
+        exit(0);
+    } elsif (m!^--(.*?)=(.*)$!) {
+        print STDERR "Warning: definition of \"$1=$2\" overrides value \"${$1}\"\n" if ($ {$1} && $ {$1} != $2);
+        $ {$1}=$2;
+    } elsif (m!^--(.*?)$!) {
+        print STDERR "Warning: definition of \"$1=$2\" overrides value \"${$1}\"\n" if ($ {$1} && $ {$1} != 1);
+        $ {$1}=1;
+    } elsif (m!^[^/:]+/[^/:]+:[^/:]+:!) {
+        push @files,$_;
+    } elsif (m!^([^/:]+/[^/:]+):(.*)! && ! -e $_) {
+        my $file = $_;
+        my $type = $1;
+        my $file = $2;
+        my $code = EncodingForFile($file);
+        push @files,"${type}:${code}:${file}";
+        print STDERR " - file \"$file\" does not exist -- assuming mime-type specification of \"${type}\"\n" if $debug;
+    } else {
+        my $file = $_;
+        my $code = EncodingForFile($file);
+        my $type;
+        if ($code) {
+            my $efile = $file;
+            $efile =~ s/\.[^\.]+$//;
+            $type = FileMimetype($efile);
+        } else {
+            $type = FileMimetype($file);
+        }
+        if ($type) {
+            push @files,"${type}:${code}:${file}";
+        } else {
+            print STDERR "Warning: unknown mime-type for \"$file\" -- using \"$defmimetyp\"\n";
+            push @files,"${defmimetyp}:${code}:${file}";
+        }
+    }
+}
+
+unless ($action) {
+       if ($0 =~ m!(^|/)view$!)     { $action="view";   }
+    elsif ($0 =~ m!(^|/)see$!)      { $action="view";   }
+    elsif ($0 =~ m!(^|/)edit$!)     { $action="edit";   }
+    elsif ($0 =~ m!(^|/)change$!)   { $action="edit";   }
+    elsif ($0 =~ m!(^|/)compose$!)  { $action="compose";}
+    elsif ($0 =~ m!(^|/)print$!)    { $action="print";  }
+    elsif ($0 =~ m!(^|/)create$!)   { $action="compose";}
+    else                            { $action="view";   }
+}
+
+
+$mailcaps = $ENV{MAILCAPS};
+$mailcaps = "$ENV{HOME}/.mailcap:/etc/mailcap:/usr/local/etc/mailcap:/usr/share/etc/mailcap:/usr/etc/mailcap" unless $mailcaps;
+foreach (split(/:/,$mailcaps)) {
+    ReadMailcap($_);
+}
+
+foreach (@files) {
+    my($type,$code,$file) = m/^(.*?):(.*?):(.*)$/;
+    print STDERR "Processing file \"$file\" of type \"$type\" (encoding=",$code?$code:"none",")...\n" if $debug;
+
+    if ($file ne '-') {
+        if ($action eq 'compose' || $action eq 'edit') {
+            if (-e $file) {
+                if (! -w $file) {
+                    print STDERR "Error: no write permission for file \"$file\"\n";
+                    $retcode = 2 if ($retcode < 2);
+                    next;
+                }
+            } else {
+                if (open(TEST,">$file")) {
+                    close(TEST);
+                    unlink($file);
+                } else {
+                    print STDERR "Error: no write permission for file \"$file\"\n";
+                    $retcode = 2 if ($retcode < 2);
+                    next;
+                }
+            }
+        } else {
+            if (! -e $file) {
+                print STDERR "Error: no such file \"$file\"\n";
+                $retcode = 2 if ($retcode < 2);
+                next;
+            }
+            if (! -r $file) {
+                print STDERR "Error: no read permission for file \"$file\"\n";
+                $retcode = 2 if ($retcode < 2);
+                next;
+            }
+        }
+    }
+
+    my(@matches,$entry,$res,$efile);
+    if ($code) {
+        $efile = $file;
+        $file  = DecodeFile($efile,$code,$action);
+        next unless $file;
+    }
+
+    foreach $entry (@mailcap) {
+        $entry =~ m/^(.*?)\s*;/;
+        $_ = "\Q$1\E"; s/\\\*/\.\*/g;
+        push @matches,$entry if ($type =~ m!^$_$!i);
+    }
+    @matches = grep(/\Q$action\E=/, at matches) unless $action eq "view";
+
+    my $done=0;
+    my $fail=0;
+    foreach $match (@matches) {
+        my $comm;
+        print STDERR " - checking mailcap entry \"$match\"\n" if $debug;
+        if ($action eq "view") {
+            ($comm) = ($match =~ m/^.*?;\s*(.*?)\s*($|;)/);
+        } else {
+            ($comm) = ($match =~ m/\Q$action\E=(.*?)\s*($|;)/);
+        }
+        next if (!$comm || $comm =~ m!(^|/)false$!i);
+        print STDERR " - program to execute: $comm\n" if $debug;
+
+        if ($match =~ m/;\s*test=(.*?)\s*($|;)/) {
+            my $test;
+            print STDERR " - running test: $1 " if $debug;
+            $test   = system "$1 >/dev/null 2>&1";
+            $test >>= 8;
+            print STDERR " (result=$test=",($test!=0?"false":"true"),")\n" if $debug;
+            if ($test) {
+                $fail++;
+                next;
+            }
+        }
+
+        my($tmpfile,$tmplink);
+        if ($action ne 'print' && $match =~ m/;\s*needsterminal\s*($|;)/ && ! -t STDOUT) {
+            if ($ENV{DISPLAY}) {
+                $comm = "$xtermprgrm -T '$file ($type)' -e $0 --action=$action '${type}:%s'";
+            } else {
+                print STDERR " - no terminal available for rule (needsterminal)\n" if $debug;
+                $fail++;
+                next;
+            }
+        } elsif ($action eq 'view' && $match =~ m/;\s*copiousoutput\s*($|;)/) {
+            $comm .= " | $0 --action=$action text/plain:-";
+        }
+
+        if ($file ne "-") {
+            if ($comm =~ m/[^%]%s/) {
+                if ($file =~ m![^ a-z0-9,.:/@%^+=_-]!i) {
+                    $match =~ m/nametemplate=(.*?)\s*($|;)/;
+                    my $prefix = $1;
+                    my $linked = 0;
+                    while (!$linked) {
+                        $tmplink = TempFile($prefix);
+                        unlink($tmplink);
+                        if ($file =~ m!^/!) {
+                            $linked = symlink($file,$tmplink);
+                        } else {
+                            my $pwd = `/bin/pwd`;
+                            chomp($pwd);
+                            $linked = symlink("$pwd/$file",$tmplink);
+                        }
+                    }
+                    print STDERR " - filename contains shell meta-characters; aliased to '$tmplink'\n" if $debug;
+                    $comm =~ s/([^%])%s/$1$tmplink/g;
+                } else {
+                    $comm =~ s/([^%])%s/$1$file/g;
+                }
+            } else {
+                if ($comm =~ m/\|/) {
+                    $comm =~ s/\|/<\Q$file\E \|/;
+                } else {
+                    $comm .= " <\Q$file\E";
+                }
+                if ($action eq 'edit' || $action eq 'compose') {
+                    $comm .= " >\Q$file\E";
+                }
+            }
+        } else {
+            if ($comm =~ m/[^%]%s/) {
+                $tmpfile = SaveStdin($match);
+                $comm =~ s/([^%])%s/$1$tmpfile/g;
+            } else {
+                # no name means same as "-"... read from stdin
+            }
+        }
+
+        $comm =~ s!([^%])%t!$1$type!g;
+        $comm =~ s!([^%])%F!$1!g;
+        $comm =~ s!%{(.*?)}!$_="'$ENV{$1}'";s/\`//g;s/\'\'//g;$_!ge;
+        $comm =~ s!\\(.)!$1!g;
+        $comm =~ s!\'\'!\'!g;
+        $comm =~ s!$quotedsemi!;!go;
+        $comm =~ s!$quotedprct!%!go;
+
+        print STDERR " - executing: $comm\n" if $debug;
+        $res = system $comm;
+        $res = int($res/256);
+        if ($res != 0) {
+            print STDERR "Warning: program returned non-zero exit code \#$res\n";
+            $retcode = $res;
+        }
+        $done=1;
+        unlink $tmpfile if $tmpfile;
+        unlink $tmplink if $tmplink;
+        last;
+    }
+
+    if (!$done) {
+        if ($fail) {
+            print STDERR "Error: no \"$action\" rule for type \"$type\" passed its test case\n";
+            print STDERR "       (for more information, add \"--debug=1\" on the command line)\n";
+            $retcode = 3 if ($retcode < 3);
+        } else {
+            print STDERR "Error: no \"$action\" mailcap rules found for type \"$type\"\n";
+            $retcode = 3 if ($retcode < 3);
+        }
+        unlink $file if $code;
+        $retcode = 1 unless $retcode;
+        next;
<<Diff was trimmed, longer than 597 lines>>

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/mailcap/mailcap.spec?r1=1.54&r2=1.55&f=u



More information about the pld-cvs-commit mailing list