--- trunk/script/cpanwait 2004/05/24 13:44:01 88 +++ trunk/script/cpanwait 2004/06/25 19:15:49 102 @@ -23,6 +23,7 @@ use File::Find; use File::Basename; use IO::File; +use IO::Zlib; use lib '/data/wait/lib'; @@ -101,19 +102,169 @@ # We still have a problem if there are different root directories! my %ALIAS = (# tar name real (root) name - 'latest' => 'perl', - 'perl5db-kit' => 'DB', - 'SGI-FM' => 'FM', - 'net-ext' => 'Net', - 'VelocisSQL' => 'Velocis', - 'Net-ext' => 'Net', - 'Curses-DevKit' => 'Cdk', - 'PostgresPerl' => 'Postgres', - 'perlpdf' => 'PERLPDF', - 'Des-perl' => 'Des', - 'SGI-GL' => 'GL', - 'DBD-DB2' => 'DB2', - ); + 'Games-Scrabble' => 'Games', + 'HTML-ParseBrowser' => 'HTML', + 'iodbc_ext' => 'iodbc-ext-0.1', + 'sol-inst' => 'Solaris', + 'WebService-Validator-CSS-223C' => 'WebService-Validator-CSS-W3C-0.02', + 'MPEG-ID3212Tag' => 'MPEG-ID3v2Tag-0.36', + 'WebService-GoogleHack' => 'WebService', + 'Db-Mediasurface-ReadConfig' => 'ReadConfig', + 'Tie-Array-RestrictUpdates' => 'Tie', + 'HTML-Lister' => 'HTML', + 'Net-253950-AsyncZ' => 'Net-Z3950-AsyncZ-0.08', + 'ChildExit_0' => 'ChildExit-0.1', + 'Tie-TieConstant' => 'TieConstant.pm', + 'Crypt-OpenSSL-23509' => 'Crypt-OpenSSL-X509-0.2', + 'subclustv' => 'blib', + 'finance-yahooquote' => 'Finance-YahooQuote-0.20', + 'HPUX-FS' => 'FS', + 'Business-DE-Konto' => 'Business', + 'Digest-MD5-124p' => 'Digest-MD5-M4p-0.01', + 'AKDB_Okewo_de' => 'AKDB', + 'ExtUtils-0577' => 'ExtUtils-F77-1.14', + 'LispFmt' => 'Lisp::Fmt-0.00', + 'Acme-Stegano' => 'Acme', + 'Acme-RTB' => 'Acme', + 'WWW-Search-PRWire' => 'work', + 'Video-Capture-214l' => 'Video-Capture-V4l-0.224', + 'Tie-DirHandle' => 'Tie', + 'DB2' => 'DBD-DB2-0.71a', + 'Tie-Scalar-RestrictUpdates' => 'Tie', + 'Math-MVPoly' => 'MVPoly', + 'PlugIn' => 'PlugIn.pm', + 'Lingua-ID-Nums2Words' => 'Nums2Words-0.01', + 'chronos-1.' => 'Chronos', + 'jp_beta' => 'jperl_beta_r1', + 'Bundle-223C-Validator' => 'Bundle-W3C-Validator-0.6.5', + 'Text-199' => 'Text-T9-1.0', + 'Games-Literati' => 'Games', + 'VMS-IndexedFile' => 'VMS', + 'authen-rbac' => 'Authen', + 'Graphics-EPS' => 'EPS.pm', + 'new.spirit-2.' => 'new.spirit', + 'Tk-MListbox' => 'MListbox-1.11', + 'DBD-SQLrelay' => 'SQLRelay.pm', + 'Tie-RDBM-Cached' => 'RDBM', + 'PDL_IO_HDF' => 'HDF', + 'HPUX-LVM' => 'LVM', + 'Parse-Nibbler' => 'Parse', + 'Digest-Perl-MD4' => 'MD4', + 'Crypt-Imail' => 'Imail', + 'ubertext' => 'Text-UberText-0.95', + 'MP3-123U' => 'M3U', + 'Qmail-Control' => 'Qmail', + 'T-LXS' => 'Text-LevenshteinXS-0.02', + 'HTML-Paginator' => 'HTML', + 'swig' => 'SWIG1.1p5', + 'MIDI-Realtime' => 'MIDI', + 'sparky-public' => 'Sparky-Public-1.06', + 'Chemistry-MolecularMass' => 'Chemistry', + 'Net-253950-SimpleServer' => 'Net-Z3950-SimpleServer-0.08', + 'NewsClipper-OpenSource' => 'NewsClipper-1.32-OpenSource', + 'Win32API-Resources' => 'Resources.pm', + 'Unicode-Collate-Standard-2131_1' => 'Unicode-Collate-Standard-V3_1_1-0.1', + 'Net-026Term' => 'Net-C6Term-0.11', + 'BitArray1' => 'BitArray', + 'Audio-Radio-214L' => 'Audio-Radio-V4L-0.01', + 'Devel-AutoProfiler' => 'Devel', + 'Brasil-Checar-CGC' => 'Brasil', + 'AI-NeuralNet-SOM' => 'SOM.pm', + 'Net-BitTorrent-File-fix' => 'Net-BitTorrent-File-1.01', + 'VMS-FindFile' => 'VMS', + 'LoadHtml.' => 'README', + 'Time-Compare' => 'Time', + 'ShiftJIS-230213-MapUTF' => 'ShiftJIS-X0213-MapUTF-0.21', + 'Image-WMF' => 'Image', + 'sdf-2.0.eta' => 'sdf-2.001beta1', + 'Math-Expr-LATEST' => 'Math-Expr-0.4', + 'MP3-Player-PktConcert' => 'MP3', + 'Apache-OWA' => 'OWA', + 'Audio-Gramofile' => 'Audio', + 'DBIx-Copy' => 'Copy', + 'P4-024' => 'P4-C4-2.021', + 'Disassemble-2386' => 'Disassemble-X86-0.13', + 'Proc-Swarm' => 'Swarm-0.5', + 'Smil' => 'perlysmil', + 'Net-SSH-2232Perl' => 'Net-SSH-W32Perl-0.05', + 'Win32-SerialPort' => 'SerialPort-0.19', + 'Lingua-ID-Words2Nums' => 'Words2Nums-0.01', + 'Parse-Text' => 'Text', + 'DBIx-HTMLView-LATEST' => 'DBIx-HTMLView-0.9', + 'Apache-NNTPGateway' => 'NNTPGateway-0.9', + 'XPathToXML' => 'XPathToXML.pm', + 'XML-WMM-ASX' => 'XML', + 'CGISession' => 'CGI', + 'Net-SMS-142' => 'Net-SMS-O2-0.019', + 'Search-253950' => 'Search-Z3950-0.05', + 'Date-Christmas' => 'Christmas', + 'Win32-InternetExplorer-Window' => 'Win32', + 'Apache-WAP-MailPeek' => 'MailPeek', + 'Statistics-Table-F' => 'Statistics', + 'BerkeleyDB_Locks' => 'BerkeleyDB-Locks-0_2', + 'HookPrePostCall' => 'PrePostCall-1.2', + 'Oak-AAS-Service-DBI_13_PAM' => 'Oak-AAS-Service-DBI_N_PAM-1.8', + 'Math-Vector' => 'Vector.pm', + 'Audio-124pDecrypt' => 'Audio-M4pDecrypt-0.04', + 'libao-perl_0.03' => 'libao-perl-0.03', + 'CGI-EZForm' => 'EZForm', + 'Data-Locations-fixed' => 'Data-Locations-5.2-fixed', + 'HTML-Template-Filter-Dreamweaver' => 'Dreamweaver', + 'LineByLine' => 'LineByLine.pm', + 'Geo-0400' => 'Geo-E00-0.05', + 'WebService-Validator-HTML-223C' => 'WebService-Validator-HTML-W3C-0.03', + 'DateTime-Format-223CDTF' => 'DateTime-Format-W3CDTF-0.04', + 'DBD_SQLFLEX' => 'DBD-Sqlflex', + 'Text-Number' => 'Number', + 'DBIx-DataLookup' => 'DBIx', + 'MP3-ID3211Tag' => 'MP3-ID3v1Tag-1.11', + 'Text-Striphigh' => 'Striphigh-0.02', + 'Tie-SortHash' => 'SortHash', + 'Apache-AccessAbuse' => 'AccessAbuse', + 'MP3-123U-Parser' => 'MP3-M3U-Parser', + 'Net-253950' => 'Net-Z3950-0.44', + 'Net-RBLClient' => 'RBLCLient-0.2', + 'CGI-EasyCGI' => 'CGI', + 'http-handle' => 'HTTP::Handle', + 'JPEG-Comment' => 'JPEG', + 'router-lg' => 'Router', + 'Db-Mediasurface' => 'Mediasurface', + 'Text-BarGraph' => 'bargraph', + 'TL' => 'Text-Levenshtein-0.04', + 'Config-Vars' => 'Config-0.01', + 'Tie-PerfectHash' => 'Tie', + 'DNS-TinyDNS' => 'DNS', + 'DesignPattern-Factory' => 'Factory', + 'WWW-01_Rail' => 'WWW-B_Rail-0.01', + 'Win32-Exchange' => 'blib', + 'Math-RPN' => 'Math', + 'Db-Mediasurface-Cache' => 'Cache', + 'perl_archie.' => 'Archie.pm', + 'Acme-PGPSign' => 'Acme', + 'HTML-Widget-sideBar' => 'HTML-Widget-SideBar-1.00', + 'log' => 'Games', + 'File-List' => 'File', + 'Schedule-Cronchik' => 'Schedule', + 'Curses-Devkit' => 'Cdk', + 'Pod-PalmDoc' => 'Pod', + 'Easy-WML' => 'Easy WML 0.1', + 'Interval.' => 'Date', + 'Brasil-Checar-CPF' => 'Brasil', + 'Apache-WAP-AutoIndex' => 'AutoIndex', + + 'SOM.pm' => 'SOM.pm', + 'PlugIn.pm' => 'PlugIn.pm', + 'XPathToXML.pm' => 'XPathToXML.pm', + 'Vector.pm' => 'Vector.pm', + 'LineByLine.pm' => 'LineByLine.pm', + 'Archie.pm' => 'Archie.pm', + 'TieConstant.pm' => 'TieConstant.pm', + 'EPS.pm' => 'EPS.pm', + 'SQLRelay.pm' => 'SQLRelay.pm', + 'Resources.pm' => 'Resources.pm', + 'README' => 'README', + + ); my %NEW_ALIAS; # found in this pass # Map module names to pathes. Generated by wanted() doing alisaing. @@ -306,7 +457,8 @@ } elsif (!-d $sdir) { mkpath($sdir,1,0755) or die "Could not mkpath($sdir): $!\n"; } - $fh = new IO::File "> $path"; +# $fh = new IO::File "> $path"; + $fh = new IO::Zlib "$path.gz","wb"; die "Could not write '$path': $!\n" unless $fh; }