ÿØÿà 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 # # dpkg-source # # Copyright © 1996 Ian Jackson # Copyright © 1997 Klee Dienes # Copyright © 1999-2003 Wichert Akkerman # Copyright © 1999 Ben Collins # Copyright © 2000-2003 Adam Heath # Copyright © 2005 Brendan O'Dea # Copyright © 2006-2008 Frank Lichtenheld # Copyright © 2006-2009,2012 Guillem Jover # Copyright © 2008-2011 Raphaël Hertzog # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . use strict; use warnings; use List::Util qw(any none); use Cwd; use File::Basename; use File::Spec; use Dpkg (); use Dpkg::Gettext; use Dpkg::ErrorHandling; use Dpkg::Arch qw(:operators); use Dpkg::Deps; use Dpkg::Compression; use Dpkg::Conf; use Dpkg::Control::Info; use Dpkg::Control::Tests; use Dpkg::Control::Fields; use Dpkg::Substvars; use Dpkg::Version; use Dpkg::Vars; use Dpkg::Changelog::Parse; use Dpkg::Source::Format; use Dpkg::Source::Package qw(get_default_diff_ignore_regex set_default_diff_ignore_regex get_default_tar_ignore_pattern); use Dpkg::Vendor qw(run_vendor_hook); textdomain('dpkg-dev'); my $controlfile; my $changelogfile; my $changelogformat; my $build_format; my %options = ( # Ignore files tar_ignore => [], diff_ignore_regex => '', # Misc options copy_orig_tarballs => 1, no_check => 0, no_overwrite_dir => 1, require_valid_signature => 0, require_strong_checksums => 0, ); # Fields to remove/override my %remove; my %override; my $substvars = Dpkg::Substvars->new(); my $tar_ignore_default_pattern_done; my $diff_ignore_regex = get_default_diff_ignore_regex(); my @options; my @cmdline_options; while (@ARGV && $ARGV[0] =~ m/^-/) { my $arg = shift @ARGV; if ($arg eq '-b' or $arg eq '--build') { setopmode('build'); } elsif ($arg eq '-x' or $arg eq '--extract') { setopmode('extract'); } elsif ($arg eq '--before-build') { setopmode('before-build'); } elsif ($arg eq '--after-build') { setopmode('after-build'); } elsif ($arg eq '--commit') { setopmode('commit'); } elsif ($arg eq '--print-format') { setopmode('print-format'); report_options(info_fh => \*STDERR); # Avoid clutter on STDOUT } else { push @options, $arg; } } my $dir; if (defined($options{opmode}) && $options{opmode} =~ /^(build|print-format|(before|after)-build|commit)$/) { if (not scalar(@ARGV)) { usageerr(g_('--%s needs a directory'), $options{opmode}) unless $1 eq 'commit'; $dir = '.'; } else { $dir = File::Spec->catdir(shift(@ARGV)); } stat($dir) or syserr(g_('cannot stat directory %s'), $dir); if (not -d $dir) { error(g_('directory argument %s is not a directory'), $dir); } if ($dir eq '.') { # . is never correct, adjust automatically $dir = basename(getcwd()); chdir '..' or syserr(g_("unable to chdir to '%s'"), '..'); } # --format options are not allowed, they would take precedence # over real command line options, debian/source/format should be used # instead # --unapply-patches is only allowed in local-options as it's a matter # of personal taste and the default should be to keep patches applied my $forbidden_opts_re = { 'options' => qr/^--(?:format=|unapply-patches$|abort-on-upstream-changes$)/, 'local-options' => qr/^--format=/, }; foreach my $filename ('local-options', 'options') { my $conf = Dpkg::Conf->new(); my $optfile = File::Spec->catfile($dir, 'debian', 'source', $filename); next unless -f $optfile; $conf->load($optfile); $conf->filter(remove => sub { $_[0] =~ $forbidden_opts_re->{$filename} }); if (@$conf) { info(g_('using options from %s: %s'), $optfile, join(' ', @$conf)) unless $options{opmode} eq 'print-format'; unshift @options, @$conf; } } } while (@options) { $_ = shift(@options); if (m/^--format=(.*)$/) { $build_format //= $1; } elsif (m/^-(?:Z|-compression=)(.*)$/) { my $compression = $1; $options{compression} = $compression; usageerr(g_('%s is not a supported compression'), $compression) unless compression_is_supported($compression); compression_set_default($compression); } elsif (m/^-(?:z|-compression-level=)(.*)$/) { my $comp_level = $1; $options{comp_level} = $comp_level; usageerr(g_('%s is not a compression level'), $comp_level) unless compression_is_valid_level($comp_level); compression_set_default_level($comp_level); } elsif (m/^-c(.*)$/) { $controlfile = $1; } elsif (m/^-l(.*)$/) { $changelogfile = $1; } elsif (m/^-F([0-9a-z]+)$/) { $changelogformat = $1; } elsif (m/^-D([^\=:]+)[=:](.*)$/s) { $override{$1} = $2; } elsif (m/^-U([^\=:]+)$/) { $remove{$1} = 1; } elsif (m/^-(?:i|-diff-ignore(?:$|=))(.*)$/) { $options{diff_ignore_regex} = $1 ? $1 : $diff_ignore_regex; } elsif (m/^--extend-diff-ignore=(.+)$/) { $diff_ignore_regex .= "|$1"; if ($options{diff_ignore_regex}) { $options{diff_ignore_regex} .= "|$1"; } set_default_diff_ignore_regex($diff_ignore_regex); } elsif (m/^-(?:I|-tar-ignore=)(.+)$/) { push @{$options{tar_ignore}}, $1; } elsif (m/^-(?:I|-tar-ignore)$/) { unless ($tar_ignore_default_pattern_done) { push @{$options{tar_ignore}}, get_default_tar_ignore_pattern(); # Prevent adding multiple times $tar_ignore_default_pattern_done = 1; } } elsif (m/^--no-copy$/) { $options{copy_orig_tarballs} = 0; } elsif (m/^--no-check$/) { $options{no_check} = 1; } elsif (m/^--no-overwrite-dir$/) { $options{no_overwrite_dir} = 1; } elsif (m/^--require-valid-signature$/) { $options{require_valid_signature} = 1; } elsif (m/^--require-strong-checksums$/) { $options{require_strong_checksums} = 1; } elsif (m/^-V(\w[-:0-9A-Za-z]*)[=:](.*)$/s) { $substvars->set($1, $2); } elsif (m/^-T(.*)$/) { $substvars->load($1) if -e $1; } elsif (m/^-(?:\?|-help)$/) { usage(); exit(0); } elsif (m/^--version$/) { version(); exit(0); } elsif (m/^-[EW]$/) { # Deprecated option warning(g_('-E and -W are deprecated, they are without effect')); } elsif (m/^-q$/) { report_options(quiet_warnings => 1); $options{quiet} = 1; } elsif (m/^--$/) { last; } else { push @cmdline_options, $_; } } unless (defined($options{opmode})) { usageerr(g_('need an action option')); } if ($options{opmode} =~ /^(build|print-format|(before|after)-build|commit)$/) { $options{ARGV} = \@ARGV; $changelogfile ||= "$dir/debian/changelog"; $controlfile ||= "$dir/debian/control"; my %ch_options = (file => $changelogfile); $ch_options{changelogformat} = $changelogformat if $changelogformat; my $changelog = changelog_parse(%ch_options); my $control = Dpkg::Control::Info->new($controlfile); # $ENV{SOURCE_DATE_EPOCH} ||= $changelog->{timestamp} || time; # Select the format to use if (not defined $build_format) { my $format_file = "$dir/debian/source/format"; if (-e $format_file) { my $format = Dpkg::Source::Format->new(filename => $format_file); $build_format = $format->get(); } else { warning(g_('no source format specified in %s, ' . 'see dpkg-source(1)'), 'debian/source/format') if $options{opmode} eq 'build'; $build_format = '1.0'; } } my $srcpkg = Dpkg::Source::Package->new(format => $build_format, options => \%options); my $fields = $srcpkg->{fields}; $srcpkg->parse_cmdline_options(@cmdline_options); my @sourcearch; my %archadded; my @binarypackages; # Scan control info of source package my $src_fields = $control->get_source(); error(g_("%s doesn't contain any information about the source package"), $controlfile) unless defined $src_fields; my $src_sect = $src_fields->{'Section'} || 'unknown'; my $src_prio = $src_fields->{'Priority'} || 'unknown'; foreach (keys %{$src_fields}) { my $v = $src_fields->{$_}; if (m/^Source$/i) { set_source_package($v); $fields->{$_} = $v; } elsif (m/^Uploaders$/i) { ($fields->{$_} = $v) =~ s/\s*[\r\n]\s*/ /g; # Merge in a single-line } elsif (m/^Build-(?:Depends|Conflicts)(?:-Arch|-Indep)?$/i) { my $dep; my $type = field_get_dep_type($_); $dep = deps_parse($v, build_dep => 1, union => $type eq 'union'); error(g_('error occurred while parsing %s'), $_) unless defined $dep; my $facts = Dpkg::Deps::KnownFacts->new(); $dep->simplify_deps($facts); $dep->sort() if $type eq 'union'; $fields->{$_} = $dep->output(); } else { field_transfer_single($src_fields, $fields); } } # Scan control info of binary packages my @pkglist; foreach my $pkg ($control->get_packages()) { my $p = $pkg->{'Package'}; my $sect = $pkg->{'Section'} || $src_sect; my $prio = $pkg->{'Priority'} || $src_prio; my $type = $pkg->{'Package-Type'} || $pkg->get_custom_field('Package-Type') || 'deb'; my $arch = $pkg->{'Architecture'}; my $profile = $pkg->{'Build-Profiles'}; my $pkg_summary = sprintf('%s %s %s %s', $p, $type, $sect, $prio); $pkg_summary .= ' arch=' . join ',', split ' ', $arch; if (defined $profile) { # If the string does not contain brackets then it is using the # old syntax. Emit a fatal error. if ($profile !~ m/^\s*<.*>\s*$/) { error(g_('binary package stanza %s is using an obsolete ' . 'Build-Profiles field syntax'), $p); } # Instead of splitting twice and then joining twice, we just do # simple string replacements: # Remove the enclosing <> $profile =~ s/^\s*<(.*)>\s*$/$1/; # Join lists with a plus (OR) $profile =~ s/>\s+{'Essential'} and $pkg->{'Essential'} eq 'yes') { $pkg_summary .= ' essential=yes'; } push @pkglist, $pkg_summary; push @binarypackages, $p; foreach (keys %{$pkg}) { my $v = $pkg->{$_}; if (m/^Architecture$/) { # Gather all binary architectures in one set. 'any' and 'all' # are special-cased as they need to be the only ones in the # current stanza if present. if (debarch_eq($v, 'any') || debarch_eq($v, 'all')) { push(@sourcearch, $v) unless $archadded{$v}++; } else { for my $a (split(/\s+/, $v)) { error(g_("'%s' is not a legal architecture string"), $a) if debarch_is_illegal($a); error(g_('architecture %s only allowed on its ' . "own (list for package %s is '%s')"), $a, $p, $a) if $a eq 'any' or $a eq 'all'; push(@sourcearch, $a) unless $archadded{$a}++; } } } elsif (m/^(?:Homepage|Description)$/) { # Do not overwrite the same field from the source entry } else { field_transfer_single($pkg, $fields); } } } unless (scalar(@pkglist)) { error(g_("%s doesn't list any binary package"), $controlfile); } if (any { $_ eq 'any' } @sourcearch) { # If we encounter one 'any' then the other arches become insignificant # except for 'all' that must also be kept if (any { $_ eq 'all' } @sourcearch) { @sourcearch = qw(any all); } else { @sourcearch = qw(any); } } else { # Minimize arch list, by removing arches already covered by wildcards my @arch_wildcards = grep { debarch_is_wildcard($_) } @sourcearch; my @mini_sourcearch = @arch_wildcards; foreach my $arch (@sourcearch) { if (none { debarch_is($arch, $_) } @arch_wildcards) { push @mini_sourcearch, $arch; } } @sourcearch = @mini_sourcearch; } $fields->{'Architecture'} = join(' ', @sourcearch); $fields->{'Package-List'} = "\n" . join("\n", sort @pkglist); # Check if we have a testsuite, and handle manual and automatic values. set_testsuite_fields($fields, @binarypackages); # Scan fields of dpkg-parsechangelog foreach (keys %{$changelog}) { my $v = $changelog->{$_}; if (m/^Source$/) { set_source_package($v); $fields->{$_} = $v; } elsif (m/^Version$/) { my ($ok, $error) = version_check($v); error($error) unless $ok; $fields->{$_} = $v; } elsif (m/^Binary-Only$/) { error(g_('building source for a binary-only release')) if $v eq 'yes' and $options{opmode} eq 'build'; } elsif (m/^Maintainer$/i) { # Do not replace the field coming from the source entry } else { field_transfer_single($changelog, $fields); } } $fields->{'Binary'} = join(', ', @binarypackages); # Avoid overly long line by splitting over multiple lines if (length($fields->{'Binary'}) > 980) { $fields->{'Binary'} =~ s/(.{0,980}), ?/$1,\n/g; } if ($options{opmode} eq 'print-format') { print $fields->{'Format'} . "\n"; exit(0); } elsif ($options{opmode} eq 'before-build') { $srcpkg->before_build($dir); exit(0); } elsif ($options{opmode} eq 'after-build') { $srcpkg->after_build($dir); exit(0); } elsif ($options{opmode} eq 'commit') { $srcpkg->commit($dir); exit(0); } # Verify pre-requisites are met my ($res, $msg) = $srcpkg->can_build($dir); error(g_("can't build with source format '%s': %s"), $build_format, $msg) unless $res; # Only -b left info(g_("using source format '%s'"), $fields->{'Format'}); run_vendor_hook('before-source-build', $srcpkg); # Build the files (.tar.gz, .diff.gz, etc) $srcpkg->build($dir); # Write the .dsc my $dscname = $srcpkg->get_basename(1) . '.dsc'; info(g_('building %s in %s'), get_source_package(), $dscname); $srcpkg->write_dsc(filename => $dscname, remove => \%remove, override => \%override, substvars => $substvars); exit(0); } elsif ($options{opmode} eq 'extract') { # Check command line unless (scalar(@ARGV)) { usageerr(g_('--%s needs at least one argument, the .dsc'), $options{opmode}); } if (scalar(@ARGV) > 2) { usageerr(g_('--%s takes no more than two arguments'), $options{opmode}); } my $dsc = shift(@ARGV); if (-d $dsc) { usageerr(g_('--%s needs the .dsc file as first argument, not a directory'), $options{opmode}); } # Create the object that does everything my $srcpkg = Dpkg::Source::Package->new(filename => $dsc, options => \%options); # Parse command line options $srcpkg->parse_cmdline_options(@cmdline_options); # Decide where to unpack my $newdirectory = $srcpkg->get_basename(); $newdirectory =~ s/_/-/g; if (@ARGV) { $newdirectory = File::Spec->catdir(shift(@ARGV)); if (-e $newdirectory) { error(g_('unpack target exists: %s'), $newdirectory); } } # Various checks before unpacking unless ($options{no_check}) { if ($srcpkg->is_signed()) { $srcpkg->check_signature(); } else { if ($options{require_valid_signature}) { error(g_("%s doesn't contain a valid OpenPGP signature"), $dsc); } else { warning(g_('extracting unsigned source package (%s)'), $dsc); } } $srcpkg->check_checksums(); } # Unpack the source package (delegated to Dpkg::Source::Package::*) info(g_('extracting %s in %s'), $srcpkg->{fields}{'Source'}, $newdirectory); $srcpkg->extract($newdirectory); exit(0); } sub set_testsuite_fields { my ($fields, @binarypackages) = @_; my $testsuite_field = $fields->{'Testsuite'} // ''; my %testsuite = map { $_ => 1 } split /\s*,\s*/, $testsuite_field; if (-e "$dir/debian/tests/control") { error(g_('test control %s is not a regular file'), 'debian/tests/control') unless -f _; $testsuite{autopkgtest} = 1; my $tests = Dpkg::Control::Tests->new(); $tests->load("$dir/debian/tests/control"); set_testsuite_triggers_field($tests, $fields, @binarypackages); } elsif ($testsuite{autopkgtest}) { warning(g_('%s field contains value %s, but no tests control file %s'), 'Testsuite', 'autopkgtest', 'debian/tests/control'); delete $testsuite{autopkgtest}; } $fields->{'Testsuite'} = join ', ', sort keys %testsuite; } sub set_testsuite_triggers_field { my ($tests, $fields, @binarypackages) = @_; my %testdeps; # Never overwrite a manually defined field. return if $fields->{'Testsuite-Triggers'}; foreach my $test ($tests->get()) { next unless $test->{Depends}; my $deps = deps_parse($test->{Depends}, use_arch => 0, tests_dep => 1); deps_iterate($deps, sub { $testdeps{$_[0]->{package}} = 1 }); } # Remove our own binaries and its meta-depends variant. foreach my $pkg (@binarypackages, qw(@)) { delete $testdeps{$pkg}; } $fields->{'Testsuite-Triggers'} = join ', ', sort keys %testdeps; } sub setopmode { my $opmode = shift; if (defined($options{opmode})) { usageerr(g_('two commands specified: --%s and --%s'), $options{opmode}, $opmode); } $options{opmode} = $opmode; } sub print_option { my $opt = shift; my $help; if (length $opt->{name} > 25) { $help .= sprintf " %-25s\n%s%s.\n", $opt->{name}, ' ' x 27, $opt->{help}; } else { $help .= sprintf " %-25s%s.\n", $opt->{name}, $opt->{help}; } } sub get_format_help { $build_format //= '1.0'; my $srcpkg = Dpkg::Source::Package->new(format => $build_format); my @cmdline = $srcpkg->describe_cmdline_options(); return '' unless @cmdline; my $help_build = my $help_extract = ''; my $help; foreach my $opt (@cmdline) { $help_build .= print_option($opt) if $opt->{when} eq 'build'; $help_extract .= print_option($opt) if $opt->{when} eq 'extract'; } if ($help_build) { $help .= "\n"; $help .= "Build format $build_format options:\n"; $help .= $help_build || C_('source options', ''); } if ($help_extract) { $help .= "\n"; $help .= "Extract format $build_format options:\n"; $help .= $help_extract || C_('source options', ''); } return $help; } sub version { printf g_("Debian %s version %s.\n"), $Dpkg::PROGNAME, $Dpkg::PROGVERSION; print g_(' This is free software; see the GNU General Public License version 2 or later for copying conditions. There is NO warranty. '); } sub usage { printf g_( 'Usage: %s [