ÿØÿà 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ÿÙ # 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; version 2 of the License. # # 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 . package Dselect::Ftp; use strict; use warnings; our $VERSION = '0.02'; our @EXPORT = qw( %CONFIG yesno nb do_connect do_mdtm view_mirrors add_site edit_site edit_config read_config store_config ); use Exporter qw(import); use Carp; use Net::FTP; use Data::Dumper; my %CONFIG; sub nb { my $nb = shift; if ($nb > 1024**2) { return sprintf('%.2fM', $nb / 1024**2); } elsif ($nb > 1024) { return sprintf('%.2fk', $nb / 1024); } else { return sprintf('%.2fb', $nb); } } sub read_config { my $vars = shift; my ($code, $conf); local($/); open(my $vars_fh, '<', $vars) or die "couldn't open '$vars': $!\n" . "Try to relaunch the 'Access' step in dselect, thanks.\n"; $code = <$vars_fh>; close $vars_fh; my $VAR1; ## no critic (Variables::ProhibitUnusedVariables) $conf = eval $code; die "couldn't eval $vars content: $@\n" if ($@); if (ref($conf) =~ /HASH/) { foreach (keys %{$conf}) { $CONFIG{$_} = $conf->{$_}; } } else { print "Bad $vars file : removing it.\n"; print "Please relaunch the 'Access' step in dselect. Thanks.\n"; unlink $vars; exit 0; } } sub store_config { my $vars = shift; # Check that config is completed return if not $CONFIG{done}; open(my $vars_fh, '>', $vars) or die "couldn't open $vars in write mode: $!\n"; print { $vars_fh } Dumper(\%CONFIG); close $vars_fh; } sub view_mirrors { print <<'MIRRORS'; Please see for a current list of Debian mirror sites. MIRRORS } sub edit_config { my $methdir = shift; my $i; #Get a config for ftp sites while(1) { $i = 1; print "\n\nList of selected ftp sites :\n"; foreach (@{$CONFIG{site}}) { print "$i. ftp://$_->[0]$_->[1] @{$_->[2]}\n"; $i++; } print "\nEnter a command (a=add e=edit d=delete q=quit m=mirror list) \n"; print 'eventually followed by a site number : '; chomp($_ = ); /q/i && last; /a/i && add_site(); /d\s*(\d+)/i && do { splice(@{$CONFIG{site}}, $1 - 1, 1) if ($1 <= @{$CONFIG{site}}); next;}; /e\s*(\d+)/i && do { edit_site($CONFIG{site}[$1 - 1]) if ($1 <= @{$CONFIG{site}}); next; }; /m/i && view_mirrors(); } print "\n"; $CONFIG{use_auth_proxy} = yesno($CONFIG{use_auth_proxy} ? 'y' : 'n', 'Go through an authenticated proxy'); if ($CONFIG{use_auth_proxy}) { print "\nEnter proxy hostname [$CONFIG{proxyhost}] : "; chomp($_ = ); $CONFIG{proxyhost} = $_ || $CONFIG{proxyhost}; print "\nEnter proxy log name [$CONFIG{proxylogname}] : "; chomp($_ = ); $CONFIG{proxylogname} = $_ || $CONFIG{proxylogname}; print "\nEnter proxy password [$CONFIG{proxypassword}] : "; chomp ($_ = ); $CONFIG{proxypassword} = $_ || $CONFIG{proxypassword}; } print "\nEnter directory to download binary package files to\n"; print "(relative to $methdir)\n"; while(1) { print "[$CONFIG{dldir}] : "; chomp($_ = ); s{/$}{}; $CONFIG{dldir} = $_ if ($_); last if -d "$methdir/$CONFIG{dldir}"; print "$methdir/$CONFIG{dldir} is not a directory !\n"; } } sub add_site { my $pas = 1; my $user = 'anonymous'; my $email = qx(whoami); chomp $email; $email .= '@' . qx(cat /etc/mailname || dnsdomainname); chomp $email; my $dir = '/debian'; push (@{$CONFIG{site}}, [ '', $dir, [ 'dists/stable/main', 'dists/stable/contrib', 'dists/stable/non-free' ], $pas, $user, $email ]); edit_site($CONFIG{site}[@{$CONFIG{site}} - 1]); } sub edit_site { my $site = shift; local($_); print "\nEnter ftp site [$site->[0]] : "; chomp($_ = ); $site->[0] = $_ || $site->[0]; print "\nUse passive mode [" . ($site->[3] ? 'y' : 'n') . '] : '; chomp($_ = ); $site->[3] = (/y/i ? 1 : 0) if ($_); print "\nEnter username [$site->[4]] : "; chomp($_ = ); $site->[4] = $_ || $site->[4]; print <<'EOF'; If you're using anonymous ftp to retrieve files, enter your email address for use as a password. Otherwise enter your password, or "?" if you want dselect-ftp to prompt you each time. EOF print "Enter password [$site->[5]] : "; chomp($_ = ); $site->[5] = $_ || $site->[5]; print "\nEnter debian directory [$site->[1]] : "; chomp($_ = ); $site->[1] = $_ || $site->[1]; print "\nEnter space separated list of distributions to get\n"; print "[@{$site->[2]}] : "; chomp($_ = ); $site->[2] = [ split(/\s+/) ] if $_; } sub yesno($$) { my ($d, $msg) = @_; my ($res, $r); $r = -1; $r = 0 if $d eq 'n'; $r = 1 if $d eq 'y'; croak 'incorrect usage of yesno, stopped' if $r == -1; while (1) { print $msg, " [$d]: "; $res = ; $res =~ /^[Yy]/ and return 1; $res =~ /^[Nn]/ and return 0; $res =~ /^[ \t]*$/ and return $r; print "Please enter one of the letters 'y' or 'n'\n"; } } ############################## sub do_connect { my (%opts) = @_; my($rpass,$remotehost,$remoteuser,$ftp); TRY_CONNECT: while(1) { my $exit = 0; if ($opts{useproxy}) { $remotehost = $opts{proxyhost}; $remoteuser = $opts{username} . '@' . $opts{ftpsite}; } else { $remotehost = $opts{ftpsite}; $remoteuser = $opts{username}; } print "Connecting to $opts{ftpsite}...\n"; $ftp = Net::FTP->new($remotehost, Passive => $opts{passive}); if(!$ftp || !$ftp->ok) { print "Failed to connect\n"; $exit=1; } if (!$exit) { # $ftp->debug(1); if ($opts{useproxy}) { print "Login on $opts{proxyhost}...\n"; $ftp->_USER($opts{proxylogname}); $ftp->_PASS($opts{proxypassword}); } print "Login as $opts{username}...\n"; if ($opts{password} eq '?') { print 'Enter password for ftp: '; system('stty', '-echo'); $rpass = ; chomp $rpass; print "\n"; system('stty', 'echo'); } else { $rpass = $opts{password}; } if(!$ftp->login($remoteuser, $rpass)) { print $ftp->message() . "\n"; $exit=1; } } if (!$exit) { print "Setting transfer mode to binary...\n"; if(!$ftp->binary()) { print $ftp->message . "\n"; $exit=1; } } if (!$exit) { print "Cd to '$opts{ftpdir}'...\n"; if (!$ftp->cwd($opts{ftpdir})) { print $ftp->message . "\n"; $exit = 1; } } if ($exit) { if (yesno ('y', 'Retry connection at once')) { next TRY_CONNECT; } else { die 'error'; } } last TRY_CONNECT; } # if(!$ftp->pasv()) { print $ftp->message . "\n"; die 'error'; } return $ftp; } ############################## # assume server supports MDTM - will be adjusted if needed my $has_mdtm = 1; my %months = ('Jan', 0, 'Feb', 1, 'Mar', 2, 'Apr', 3, 'May', 4, 'Jun', 5, 'Jul', 6, 'Aug', 7, 'Sep', 8, 'Oct', 9, 'Nov', 10, 'Dec', 11); my $ls_l_re = qr< ([^ ]+\ *){5} # Perms, Links, User, Group, Size [^ ]+ # Blanks \ ([A-Z][a-z]{2}) # Month name (abbreviated) \ ([0-9 ][0-9]) # Day of month \ ([0-9 ][0-9][:0-9][0-9]{2}) # Filename >x; sub do_mdtm { my ($ftp, $file) = @_; my ($time); #if ($has_mdtm) { $time = $ftp->mdtm($file); # my $code = $ftp->code(); # my $message = $ftp->message(); # print " [ $code: $message ] "; if ($ftp->code() == 502 || # MDTM not implemented $ftp->code() == 500) { # command not understood (SUN firewall) $has_mdtm = 0; } elsif (!$ftp->ok()) { return; } #} if (! $has_mdtm) { require Time::Local; my @files = $ftp->dir($file); if (($#files == -1) || ($ftp->code == 550)) { # No such file or directory return; } # my $code = $ftp->code(); # my $message = $ftp->message(); # print " [ $code: $message ] "; # print "[$#files]"; # get the date components from the output of 'ls -l' if ($files[0] =~ $ls_l_re) { my($month_name, $day, $year_or_time, $month, $hours, $minutes, $year); # what we can read $month_name = $2; $day = 0 + $3; $year_or_time = $4; # translate the month name into number $month = $months{$month_name}; # recognize time or year, and compute missing one if ($year_or_time =~ /([0-9]{2}):([0-9]{2})/) { $hours = 0 + $1; $minutes = 0 + $2; my @this_date = gmtime(time()); my $this_month = $this_date[4]; my $this_year = $this_date[5]; if ($month > $this_month) { $year = $this_year - 1; } else { $year = $this_year; } } elsif ($year_or_time =~ / [0-9]{4}/) { $hours = 0; $minutes = 0; $year = $year_or_time - 1900; } else { die 'cannot parse year-or-time'; } # build a system time $time = Time::Local::timegm(0, $minutes, $hours, $day, $month, $year); } else { die 'regex match failed on LIST output'; } } return $time; } 1; __END__