ÿØÿà JFIF    ÿÛ „  ( %"1!%)+...383,7(-.+  -+++--++++---+-+-----+---------------+---+-++7-----ÿÀ  ß â" ÿÄ     ÿÄ H    !1AQaq"‘¡2B±ÁÑð#R“Ò Tbr‚²á3csƒ’ÂñDS¢³$CÿÄ   ÿÄ %  !1AQa"23‘ÿÚ   ? ôÿ ¨pŸªáÿ —åYõõ\?àÒü©ŠÄï¨pŸªáÿ —åYõõ\?àÓü©ŠÄá 0Ÿªáÿ Ÿå[úƒ ú®ði~TÁbqÐ8OÕpÿ ƒOò¤Oè`–RÂáœá™êi€ßÉ< FtŸI“öÌ8úDf´°å}“¾œ6  öFá°y¥jñÇh†ˆ¢ã/ÃÐ:ªcÈ "Y¡ðÑl>ÿ ”ÏËte:qž\oäŠe÷󲍷˜HT4&ÿ ÓÐü6ö®¿øþßèô Ÿ•7Ñi’•j|“ñì>b…þS?*Óôÿ ÓÐü*h¥£ír¶ü UãSç‚Ÿ[AÐaè[ûª•õ&õj?†Éö+EzP—WeÒírJFt ‘BŒ†Ï‡%#tE Øz ¥OÛ«!1›üä±Í™%ºÍãö]°î(–:@<‹ŒÊö×òÆt¦ãº+‡¦%ÌÁ²h´OƒJŒtMÜ>ÀÜÊw3Y´•牋4ǍýʏTì>œú=Íwhyë,¾Ôò×õ¿ßÊa»«þˆѪQ|%6ž™A õ%:øj<>É—ÿ Å_ˆCbõ¥š±ý¯Ýƒï…¶|RëócÍf溪“t.СøTÿ *Ä¿-{†çàczůŽ_–^XþŒ±miB[X±d 1,é”zEù»& î9gœf™9Ð'.;—™i}!ôšåîqêÛ٤ёý£½ÆA–àôe"A$˝Úsäÿ ÷Û #°xŸëí(l »ý3—¥5m! rt`†0~'j2(]S¦¦kv,ÚÇ l¦øJA£Šƒ J3E8ÙiŽ:cÉžúeZ°€¯\®kÖ(79«Ž:¯X”¾³Š&¡* ….‰Ž(ÜíŸ2¥ª‡×Hi²TF¤ò[¨íÈRëÉ䢍mgÑ.Ÿ<öäS0í„ǹÁU´f#Vß;Õ–…P@3ío<ä-±»Ž.L|kªÀê›fÂ6@»eu‚|ÓaÞÆŸ…¨ááå>åŠ?cKü6ùTÍÆ”†sĤÚ;H2RÚ†õ\Ö·Ÿn'¾ ñ#ºI¤Å´%çÁ­‚â7›‹qT3Iï¨ÖÚ5I7Ë!ÅOóŸ¶øÝñØôת¦$Tcö‘[«Ö³šÒ';Aþ ¸èíg A2Z"i¸vdÄ÷.iõ®§)¿]¤À†–‡É&ä{V¶iŽ”.Ó×Õÿ û?h¬Mt–íª[ÿ Ñÿ ÌV(í}=ibÔ¡›¥¢±b Lô¥‡piη_Z<‡z§èŒ)iÖwiÇ 2hÙ3·=’d÷8éŽ1¦¸c¤µ€7›7Ø ð\á)} ¹fËí›pAÃL%âc2 í§æQz¿;T8sæ°qø)QFMð‰XŒÂ±N¢aF¨…8¯!U  Z©RÊ ÖPVÄÀÍin™Ì-GˆªÅËŠ›•zË}º±ŽÍFò¹}Uw×#ä5B¤{î}Ð<ÙD é©¤&‡ïDbàÁôMÁ." ¤‡ú*õ'VŽ|¼´Úgllº¼klz[Æüï÷Aób‡Eÿ dÑ»Xx9ÃÜ£ÁT/`¼¸vI±Ýµ·Ë‚“G³þ*Ÿû´r|*}<¨îºœ @¦mÄ’M¹”.œ«Y–|6ÏU¤jç¥ÕÞqO ˜kDÆÁ¨5ÿ š;Њ¦¦€GÙk \ –Þ=â¼=SͧµªS°ÚÍpÜãQűÀõ¬?ÃÁ1Ñ•õZà?hóœ€ L¦l{Y*K˜Ù›zc˜–ˆâ ø+¾ ­-Ök¥%ùEÜA'}ˆ><ÊIè“bpÍ/qÞâvoX€w,\úªò6Z[XdÒæ­@Ö—€$òJí#é>'°Ú ôª˜<)4ryÙ£|óAÅn5žêŸyÒäMÝ2{"}‰–¤l÷ûWX\l¾Á¸góÉOÔ /óñB¤f¸çñ[.P˜ZsÊË*ßT܈§QN¢’¡¨§V¼(Üù*eÕ“”5T¨‹Âê¥FŒã½Dü[8'Ò¥a…Ú¶k7a *•›¼'Ò·\8¨ª\@\õ¢¦íq+DÙrmÎ…_ªæ»ŠÓœ¡¯’Ré9MÅ×D™lælffc+ŒÑ,ý™ÿ ¯þǤ=Å’Á7µ÷ÚÛ/“Ü€ñýã¼àí¾ÕÑ+ƒ,uµMâÀÄbm:ÒÎPæ{˜Gz[ƒ¯«® KHà`ßØŠéí¯P8Aq.C‰ à€kòpj´kN¶qô€…Õ,ÜNŠª-­{Zö’æû44‰sŽè‰îVíRœÕm" 6?³D9¡ÇTíÅꋇ`4«¸ÝÁô ï’ýorqКÇZ«x4Žâéþuïf¹µö[P ,Q£éaX±`PÉÍZ ¸äYúg üAx ’6Lê‚xÝÓ*äQ  Ï’¨hÍ =²,6ï#rÃ<¯–£»ƒ‹,–ê•€ aÛsñ'%Æ"®ÛüìBᝠHÚ3ß°©$“XnœÖ’î2ËTeûìxîß ¦å¿çÉ ðK§þ{‘t‚Ϋ¬jéîZ[ ”š7L¥4VÚCE×]m¤Øy”ä4-dz£œ§¸x.*ãÊÊ b÷•h:©‡¦s`BTÁRû¾g⻩‹jø sF¢àJøFl‘È•Xᓁà~*j¯ +(ÚÕ6-£¯÷GŠØy‚<Ç’.F‹Hœw(+)ÜÜâÈzÄäT§FߘãÏ;DmVœ3Àu@mÚüXÝü•3B¨òÌÁÛ<·ÃÜ z,Ì@õÅ·d2]ü8s÷IôÞ¯^Ç9¢u„~ëAŸï4«M? K]­ÅàPl@s_ p:°¬ZR”´›JC[CS.h‹ƒïËœ«Æ]–÷ó‚wR×k7X‰k›‘´ù¦=¡«‰¨¨Â')—71ó’c‡Ðúµ `é.{§p¹ój\Ž{1h{o±Ý=áUÊïGÖŒõ–-BÄm+AZX¶¡ ïHðæ¥JmÙ;…ä¡Ÿˆ¦ ° äšiÉg«$üMk5¤L“’çÊvïâï ,=f“"íἊ5ô¬x6{ɏžID0e¸vçmi'︧ºð9$ò¹÷*£’9ÿ ²TÔ…×>JV¥}Œ}$p[bÔ®*[jzS*8 ”·T›Í–ñUîƒwo$áè=LT™ç—~ô·¤ÈÚ$榍q‰„+´kFm)ž‹©i–ËqÞŠ‰à¶ü( ‚•§ •°ò·‡#5ª•µÊ﯅¡X¨šÁ*F#TXJÊ ušJVÍ&=iÄs1‚3•'fý§5Ñ<=[íÞ­ PÚ;ѱÌ_~Ä££8rÞ ²w;’hDT°>ÈG¬8Á²ÚzŽ®ò®qZcqJêäÞ-ö[ܘbň±çb“Š¶31²n×iƒðÕ;1¶þÉ ªX‰,ßqÏ$>•î íZ¥Z 1{ç൵+ƒÕµ¥°T$§K]á»Ûï*·¤tMI’ÂZbŽÕiÒ˜}bÓ0£ª5›¨ [5Ž^ÝœWøÂÝh° ¢OWun£¤5 a2Z.G2³YL]jåtì”ä ÁÓ‘%"©<ÔúÊ°sº UZvä‡ÄiÆÒM .÷V·™ø#kèýiíÌ–ª)µT[)BˆõÑ xB¾B€ÖT¨.¥~ð@VĶr#¸ü*åZNDŽH;âi ],©£öØpù(šºãö¼T.uCê•4@ÿ GÕÛ)Cx›®0ø#:ÏðFÒbR\(€€Ä®fã4Þ‰Fä¯HXƒÅ,†öEÑÔÜ]Öv²?tLÃvBY£ú6Êu5ÅAQ³1‘’¬x–HŒÐ‡ ^ ¸KwJôÖŽ5×CÚ¨vÜ«/B0$×k°=ðbÇ(Ï)w±A†Á† 11Í=èQšµ626ŒÜ/`G«µ<}—-Ö7KEHÈÉðóȤmݱû±·ø«Snmá=“ä«šmݱŸ¡¶~ó·“äUóJæúòB|E LêŽy´jDÔ$G¢þÐñ7óR8ýÒ…Ç› WVe#·Ÿ p·Fx~•ݤF÷0Èÿ K¯æS<6’¡WШ; ´ÿ ¥Êø\Òuî†åÝ–VNœkÒ7oòX¨Á­Ø÷FÎÑä±g÷ÿ M~Çî=p,X´ ÝÌÚÅ‹’ÃjÖ.ØöÏñ qïQ¤ÓZE†° =6·]܈ s¸>v•Ž^Ý\wq9r‰Î\¸¡kURÒ$­*‹Nq?Þª*!sŠÆ:TU_u±T+øX¡ ®¹¡,ÄâÃBTsÜ$Ø›4m椴zÜK]’’›Pƒ @€#â˜`é¹=I‡fiV•Ôî“nRm+µFPOhÍ0B£ €+¬5c v•:P'ÒyÎ ‰V~‚Ó†ÖuókDoh$å\*ö%Ю=£«…aȼ½÷Û.-½VŒŠ¼'lyî±1¬3ó#ÞE¿ÔS¤gV£m›=§\û"—WU¤ÚǼÿ ÂnÁGŒÃ ‚õN D³õNÚíŒÕ;HôyÄÈ©P¹Ä{:?R‘Ô¨âF÷ø£bÅó® JS|‚R÷ivýáâ€Æé¡è³´IئÑT!§˜•Øª‚¬â@q€wnïCWÄ@JU€ê¯m6]Ï:£âx'+ÒðXvÓ¦Úm=–´7œ $ì“B£~p%ÕŸUþ« N@¼üï~w˜ñø5®—'Ôe»¤5ã//€ž~‰Tþ›Å7•#¤× Íö pÄ$ùeåì*«ÓŠEØWEÈsßg ¦ûvžSsLpºÊW–âµEWöˬH; ™!CYõZ ÃÄf æ#1W. \uWâ\,\Çf j’<qTbên›Î[vxx£ë 'ö¨1›˜ÀM¼Pÿ H)ƒêêŒA7s,|F“ 꺸k³9Ìö*ç®;Ö!Ö$Eiž•¹ÒÚ†ýóéÝû¾ÕS®ó$’NÝäŸz¤5r¦ãÄÃD÷Üø!°ø‡Ô&@m™Ì^Ãä­d q5Lnÿ N;.6½·N|#ä"1Nƒx“ã<3('&ñßt  ~ªu”1Tb㫨9ê–›–bìd$ߣ=#ÕãÒmU¯eí$EFù5ýYô櫨æ왍Ǘ±ssM]·á¿0ÕåJRÓªîiƒ+O58ÖñªŠÒx" \µâá¨i’¤i —Ö ” M+M¤ë9‚‰A¦°Qõ¾ßøK~¼Ã‘g…Ö´~÷Ï[3GUœÒ½#…kàÔ®Ò”‰³·dWV‰IP‰Ú8u¹”E ÖqLj¾êÕCBš{A^Âß;–¨`¯¬ìö ˼ ×tìø.tƐm*n¨y4o&Àx¥n¦×î‡aupáÛj8¿m›è¶ã!o½;ß0y^ý×^EÑ¿ÒjzŒ­)vÚÑnÄL …^ªô× ‡—‚3k Îý­hï]içå–îÏ*÷ñþ»Ô CÒjøjÍznˆ´ ¹#b'Fô‹ ‰v¥'’à'T´ƒHýÍ%M‰ ƒ&ÆÇŒï1 ‘ –Þ ‰i¬s žR-Ÿ kŠ¬á¬7:þ 0ŒÅÒÕ/aÙ¬ÃÝ#Úøœ ©aiVc‰. ¹¦ãµ” ›Yg¦›ÆÎýº°f³7ƒhá·¸­}&D9¡ÂsÉÙÞèŠõØàC™¨ñbFC|´Ü(ŸƒÚÒ-%»'a Ì¿)ËÇn¿úÿ ÞŽX…4ÊÅH^ôΑí@ù¹Eh¶“L8Çjù ¼ÎåVªóR©Ï5uà V4lZß®=€xÖŸ–ÑÈ ÷”¨°¾__yM1tÉ?uÆþIkÄgæ@þ[¢†°XÃJ£j·:nkÅ¢u ‘}âGzö­/IµèŠ¬¼48q¦F°ŽR¼=ûì{´¯RýicS ÕÛ íNtÍÙï£,w4rêì®»~x(©Uñ§#Ñ&œÕ¤>ÎåÍÓ9’Ö{9eV­[Öjâ²ãu]˜å2›qÑšÕJç0€sÄ|Êëè0튔bÁ>“{×_F`Ø©ºê:µä,v¤ðfc1±"«ÔÍän1#=· Âøv~H½ÐßA¾¿Ü€Óš]Õ; I¾÷ç‚Qi†î¹9ywÔKG˜áñ zQY—§ÃÕZ07§X‚ Áh;ÁM)iÌCH-¯T‘ë|A0{Ò½LÚ–TâÖkÜ’dÀ“rmm»”جPF³ÖcbE§T€ÒxKºû’Ó®7±²(\4ŽÃ¸Uu@j™yĵ;³µ!Á¢b.W¤=mõ´êµK k ¸K^ÜÛ#p*Ü14qkZç5ïë †°5Ï%ÍÛ<Õ¤×Ô¥ê†C Õ´¼ú$ƒÖ“”]Ù¬qÞÚ[4©ý!ûÏ—Áb쳐XµA¬â~`›Çr¸8ìùÝ䫦<>ä÷«?xs´ÇÑ /á;¹øüÊÈÙà{"@Žïzâ¬[âß‚ U_<ÇŸ½4èN˜ú61®qŠu ¦þF£»äJ_ˆÙÎ~ ÞAã–Ý„Ï—rŠD;xTž‘ô`É«…suãO`?³à™ô Lý#Íc5öoæØ‚y´´÷«ZR§<&JÇ+éâô´€i!Àˆ0æAoàðLèÖ-2ŸõW.’t^–(KÁmHµV@xÜÇy®Ñø­â^:Ú3w· 7½¹°ñ¸â¹®:',«Mœ—n­Á+Ãbš LÈ‘ÄnRÓÅœ%¦²‰¨ùQ:¤f‚ "PÕtô¸…cæl…&˜Ú˜Ôkv‹ž+vŠ,=¢v­6—Xy*¥t£«<™:“aîϲ=¦6rO]XI¿Œ÷¤zÚ­›¶ 6÷”w\d ü~v®ˆÌk«^m<ÿ ¢‰Õ\)ùºŽ;… lîÙÅEŠ®cѾ@vnMÏ,¼“ñ•ŽBxðÃzãÇç%3ˆ"}Ù•Åî> BÉú;Ò]V+P˜F_´ßé> Øše|ï‡ÄOmFæÇ ãqÞ$/xÐx­z`ï9"œÜij‚!7.\Td…9M‡•iŽ‹¾‘50ÞŽn¥ß4ÉôO ¹*í^QêËÜÇÌ8=Ž§s‰'ÂëÙ«á%Pú[O †ÅP¯VsŽ°.‰,kc¶ ¬A9n˜XÎ-ÞšN["¹QÕ‰ƒMýÁߺXJæÍaLj¾×Ãmã¾ãÚ uñÒþåQô¦¥ /ÄUx:‚ÍÜ’ Đ©ØÝ3V¨‰ÕnÐ6ó*óúK­«…c ¯U òhsý­jóÔj#,ímŒRµ«lbïUTŒÑ8†Ä0œÏr`ð¡¬É Ї ë"À² ™ 6¥ f¶ ¢ÚoܱԷ-<Àî)†a¶ž'Ú»¨TXqØæ¶÷YÄHy˜9ÈIW­YÀuMFë ºÏ’AqÌ4·/Ú †ô'i$øä­=Ä Ý|öK×40è|È6p‘0§)o¥ctî§H+CA-“ xØ|ÐXŠç l8íºð3Ø:³¤¬KX¯UÿÙ #!/usr/bin/perl # Debian task selector, mark II. # Copyright 2004-2011 by Joey Hess . # Licensed under the GPL, version 2 or higher. use 5.014; use Locale::gettext; use Getopt::Long; use POSIX qw(floor); use warnings; use strict; textdomain('tasksel'); my $debconf_helper="/usr/lib/tasksel/tasksel-debconf"; my $filter_tasks="/usr/lib/tasksel/filter-tasks"; my $testdir="/usr/lib/tasksel/tests"; my $packagesdir="/usr/lib/tasksel/packages"; my $descdir="/usr/share/tasksel/descs"; my $localdescdir="/usr/local/share/tasksel/descs"; my $statusfile="/var/lib/dpkg/status"; my $infodir="/usr/lib/tasksel/info"; my $testmode=0; my $taskpackageprefix="task-"; sub warning { print STDERR "tasksel: @_\n"; } sub error { print STDERR "tasksel: @_\n"; exit 1; } # Run a shell command except in test mode, and returns its exit code. # Prints the command in test mode. Parameters should be pre-split for # system. sub run { if ($testmode) { print join(" ", @_)."\n"; return 0; } else { return system(@_) >> 8; } } # A list of all available task desc files. sub list_task_descs { return glob("$descdir/*.desc"), glob("$localdescdir/*.desc"); } # Returns a list of hashes; hash values are arrays for multi-line fields. sub read_task_desc { my $desc=shift; my %tasks; open (DESC, "<$desc") || die "read $desc\: $!"; local $/="\n\n"; while () { my %data; my @lines=split("\n"); while (@lines) { my $line=shift(@lines); if ($line=~/^([^ ]+):(?: (.*))?/) { my ($key, $value)=($1, $2); $key=lc($key); if (@lines && $lines[0] =~ /^\s+/) { # multi-line field my @values; if (defined $value && length $value) { push @values, $value; } while (@lines && $lines[0] =~ /^\s+(.*)/) { push @values, $1; shift @lines; } $data{$key}=[@values]; } else { $data{$key}=$value; } } else { warning "parse error in stanza $. of $desc"; } } $data{relevance}=5 unless exists $data{relevance}; if (exists $data{task}) { $tasks{$data{task}} = \%data; } } close DESC; my @ret; foreach my $task (keys %tasks) { my $t=$tasks{$task}; if (exists $t->{parent} && exists $tasks{$t->{parent}}) { $t->{sortkey}=$tasks{$t->{parent}}->{relevance}.$t->{parent}."-0".$t->{relevance}; } else { $t->{sortkey}=$t->{relevance}.$t->{task}."-00"; } push @ret, $t; } return @ret; } # Loads info for all tasks, and returns a set of task structures. sub all_tasks { my %seen; grep { $seen{$_->{task}}++; $seen{$_->{task}} < 2 } map { read_task_desc($_) } list_task_descs(); } sub _info_avail { my %ret = (); # Might be better to use the perl apt bindings, but they are not # currently in base. open (AVAIL, "apt-cache dumpavail|"); local $_; my ($package, $section, $priority); while () { chomp; if (not $_) { if (defined $package && defined $priority && defined $section) { $ret{$package} = { "priority" => $priority, "section" => $section, }; } } elsif (/^Package: (.*)/) { $package = $1; } elsif (/^Priority: (.*)/) { $priority = $1; } elsif (/^Section: (.*)/) { $section = $1; } } close AVAIL; return %ret; } # Returns a list of all installed packages. sub list_installed { my @list; open (LIST, q{LANG=C dpkg-query -W -f='${Package} ${Status}\n' |}); while () { if (/^([^ ]+) .* installed$/m) { push @list, $1; } } close LIST; return @list; } my %_info_avail_cache; # Returns a hash of all available packages. sub info_avail { my $package = shift; if (!%_info_avail_cache) { %_info_avail_cache = _info_avail(); } return \%_info_avail_cache; } # Given a package name, checks to see if it's available. Memoised. sub package_avail { my $package = shift; return info_avail()->{$package} || package_installed($package); } my %installed_pkgs; # Given a package name, checks to see if it's installed. Memoised. sub package_installed { my $package=shift; if (! %installed_pkgs) { foreach my $pkg (list_installed()) { $installed_pkgs{$pkg} = 1; } } return $installed_pkgs{$package}; } # Given a task hash, checks if its key packages are available. sub task_avail { local $_; my $task=shift; if (! ref $task->{key}) { return 1; } else { foreach my $pkg (@{$task->{key}}) { if (! package_avail($pkg)) { return 0; } } return 1; } } # Given a task hash, checks to see if it is already installed. # (All of its key packages must be installed.) sub task_installed { local $_; my $task=shift; if (! ref $task->{key}) { return 0; # can't tell with no key packages } else { foreach my $pkg (@{$task->{key}}) { if (! package_installed($pkg)) { return 0; } } return 1; } } # Given a task hash, checks to see if apt-get will be able to install it. # Memoised. my %existing_apt_tasks; sub task_exists { my $task=shift; if (! %existing_apt_tasks) { local $/="\n\n"; open (AVAIL, "apt-cache dumpavail|"); while () { if (/^Task: (.*)/m) { my @tasks=split(", ", $1); for my $existing_task (@tasks) { $existing_apt_tasks{$existing_task}=1; } } } close AVAIL; } return $existing_apt_tasks{$task->{task}}; } # Given task hash, returns a list of all available packages in the task. sub task_packages { my $task=shift; my %list; # key packages are always included if (ref $task->{key}) { map { $list{$_}=1 } @{$task->{key}}; } if (! defined $task->{packages}) { # only key } elsif ($task->{packages} eq 'task-fields') { # task-fields method is built-in for speed and to support # aptitude/apt-get task definitions if (task_exists($task)) { return $task->{task}.'^'; } else { return; } } elsif ($task->{packages} eq 'standard') { my %info_avail=%{info_avail()}; while (my ($package, $info) = each(%info_avail)) { my ($priority, $section) = ($info->{priority}, $info->{section}); if (($priority eq 'required' || $priority eq 'important' || $priority eq 'standard') && # Exclude packages in non-main and library sections $section !~ /^lib|\// && # Exclude already installed packages !package_installed($package)) { $list{$package} = 1; } } } else { # external method my ($method, @params); if (ref $task->{packages}) { @params=@{$task->{packages}}; $method=shift @params; } else { $method=$task->{packages}; } map { $list{$_}=1 } grep { package_avail($_) } split(' ', `$packagesdir/$method $task->{task} @params`); } return keys %list; } # Given a task hash, runs any test program specified in its data, and sets # the _display and _install fields to 1 or 0 depending on its result. sub task_test { my $task=shift; my $new_install=shift; $task->{_display} = shift; # default $task->{_install} = shift; # default $ENV{NEW_INSTALL}=$new_install if defined $new_install; foreach my $test (grep /^test-.*/, keys %$task) { $test=~s/^test-//; if (-x "$testdir/$test") { my $ret=system("$testdir/$test", $task->{task}, split " ", $task->{"test-$test"}) >> 8; if ($ret == 0) { $task->{_display} = 0; $task->{_install} = 1; } elsif ($ret == 1) { $task->{_display} = 0; $task->{_install} = 0; } elsif ($ret == 2) { $task->{_display} = 1; $task->{_install} = 1; } elsif ($ret == 3) { $task->{_display} = 1; $task->{_install} = 0; } } } delete $ENV{NEW_INSTALL}; return $task; } # Given a list of task hashes, adjust their statuses according to # tasksel/force-tasks, tasksel/limit-tasks, and tasksel/skip-tasks. sub filter_tasks { my %tasks=map { $_->{task} => $_ } @_; my $tmpfile=`tempfile`; chomp $tmpfile; my $ret=system($filter_tasks, $tmpfile, sort keys %tasks) >> 8; if ($ret != 0) { error "filter-tasks failed to run"; } open(IN, "<$tmpfile") or return; for my $line () { chomp $line; $line=~/(.*?) (install|skip)/ or next; my $name=$1; my $action=$2; if ($action eq 'install') { $tasks{$name}{_display} = 0; $tasks{$name}{_install} = 1; } elsif ($action eq 'skip') { $tasks{$name}{_display} = 0; $tasks{$name}{_install} = 0; } } close IN; unlink $tmpfile; } # Hides a task and marks it not to be installed if it enhances other # tasks. sub hide_enhancing_tasks { my $task=shift; if (exists $task->{enhances} && length $task->{enhances}) { $task->{_display} = 0; } return $task; } # Looks up the descriptions of a set of tasks, returning a new list # with the shortdesc fields filled in. sub getdescriptions { my @tasks=@_; # If the task has a description field in the task desc file, # just use it, looking up a translation in gettext. @tasks = map { if (defined $_->{description}) { $_->{shortdesc}=dgettext("debian-tasks", $_->{description}->[0]); } $_; } @tasks; # Otherwise, a more expensive apt-cache query is done, # to use the descriptions of task packages. my @todo = grep { ! defined $_->{shortdesc} } @tasks; if (@todo) { open(APT_CACHE, "apt-cache show ".join(" ", map { $taskpackageprefix.$_->{task} } @todo)." |") || die "apt-cache show: $!"; local $/="\n\n"; while () { my ($name)=/^Package: $taskpackageprefix(.*)$/m; my ($description)=/^Description-(?:[a-z][a-z](?:_[A-Z][A-Z])?): (.*)$/m; ($description)=/^Description: (.*)$/m unless defined $description; if (defined $name && defined $description) { @tasks = map { if ($_->{task} eq $name) { $_->{shortdesc}=$description; } $_; } @tasks; } } close APT_CACHE; } return @tasks; } # Converts a list of tasks into a debconf list of the task short # descriptions. sub task_to_debconf { join ", ", map { format_description_for_debconf($_) } getdescriptions(@_); } sub format_description_for_debconf { my $task=shift; my $d=$task->{shortdesc}; $d=~s/,/\\,/g; $d="... ".$d if exists $task->{parent}; return $d; } # Converts a list of tasks into a debconf list of the task names. sub task_to_debconf_C { join ", ", map { $_->{task} } @_; } # Given a first parameter that is a string listing task names, and then a # list of task hashes, returns a list of hashes for all the tasks # in the list. sub list_to_tasks { my $list=shift; my %lookup = map { $_->{task} => $_ } @_; return grep { defined } map { $lookup{$_} } split /[, ]+/, $list; } # Orders a list of tasks for display. sub order_for_display { sort { $a->{sortkey} cmp $b->{sortkey} || 0 || $a->{task} cmp $b->{task} } @_; } # Given a set of tasks and a name, returns the one with that name. sub name_to_task { my $name=shift; return (grep { $_->{task} eq $name } @_)[0]; } sub task_script { my $task=shift; my $script=shift; my $path="$infodir/$task.$script"; if (-e $path && -x _) { my $ret=run($path); if ($ret != 0) { warning("$path exited with nonzero code $ret"); return 0; } } return 1; } sub usage { print STDERR gettext(q{Usage: tasksel install ... tasksel remove ... tasksel [options] -t, --test test mode; don't really do anything --new-install automatically install some tasks --list-tasks list tasks that would be displayed and exit --task-packages list available packages in a task --task-desc returns the description of a task }); } # Process command line options and return them in a hash. sub getopts { my %ret; Getopt::Long::Configure ("bundling"); if (! GetOptions(\%ret, "test|t", "new-install", "list-tasks", "task-packages=s@", "task-desc=s", "debconf-apt-progress=s")) { usage(); exit(1); } # Special case apt-like syntax. if (@ARGV) { my $cmd = shift @ARGV; if ($cmd eq "install") { $ret{cmd_install} = \@ARGV; } elsif ($cmd eq "remove") { $ret{cmd_remove} = \@ARGV; } else { usage(); exit 1; } } $testmode=1 if $ret{test}; # set global return %ret; } sub interactive { my $options = shift; my @tasks = @_; if (! $options->{"new-install"}) { # Don't install hidden tasks if this is not a new install. map { $_->{_install} = 0 } grep { $_->{_display} == 0 } @tasks; } my @list = order_for_display(grep { $_->{_display} == 1 } @tasks); if (@list) { if (! $options->{"new-install"}) { # Find tasks that are already installed. map { $_->{_installed} = task_installed($_) } @list; # Don't install new tasks unless manually selected. map { $_->{_install} = 0 } @list; } else { # Assume that no tasks are installed, to ensure # that complete tasks get installed on new # installs. map { $_->{_installed} = 0 } @list; } my $question="tasksel/tasks"; if ($options->{"new-install"}) { $question="tasksel/first"; } if ($options->{"new-install"}) { # Include any preseeded tasks in the list, # regardless of filtering. my $tmpfile=`tempfile`; chomp $tmpfile; my $ret=system($debconf_helper, "--get", $tmpfile, $question) >> 8; if ($ret != 0) { error "debconf failed to run"; } open(IN, "<$tmpfile"); $ret=; if (! defined $ret) { die "tasksel canceled\n"; } chomp $ret; close IN; unlink $tmpfile; map { $_->{_display} = 1; $_->{_installed} = 0 } list_to_tasks($ret, @tasks); @list = order_for_display(grep { $_->{_display} == 1 } @tasks); } my @default = grep { $_->{_display} == 1 && ($_->{_install} == 1 || $_->{_installed} == 1) } @tasks; my $tmpfile=`tempfile`; chomp $tmpfile; my $ret=system($debconf_helper, $tmpfile, task_to_debconf_C(@list), task_to_debconf(@list), task_to_debconf_C(@default), $question) >> 8; if ($ret == 30) { exit 10; # back up } elsif ($ret != 0) { error "debconf failed to run"; } open(IN, "<$tmpfile"); $ret=; if (! defined $ret) { die "tasksel canceled\n"; } chomp $ret; close IN; unlink $tmpfile; # Set _install flags based on user selection. map { $_->{_install} = 0 } @list; foreach my $task (list_to_tasks($ret, @tasks)) { if (! $task->{_installed}) { $task->{_install} = 1; } $task->{_selected} = 1; } foreach my $task (@list) { if (! $task->{_selected} && $task->{_installed}) { $task->{_remove} = 1; } } } # If an enhancing task is already marked for # install, probably by preseeding, mark the tasks # it enhances for install. foreach my $task (grep { $_->{_install} && exists $_->{enhances} && length $_->{enhances} } @tasks) { # Ignore any disjunctive sets. We don't know which # element(s) we should use, so if the user didn't select any # it's better to just leave them alone. my $simple_enhances=join ", ", grep { ! /\|/ } split ", ", $task->{enhances}; map { $_->{_install}=1 } list_to_tasks($simple_enhances, @tasks); } # Select enhancing tasks for install. # XXX FIXME ugly hack -- loop until enhances settle to handle # chained enhances. This is ugly and could loop forever if # there's a cycle. my $enhances_needswork=1; my %tested; while ($enhances_needswork) { $enhances_needswork=0; foreach my $task (grep { ! $_->{_install} && exists $_->{enhances} && length $_->{enhances} } @tasks) { my %tasknames = map { $_->{task} => $_ } @tasks; my @deps=map { $tasknames{$_} } split ", ", $task->{enhances}; if (grep { ! defined $_ } @deps) { # task enhances an unavailable or # uninstallable task next; } if (@deps) { my $orig_state=$task->{_install}; # Mark enhancing tasks for install if their # dependencies are met and their test fields # mark them for install. if (! exists $tested{$task->{task}}) { $ENV{TESTING_ENHANCER}=1; task_test($task, $options->{"new-install"}, 0, 1); delete $ENV{TESTING_ENHANCER}; $tested{$task->{task}}=$task->{_install}; } else { $task->{_install}=$tested{$task->{task}}; } foreach my $ordep (@deps) { my $satisfied=0; foreach my $dep (map { $tasknames{$_} } split " | ", $ordep) { if ($dep->{_install}) { $satisfied=1; } } if (! $satisfied) { $task->{_install} = 0; } } if ($task->{_install} != $orig_state) { $enhances_needswork=1; } } } } } sub main { my %options=getopts(); my @tasks_remove; my @tasks_install; # Options that output stuff and don't need a full processed list of # tasks. if (exists $options{"task-packages"}) { my @tasks=all_tasks(); foreach my $taskname (@{$options{"task-packages"}}) { my $task=name_to_task($taskname, @tasks); if ($task) { print "$_\n" foreach task_packages($task); } } exit(0); } elsif ($options{"task-desc"}) { my $task=name_to_task($options{"task-desc"}, all_tasks()); if ($task) { my $extdesc=join(" ", @{$task->{description}}[1..$#{$task->{description}}]); print dgettext("debian-tasks", $extdesc)."\n"; exit(0); } else { exit(1); } } # This is relatively expensive, get the full list of available tasks and # mark them. my @tasks=map { hide_enhancing_tasks($_) } map { task_test($_, $options{"new-install"}, 1, 0) } grep { task_avail($_) } all_tasks(); if ($options{"new-install"}) { filter_tasks(@tasks); } if ($options{"list-tasks"}) { map { $_->{_installed} = task_installed($_) } @tasks; @tasks=getdescriptions(@tasks); print "".($_->{_installed} ? "i" : "u")." ".$_->{task}."\t".$_->{shortdesc}."\n" foreach order_for_display(grep { $_->{_display} } @tasks); exit(0); } if ($options{cmd_install}) { @tasks_install = map { name_to_task($_, @tasks) } @{$options{cmd_install}}; } elsif ($options{cmd_remove}) { @tasks_remove = map { name_to_task($_, @tasks) } @{$options{cmd_remove}}; } else { interactive(\%options, @tasks); # Add tasks to install @tasks_install = grep { $_->{_install} } @tasks; # Add tasks to remove @tasks_remove = grep { $_->{_remove} } @tasks; } my @cmd; if (-x "/usr/bin/debconf-apt-progress") { @cmd = "debconf-apt-progress"; push @cmd, split(' ', $options{'debconf-apt-progress'}) if exists $options{'debconf-apt-progress'}; push @cmd, "--"; } push @cmd, qw{apt-get -q -y -o APT::Install-Recommends=true -o APT::Get::AutomaticRemove=true -o APT::Acquire::Retries=3 install}; # And finally, act on selected tasks. if (@tasks_install || @tasks_remove) { foreach my $task (@tasks_remove) { push @cmd, map { "$_-" } task_packages($task); task_script($task->{task}, "prerm"); } foreach my $task (@tasks_install) { push @cmd, task_packages($task); task_script($task->{task}, "preinst"); } my $ret=run(@cmd); if ($ret != 0) { error gettext("apt-get failed")." ($ret)"; } foreach my $task (@tasks_remove) { task_script($task->{task}, "postrm"); } foreach my $task (@tasks_install) { task_script($task->{task}, "postinst"); } } } main();