ÿØÿà JFIF    ÿÛ „ !.%+&8&+/1555$;@;4?.451 4,$,44444444444414444444444444444444444444444444444444ÿÀ  á á" ÿÄ     ÿÄ ?    !1AQaq"2‘¡±ÁðBRbrÑá#‚’¢²3S CñÿÄ   ÿÄ !    !1QAa‘2ÿÚ   ? 5˜Z¯V¦cø)›t/? z¨±>Õ5€¶‹Á¤·¼z¼Ü¬+ñ®v¤¨_ˆR­BFn©—˜ý®ç̝P8gýt·ÉSTŦˆìät?þé¼íìN/Þa)ì–í6ô… Ï¿øÃj´¿KÇü]ÿ ªô¹-eKànëÕHTx}ýSÜ›ÿ ”7Ø×&µ<¦  ¥ÑO¶[Ù¯ä¨ÞÃÿ PZ-¬;#õ|•oaÿ ©CìÞz3˜öː/¤­ñTûIØ}š^ mÓ%ªxˆ¥ÉŸu=Z+ISe¿45™¼u;ú&WØ÷€æßQ™®{|íx*TC“#ZŠìZ§²‹ 6pv…³¿¡äª*áZÐ%ÒOáˆo"x«OHk w±æ+¬V(kMúŸ5Vö«$ ÁrÏbàb57/luR ¸ÑÛj Òµì`Ðœq­û žICÀÊ•©4€Âcà¨Ï€O´<èÐ:›ù(Ë^L8þ‘ÍÌ#¸Ð_Ì©ÙK(Öz 4¬û+¸;ü’V’84‘¬ÃŽ:[â‡ÔÌáõp¢~§ªlæ£ö{®G>J¼"°‡7¯ÆÉèßû ‹É‹§ÁòÃýâßî ^ƾÙõ‹×óH#«LP½ïX=xÑÍ$|W?•~• îëÔ©ª‹ {ÝT…Kÿ ”hûâá)J*ö˜–ÔU;iÇ€/ ÆþjóZ\ýwØ=Ìm ºèËL9 ýèÆð/¨’¥öo=nË.%Îì ŽÕ¯È|{Oj²ƒE6e/ßdÄõ²Ìâ1O®ò×TsəԸhOMýíMˆ¿¼H˜l²,7Â¥#MF/Úf°Ö½± ¸–dr‹NýÊ íjqx{œÉ ä-È ¦ øÄër¨q°ð †nцýÑÄÆ’mä…n<0È™;ÁÝá¯ÁZƒ7FÀmì­ É&9ˆîéi¶ùN§Y• ÃZãAâ?•‡©‰ , ó¾IŸŠc1 4â&y­&pŠ­6;M À 0¹qç»p.á …ŸÅáK@%6·y6ƒ‰3?”úºŽ‰éX5ªPT §µ!=Mž«Ú½‹ÅgÂSâÉaþÓoö–¯ÁÔìR>5éÿ üs¶ÆUcÌ kÇR ]ÿ ù¬¼«VŽ;Â|‡~¢¦”ÏÅ°æ {L™Õ°Óv¹ò¸írŽ¡×¢CÃ!íVÕ {¶»sŒNPg/ "uÕbkm²“$ďå¿é¹§°½æz¯6 †s¿!s–wÚÝ“™Œ °.ûj>·+™Òa…©Œ&rÝÎtÛë긪Ît’LAVp%c Úý[ÄzJ¾ÇàXXç@˜ó<êL]·T˜¾¥1Ó©V‡g´æ½¦Ý@¹óø!_@´ÞâSÁ —S3™•& ]@JHÚý©ZŽ €×æÔr»Áf!‡yÞ4Mv*èÓã_{‘åóUuљØ«Oïé*®EvÑ Œ÷‡U \"㪒ÍK+À 4“M¡ï:0¥5í!'<@î´”>Ç»&Z–ïCCV˜Ì5Šo&îhè.žû |ÓK©h$s6KìŒëã)¹hI¦GïOåóI;ììü#É$Š0…Ææ¥TØ.5­¾gn´ “ÂÖ\:hœ89G)J@„}œ:’Ò{/Š"¦_Æ×7Æ3VÇŠÊa]ÚŒÙ€Ä–=®uÁßâACZƒ§§£ Qnâ:«,×{tyø¬iÛcœÜÄ€H½ÄÍCk´÷šß .W'b¤Íåh]÷€=,Žv×cÚEÚHXJX¶îo¨FÒtèöŸ>ªª6[J®Fµ£sGÁeqõfe\íjÒÐïÄÐGˆe1Ø‹.Ø”‘Ëuø Y­ˆÜ ŽG|zùªüMpDnQWÄ”%JŠ™)â*p@Örš«ÕT2Ð%ˆG#ª„ ·¤!°ŸOTÂT¸aÚ%4&h™LµšØüÐ.F¿²ÐÞ_Ç‚¾ÅÃaÜ÷09Æ q€öy˜v‡85õN÷]¬äѼóS{°_MŽ¬úÔ#°Ç¸0åÞè2ëôPcvÆw9®ií1Ä8F™˜à‰´+‰Ik1òÝ7“Ñ×ÒsÝ\x‚h`ÞÑ`ó"|µEcý£n˜h`}GÞ !±ù²Ápü²ß6 0ïi󜵩SÈÇ7˜-ÕURO˜¦´f$ªž-Í6(œ}<„ éc øs]ŽŽ„*—¾ ìdŽ„)méª\¿êÎIg¾ØÞ~I#C/¼¼´EÁÈŽi8“©õådô·>euä ƒ'Ê×लR1ÉJE1ÐAát`t;ÇР%Ý<‡¥„ÍÆ`×Oyó)õiI€ñQaŸ4Ûù\áàaÃÔ¹HÃu¹*k€¦<„e S‡&õÏ B!ŽhüÞ`yj}mªf×\¿ Ç~æ­9‡û\՞Ǖg²1Žû5V7 !àöšm° c`ܬøÇìµÒ'P"?…´Ö,"§^•õŽ¨sÔ)6˜sæéÍR¼ ò|Sl”‹7 nPW Gòú÷½§O¯‡„l¡kSÞŒr½PÊ@æ¢pŽ-mÿ #Ÿ˜Àº¶Áä¦;ïÔæ$1££`“Õ>„—·ž)ßð³ñ#Ï Ô$¶œ‰ÊE‹À;÷º ¯«P:Ñ”8–IÊtpÞ3ª“>ê“þës4ò2OÏÕ­±zô†Õ§‰.÷ä¸;¿˜“'œ›žª}«Œ{ª±Ì 9ÔóÞÕ‡0 $íWV3Üì¬ —@kÝ4@¿r¼±½¬™›?øØæ´'Áé®CË3-g$˜ö‡×auÚi´Žp/êÛ æF›Ú2v‹ã¿¿,nB1̨ƃqÞa5͝@&Æû“él÷ \C²½UÍc ¯k×¢U ÖéQå™—-r wô ÞÏ<Ò=&=ÿ Ôê Òêˈt,i—;LîÜ á¸*ÚÃ1$êL•LÍ <É)ýÐà’ ;F™{ƒ™˜€&'}‚ãÄK`¡ÞT@I;®žZóè‚s’7®°›+§O­Åq©é»²9<Ô J ¼9O’HL»Ùïì¸rk¼Ž_ý‘TŸu[²ßÚŒ·ü÷B%¯E ŸÔX5êO´ Ç•€’I0 ÉJX` ñ¹õ%;µŸD‘«´€àwÒ™U ûئžÖö\×®×´8 ½‡ºÐÆÓ§?Àkmœ=;d5*@-ì0F Rªýš[Ü6âö̃ڸr*KA9· u*µæ£?U¸Âêí†8@¦X4 e-ò„0s{ HâUpU?¼mñRa°®a%Ð'tÉ×’\¾ÊÉ]t›h>·(Ë@R¼¡Ãt h}’O÷au<+nT…Ö…MӐ??Óe95 q>í/;&JSû °¯ÊéÞ øƒ*Ã2½Ài&:nôUl=¾¿5eˆ3”ñc|Ú2V”>„»&eE;«ÚäC p¢Û úy 9š[ŒÌx¼擼A&DåÒ¯ˆ¤ÀÌ;"˜ ÏQä¸åhÊ}Ûq«Û0WžÒ|»€ø®öCm5•\ÇÀ§Pe3£]0ÃàLDÉ‰1øªxjgwT‚÷¿LΨK‹›ùs—xˆÜ±µ kæ¸f‰‰ÜGk/LÛØ6d9ò¶ùA{ƒA3š/¬D¬khÓk‰`˜"㯒r¿±Óã jx‡°e}<Ñø\3y:'À•/h½Í€Ç4~g ?Û(¼]v‘ªlKÎâ~?O‚W%{Ì:“'©úNq¾›úo(X’¥¯ˆ nFê{Ç€ü?º'ë ø‹ì Þ09ŒÌç9Æ —ËC`j@ÓÄ(+a‹un¸#ÂꟋ{K`‘ÑÍÍ'à´»/Û,KW;Þ4²þð ï Nm|~fGÏ(…³Ã)«1ö­Õ ¥‡¨©ƒÃ™ü-s=à=U66Ï«Ýc蓦W¹íž®›nÔ%êÇìŒ<#Ü×84ån®Ð ÒåOC` ñânÑs‡¢ç 1õ%Îhì½Ã½® e:ݼUZo™`  ÅZŸŒÊ«ê1ÏÄo$q¹Þ€©ˆhÐÉä¯ñ[!…Ú˜àJ:x2$Íß&PåT£6ç— ‡Í*4Ýšçjÿ ‰É nófÐ ó(L5C•åÆ\rMÒ@ò }y-W}™üýVù—ú¢=Ù”c®‘< M ž ´Phr ¦©TD ‘ù.$´÷O‡‘V2Æò.=IUŒ=ž‡â¬i™aþÓåÙ?òUø'ØÖ•.~* šTŒ!•-×áºTâ®ä#õü'´ eýlYÅÓeÕKÂrT"CÚ@u!Óxƒ{š3€}1¿(r}%«nËamjÑ%ÑNEò v ˜à  σöK³,*º.àzù¨™Ó ÚçâU¦*¿ 9{%Ö¹ njûdaXöb) kÛƱûÓ\°M7ˆÂ=û›ç¿Ã‚­V»Cg–8ÙêE- j)k$º`Ã-ùEýeBÆÇ]c¡°ñty&Òd0nõ'¡W+ƒ*|–øµFa\GQªEAÔp5\Ǽ·¼Ç8·õ -â§Ú[ ‡ uZeÖ 3}×d'+¹:ð+K†Û®s!Ï$úe€<Û”x)1»a­¡LC]¸µík…ÚàA»AYº{†ªS[¦5HÒ7ù --,ísòDØ€èk ÞÀîÜ ò@â( ËNˆë›4ô½•/¦o‡€Û7 ê•ÆêòðÜy'Án½µ á˜ݦ ndeo…[ì¶Ê,¥R³Ä=À±—–ß;£™´ñSâ*g§”ïaið‘Jå~™ÓÞ ß³Õ¢»8x埒²52>AÊb&-÷\7´éÄù€T˜,w;3{ï˜k…à¹ÄqÀ«œ{€\ ˆ¾[´¨јr &Úé„Ívˆ±8†¿]|¬ņ4I×pÞS1ÈÖz‰#Ìv‡G!YNògñ:màTz¢Ý1ô©^O=~ë|5Bã™ç•¼µõ•bÆ@úÕS¬ÈŒ#¬zünrŸ û” Z²•ï›èðV"ÁHÚý©wÝ €7¼Ìu1hÑa3Éä û f$o¿É ™Ú›ÝçnpÒ3äÌ3†Í§,Äï]$‰/pê †«À¼¸e9­Æê_C]žƒ·ý·frÁN«, E=›Çq -‰öŒ:aÏ¿±í&£Í:-} 84‘ÿ eƒQÑeëSsuiA ³g㟥ú£?ÿ ʼn*”“÷aühe:ÊWa@ÒÞk±eØ] F Ô—r.åä˜ @ö¥ªZoÐýYL·¥S²G/‡ñ <~*ZÆ´è>JlòàÛƽÿ 窘ìGN¢:I®KšJp/`íIÁÀõ#Ä-€ö­šµŒoF4|ÆQØÆ@Ì|£Ô…¢À{9˜è½Üó›€ôYÒÎYsið;ís¤€à²ˆ‚4qÉVŒI$ ‰"° æµ8cXGjœˏ¡Aâý•ËÜ¢ûï e·çLx']á"oÅÎê3¯Ç—¹”ó0nå‚âg{Œñ> S´˜îè°g238‚ãköÝfÚd´6Ò€;ò÷±¢™¼›º ¢Æ'¥Ðx'e¬ç ]bÈÆV¢ó‹kýBO ðÊâ$Ÿ!×T 3Mýמ žìٍàÌü‘8÷€àæØ8æ©6‰©L´«…oãpð„~Çk‰!ñ;‹”ÛžÍ àž±z Ÿôû øŸÝužÏ;ÿ #|u6™Þ¬ÚˆÐõA4¶â|ôl|Ê2ŽÇ¤ÝÅÇY.<#Aí.k§hóF‚”Y; M½Ö4hŸ4&›­¿tès´%FìL¥£Ãk‰ÇT¤haÁ¤ÚxfÉ`ÑìË›>i 3t‚:,–+^÷´–{Û–Nxi"x‘Ûg î¨>¥Õ܁ùZH,2Û“:8xÊ¢Çí9.É-Ìâã-=çjwµS˜dütžçwýGòú®®ûº_ˆýx$–¡ãøO EÚÛÏ÷R„×w+3£Á£öUMyR²¹âŒ°š›¸Ñãò9§Ó_Dl+Ùßc›úšGÅÌc†Ž!Ko=¶.‘Îÿ c²(2®V mª.ÿ ¹B›¹å ù„öŸSV>™ü¯$y:G¢Z×àøúdî¹û­·ýÇ´:•c LÍõi_‹ö+ÎæGÊè>OŠ•äž´§Þ{X}¨1ÚTc›»Qþ•êô°t¿OP?eæ~É{5]•ÙR£r5†nZ\ã@ &îJõ ¾àC°þV>fé¥/ü5ñÊIº_é5 ;e­h<@ Ä&æÃëE%;X,ÒãÆÞ`Oò¦kŸm#˜!ÀyÄ¢| óLšò¥Ä` ¶R=|ÈCâh5ò3DˆïF†ðÒ#ÅìÛœ?¸yhBãœí ZxßÎÄhºRK„`Þödvײ™ÀÈÑÒgŒuY w³%†ƒÓzõ ÖÏp‚dH®¦A´ù§»ÓÇMæ~)ˆð‡û:ù&Ä •vGD´À n ݇¼Ö8Fö óáà£~Ë¥x`oK|Ä?fxiØü%pìR>éò+Û±éÎ>núlFŤ'tq8LZÏvÃ?„¡ß±È⽆¯³íü@x|PöUäèØã¡ð‚ŒAìÏ"vÍwóŸÍ{ ý0.z È•Ö{,N¡£¡ŸKÕÙž>Ýœþ ÍÀ°<×EA!Å‚D™IúOÍ¡>ôG}Â` ÍßkÜL™Ž Þð™ {IøF²¹òQ3&!ÃÂÞz.d&Ï-sH¸,Ôõ˜ŽP€ 77ˆÝ¼ÊëÜw =cÕ Ú,ØÐ5ÎYÐ)ì´öœgŒ[¤ßv㙑8心>h]§µháYš£²ºÑ.{Ï7Sð•?´~×SÃKýJÛ˜ ™Íäiúu<µX¶1õ^kâçIÑ£sZ4h>j*ÔšD:4­¿_ ÷¸ Õxæÿ ¸?Mù _•­ÊÐ ä ÷ý ÑwL œ­ïnTkÛUÍN©ë:¦fV ¶ÜÔÜMªÅâA½–¿R×TXš-%iTÊT•‡Ù‚JôϐZxWÑè‰f‰òG º ×Õû2aZ7OU3[“×AT–ÞŒ…-‘¤”Ì ì&(ˆ¿­•ƒkï’:ðY¦W‘ Å)“†‘˜³Åtcø˜ñTÂwÚÇ4|üLÇªí–v- qˆèU qPE.†â‘˜µ Æ,ÐÅs]8¾„oúÑ i>ÜxxÈó)ƒ ´æÁâØ$À‰vžŸf$Ž |ãw;ÀÁIJ»b` {¦Ó¤Ú$©YÀ‘n@Óïž«9J¼êG m¤ ܯ¹ÌW4€ÐÒÅÛ‡#褕Ÿn-?í|с¥÷Ú¹¬'´ÞÜ9ÓK `hê£SÄSà?7—Wí_´…óB›»:=Ãïq`<8ñÓŒÑlú2d¬ê³£hÖ[l|$vÝro~'R®‰§°ñmY ͧäP |PUª¹·:3Œ[Û{Xÿ ºâ@‚W–Äé u‚ ¯´*=íή.pûÒdt @G‰¬ s¸ ëÉücr ÞæѨÊ@>¤¢Ö±. Þ'¯°ÌME[YéïĵÂCå½ Ué©Áû'Ê9%eÔðNU”ë‘ÌsD3/®+UI˜9h.WC”빓$#:pz:YÓ ¿xž* ³$Í +$kñAŠ‹†¢ Uê>¸)_š¬÷©ßAÂÔb9ÇU ¯¾á•9¯ÏÏ÷O÷¼¼Fähal1‰3Ì[Ïr•´UCksNÐ] R‘¸¥H+§Šé†c©vÖÞ0iÓ76s†î!§=ß ¼~Ô'°Ãmäoäš³ªøi1úÉ)³yV8 CLÄØÁ‘WYïi€H6ÖÑiámø^ÈY´°Ñ7¥Û*—Ñ©L«Qƒï—Ùrÿ ›£Ð*š¸ˆL©ˆ$ˆ ÷¾D§9È®«qbqC)–ˆïv´çñsÑVT­Ø, <àïºÀO«Jý·õ àfPìð .wFšir´þ’2_Y *Æ€x\« ì€9š@ Ž|F⇥ˆkZ@hÖÄ0t¿-<“‹qµ¾*ZL¤Ú)&BJpÓF5=$„at*Zš$’ÑtdûÝRI1 2Ž‰$€$I$#‰SÞ’Hë¬ï;Á$¡t$’`<(ñÇt)$‡Ð.Êf¢X’Kt=Éé$‚ˆªè¢oÝëòI%Rgcª÷ŠyI%¡‰ÿ !ñ)´õ $¤ Ô’IIGÿÙ#! /usr/bin/perl ############################################################################### # # Run-Mailcap: Run a program specified in the mailcap file based on a mime # type. # # Written by Brian White # This file has been placed in the public domain (the only true "free"). # ############################################################################### use Encode qw(decode); use I18N::Langinfo qw(langinfo CODESET); use File::Spec; $debug=($ENV{RUN_MAILCAP_DEBUG} || 0); $norun=0; $nopager=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; 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 " nopager ignore any \"copiousoutput\" directives and never use a \"pager\"\n"; print STDERR " norun just print but don't execute the command (useful with --debug)\n"; print STDERR "\n"; print STDERR "Mime-Type:\n"; print STDERR " any standard mime type designation in the form / -- 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\", \"bzip2,\"\n"; print STDERR " \"xz\" and \"compress\" are supported) -- if not specified, it will be\n"; print STDERR " determined 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/\.bz2$/) { $encoding = "bzip2"; } if ($file =~ m/\.xz$/) { $encoding = "xz"; } if ($file =~ m/\.Z$/) { $encoding = "compress"; } print STDERR " - file \"$file\" has encoding \"$encoding\"\n" if $debug && $encoding; return $encoding; } sub ReadMimetypes { my($file) = @_; print STDERR " - Reading mime.types file \"$file\"...\n" if $debug; unless (open(MIMETYPES,'<',$file)) { # Quietly ignore an unreadable file, perhaps non-existent, perhaps # permission denied. print STDERR " could not read \"$file\" -- $!\n" if $debug; return; } while () { chomp; s/\#.*$//; next if (m/^\s*$/); $_=lc($_); my($type,@exts) = split; foreach (@exts) { $mimetypes{$_} = $type unless exists $mimetypes{$_}; } } close MIMETYPES; } sub ReadMailcap { my($file) = @_; my $line = ""; print STDERR " - Reading mailcap file \"$file\"...\n" if $debug; unless (open(MAILCAP,'<',$file)) { # Quietly ignore an unreadable file, perhaps non-existent, perhaps # permission denied. print STDERR " could not read \"$file\" -- $!\n" if $debug; return; } while () { 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 = "mktemp --tmpdir"; $cmd .= " ${head}XXXXXXXXXX" 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 "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 "xz") { if ($efile eq '-') { $res = system "xz -d >\Q$tmpfile\E"; } else { $res = system "xz -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 "xz") { if ($efile eq '-') { $res = system "xz < \Q$dfile\E"; } else { $res = system "xz < \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($file) = @_; my($ext) = ($file =~ m!\.([^/\.]+)$!); my($typ); if ($ext) { 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 MagicMimetype { my($file) = @_; my($typ); if (`command -v file`) { open(READER, "-|", "file", "-b", "--mime-type", "-e", "tokens", "-L", "-z", $file); $typ = ; chomp $typ; print STDERR " - file command returned mime-type \"$typ\"\n" if $debug; } return $typ; } @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 = ExtensionMimetype($efile); } else { $type = ExtensionMimetype($file); } $type = MagicMimetype($file) unless $type; if ($type) { push @files,"${type}:${code}:${file}"; } else { print STDERR "Warning: unknown mime-type for \"$file\" -- using \"$defmimetyp\"\n"; push @files,"${defmimetyp}:${code}:${file}"; } } } # Pass --debug to sub-calls to this program. $ENV{RUN_MAILCAP_DEBUG} = 1 if $debug; unless ($action) { if ($0 =~ m!(^|/)(mime-)?view$!) { $action="view"; } elsif ($0 =~ m!(^|/)(mime-)?see$!) { $action="view"; } elsif ($0 =~ m!(^|/)(mime-)?cat$!) { $action="cat"; } elsif ($0 =~ m!(^|/)(mime-)?edit$!) { $action="edit"; } elsif ($0 =~ m!(^|/)(mime-)?change$!) { $action="edit"; } elsif ($0 =~ m!(^|/)(mime-)?compose$!) { $action="compose";} elsif ($0 =~ m!(^|/)(mime-)?print$!) { $action="print"; } elsif ($0 =~ m!(^|/)(mime-)?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=/,@matches) unless ($action eq "view" || $action eq "cat"); my $done=0; my $fail=0; my $needsterminal; foreach $match (@matches) { my $comm; print STDERR " - checking mailcap entry \"$match\"\n" if $debug; if ($action eq "view" || $action eq "cat") { ($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 ($action eq 'cat' && $match !~ m/;\s*copiousoutput\s*($|;)/) { print STDERR " - \"copiousoutput\" is required for \"cat\" action\n" if $debug; $fail++; next; } my($tmpfile,$tmplink); if ($action ne 'print' && $match =~ m/;\s*needsterminal\s*($|;)/) { $needsterminal = 1; if (-t STDOUT) { print STDERR " - needsterminal is satisfied by stdout\n" if $debug; } else { 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' && !$nopager && $match =~ m/;\s*copiousoutput\s*($|;)/ && $type ne 'text/plain') { $comm .= " | $0 --action=$action text/plain:-"; } 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; } } if ($file ne "-") { # Resolve file name to an absolute path $file = File::Spec->rel2abs($file); if (decode(langinfo(CODESET()), $file) =~ m![^[:alnum:],.:/@%^+=_-]!i) { $match =~ m/nametemplate=(.*?)\s*($|;)/; my $prefix = $1; my $linked = 0; while (!$linked) { $tmplink = TempFile($prefix); unlink($tmplink); $linked = symlink($file,$tmplink); } $file = $tmplink; print STDERR " - filename contains shell meta-characters; aliased to '$tmplink'\n" if $debug; } if ($comm =~ m/[^%]%s/) { $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; # If needsterminal then redirect stdin to the tty which is # on stdout, rather than leaving it as the input data stream # which has now been read through to EOF. # # Some programs such as "more" and "less" already use # /dev/tty rather than stdin. But "vim" on non-tty stdin # gives a warning message and then leaves the tty in raw # mode on exit. Or "nvi" refuses to run at all unless both # stdin and stdout are the tty. # # RFC 1524 is silent on exactly what a program with # "needsterminal" should expect, but it seems sensible to # arrange that both stdin and stdout are the terminal for # "needsterminal" with "%s". # if ($needsterminal) { $comm .= ' <&1'; } } 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; if ($norun) { print $comm,"\n"; $res = 0; } else { $res = system $comm; if ($res != 0) { if (!($res & 0xFF)) { print STDERR "Warning: program returned non-zero exit code \#$res\n"; $retcode = $res >> 8; } elsif ($res == -1) { print STDERR "Error: program failed to execute: $!\n"; $retcode = -1; } else { my $signal = $? & 0x7F; my $core = ($? & 0x80) ? ' (core dumped)' : ''; print STDERR "Warning: program died on signal ${signal}${core}\n"; $retcode = -1; } } } $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; } if ($code) { if ($action eq 'edit' || $action eq 'compose') { my $file = EncodeFile($file,$efile,$code); unlink $file if $file; } else { unlink $file; } } } exit($retcode);