23 |
use File::Find; |
use File::Find; |
24 |
use File::Basename; |
use File::Basename; |
25 |
use IO::File; |
use IO::File; |
26 |
|
use IO::Zlib; |
27 |
|
|
28 |
use lib '/data/wait/lib'; |
use lib '/data/wait/lib'; |
29 |
|
|
102 |
# We still have a problem if there are different root directories! |
# We still have a problem if there are different root directories! |
103 |
|
|
104 |
my %ALIAS = (# tar name real (root) name |
my %ALIAS = (# tar name real (root) name |
105 |
'latest' => 'perl', |
'Games-Scrabble' => 'Games', |
106 |
'perl5db-kit' => 'DB', |
'HTML-ParseBrowser' => 'HTML', |
107 |
'SGI-FM' => 'FM', |
'iodbc_ext' => 'iodbc-ext-0.1', |
108 |
'net-ext' => 'Net', |
'sol-inst' => 'Solaris', |
109 |
'VelocisSQL' => 'Velocis', |
'WebService-Validator-CSS-223C' => 'WebService-Validator-CSS-W3C-0.02', |
110 |
'Net-ext' => 'Net', |
'MPEG-ID3212Tag' => 'MPEG-ID3v2Tag-0.36', |
111 |
'Curses-DevKit' => 'Cdk', |
'WebService-GoogleHack' => 'WebService', |
112 |
'PostgresPerl' => 'Postgres', |
'Db-Mediasurface-ReadConfig' => 'ReadConfig', |
113 |
'perlpdf' => 'PERLPDF', |
'Tie-Array-RestrictUpdates' => 'Tie', |
114 |
'Des-perl' => 'Des', |
'HTML-Lister' => 'HTML', |
115 |
'SGI-GL' => 'GL', |
'Net-253950-AsyncZ' => 'Net-Z3950-AsyncZ-0.08', |
116 |
'DBD-DB2' => 'DB2', |
'ChildExit_0' => 'ChildExit-0.1', |
117 |
); |
'Tie-TieConstant' => 'TieConstant.pm', |
118 |
|
'Crypt-OpenSSL-23509' => 'Crypt-OpenSSL-X509-0.2', |
119 |
|
'subclustv' => 'blib', |
120 |
|
'finance-yahooquote' => 'Finance-YahooQuote-0.20', |
121 |
|
'HPUX-FS' => 'FS', |
122 |
|
'Business-DE-Konto' => 'Business', |
123 |
|
'Digest-MD5-124p' => 'Digest-MD5-M4p-0.01', |
124 |
|
'AKDB_Okewo_de' => 'AKDB', |
125 |
|
'ExtUtils-0577' => 'ExtUtils-F77-1.14', |
126 |
|
'LispFmt' => 'Lisp::Fmt-0.00', |
127 |
|
'Acme-Stegano' => 'Acme', |
128 |
|
'Acme-RTB' => 'Acme', |
129 |
|
'WWW-Search-PRWire' => 'work', |
130 |
|
'Video-Capture-214l' => 'Video-Capture-V4l-0.224', |
131 |
|
'Tie-DirHandle' => 'Tie', |
132 |
|
'DB2' => 'DBD-DB2-0.71a', |
133 |
|
'Tie-Scalar-RestrictUpdates' => 'Tie', |
134 |
|
'Math-MVPoly' => 'MVPoly', |
135 |
|
'PlugIn' => 'PlugIn.pm', |
136 |
|
'Lingua-ID-Nums2Words' => 'Nums2Words-0.01', |
137 |
|
'chronos-1.' => 'Chronos', |
138 |
|
'jp_beta' => 'jperl_beta_r1', |
139 |
|
'Bundle-223C-Validator' => 'Bundle-W3C-Validator-0.6.5', |
140 |
|
'Text-199' => 'Text-T9-1.0', |
141 |
|
'Games-Literati' => 'Games', |
142 |
|
'VMS-IndexedFile' => 'VMS', |
143 |
|
'authen-rbac' => 'Authen', |
144 |
|
'Graphics-EPS' => 'EPS.pm', |
145 |
|
'new.spirit-2.' => 'new.spirit', |
146 |
|
'Tk-MListbox' => 'MListbox-1.11', |
147 |
|
'DBD-SQLrelay' => 'SQLRelay.pm', |
148 |
|
'Tie-RDBM-Cached' => 'RDBM', |
149 |
|
'PDL_IO_HDF' => 'HDF', |
150 |
|
'HPUX-LVM' => 'LVM', |
151 |
|
'Parse-Nibbler' => 'Parse', |
152 |
|
'Digest-Perl-MD4' => 'MD4', |
153 |
|
'Crypt-Imail' => 'Imail', |
154 |
|
'ubertext' => 'Text-UberText-0.95', |
155 |
|
'MP3-123U' => 'M3U', |
156 |
|
'Qmail-Control' => 'Qmail', |
157 |
|
'T-LXS' => 'Text-LevenshteinXS-0.02', |
158 |
|
'HTML-Paginator' => 'HTML', |
159 |
|
'swig' => 'SWIG1.1p5', |
160 |
|
'MIDI-Realtime' => 'MIDI', |
161 |
|
'sparky-public' => 'Sparky-Public-1.06', |
162 |
|
'Chemistry-MolecularMass' => 'Chemistry', |
163 |
|
'Net-253950-SimpleServer' => 'Net-Z3950-SimpleServer-0.08', |
164 |
|
'NewsClipper-OpenSource' => 'NewsClipper-1.32-OpenSource', |
165 |
|
'Win32API-Resources' => 'Resources.pm', |
166 |
|
'Unicode-Collate-Standard-2131_1' => 'Unicode-Collate-Standard-V3_1_1-0.1', |
167 |
|
'Net-026Term' => 'Net-C6Term-0.11', |
168 |
|
'BitArray1' => 'BitArray', |
169 |
|
'Audio-Radio-214L' => 'Audio-Radio-V4L-0.01', |
170 |
|
'Devel-AutoProfiler' => 'Devel', |
171 |
|
'Brasil-Checar-CGC' => 'Brasil', |
172 |
|
'AI-NeuralNet-SOM' => 'SOM.pm', |
173 |
|
'Net-BitTorrent-File-fix' => 'Net-BitTorrent-File-1.01', |
174 |
|
'VMS-FindFile' => 'VMS', |
175 |
|
'LoadHtml.' => 'README', |
176 |
|
'Time-Compare' => 'Time', |
177 |
|
'ShiftJIS-230213-MapUTF' => 'ShiftJIS-X0213-MapUTF-0.21', |
178 |
|
'Image-WMF' => 'Image', |
179 |
|
'sdf-2.0.eta' => 'sdf-2.001beta1', |
180 |
|
'Math-Expr-LATEST' => 'Math-Expr-0.4', |
181 |
|
'MP3-Player-PktConcert' => 'MP3', |
182 |
|
'Apache-OWA' => 'OWA', |
183 |
|
'Audio-Gramofile' => 'Audio', |
184 |
|
'DBIx-Copy' => 'Copy', |
185 |
|
'P4-024' => 'P4-C4-2.021', |
186 |
|
'Disassemble-2386' => 'Disassemble-X86-0.13', |
187 |
|
'Proc-Swarm' => 'Swarm-0.5', |
188 |
|
'Smil' => 'perlysmil', |
189 |
|
'Net-SSH-2232Perl' => 'Net-SSH-W32Perl-0.05', |
190 |
|
'Win32-SerialPort' => 'SerialPort-0.19', |
191 |
|
'Lingua-ID-Words2Nums' => 'Words2Nums-0.01', |
192 |
|
'Parse-Text' => 'Text', |
193 |
|
'DBIx-HTMLView-LATEST' => 'DBIx-HTMLView-0.9', |
194 |
|
'Apache-NNTPGateway' => 'NNTPGateway-0.9', |
195 |
|
'XPathToXML' => 'XPathToXML.pm', |
196 |
|
'XML-WMM-ASX' => 'XML', |
197 |
|
'CGISession' => 'CGI', |
198 |
|
'Net-SMS-142' => 'Net-SMS-O2-0.019', |
199 |
|
'Search-253950' => 'Search-Z3950-0.05', |
200 |
|
'Date-Christmas' => 'Christmas', |
201 |
|
'Win32-InternetExplorer-Window' => 'Win32', |
202 |
|
'Apache-WAP-MailPeek' => 'MailPeek', |
203 |
|
'Statistics-Table-F' => 'Statistics', |
204 |
|
'BerkeleyDB_Locks' => 'BerkeleyDB-Locks-0_2', |
205 |
|
'HookPrePostCall' => 'PrePostCall-1.2', |
206 |
|
'Oak-AAS-Service-DBI_13_PAM' => 'Oak-AAS-Service-DBI_N_PAM-1.8', |
207 |
|
'Math-Vector' => 'Vector.pm', |
208 |
|
'Audio-124pDecrypt' => 'Audio-M4pDecrypt-0.04', |
209 |
|
'libao-perl_0.03' => 'libao-perl-0.03', |
210 |
|
'CGI-EZForm' => 'EZForm', |
211 |
|
'Data-Locations-fixed' => 'Data-Locations-5.2-fixed', |
212 |
|
'HTML-Template-Filter-Dreamweaver' => 'Dreamweaver', |
213 |
|
'LineByLine' => 'LineByLine.pm', |
214 |
|
'Geo-0400' => 'Geo-E00-0.05', |
215 |
|
'WebService-Validator-HTML-223C' => 'WebService-Validator-HTML-W3C-0.03', |
216 |
|
'DateTime-Format-223CDTF' => 'DateTime-Format-W3CDTF-0.04', |
217 |
|
'DBD_SQLFLEX' => 'DBD-Sqlflex', |
218 |
|
'Text-Number' => 'Number', |
219 |
|
'DBIx-DataLookup' => 'DBIx', |
220 |
|
'MP3-ID3211Tag' => 'MP3-ID3v1Tag-1.11', |
221 |
|
'Text-Striphigh' => 'Striphigh-0.02', |
222 |
|
'Tie-SortHash' => 'SortHash', |
223 |
|
'Apache-AccessAbuse' => 'AccessAbuse', |
224 |
|
'MP3-123U-Parser' => 'MP3-M3U-Parser', |
225 |
|
'Net-253950' => 'Net-Z3950-0.44', |
226 |
|
'Net-RBLClient' => 'RBLCLient-0.2', |
227 |
|
'CGI-EasyCGI' => 'CGI', |
228 |
|
'http-handle' => 'HTTP::Handle', |
229 |
|
'JPEG-Comment' => 'JPEG', |
230 |
|
'router-lg' => 'Router', |
231 |
|
'Db-Mediasurface' => 'Mediasurface', |
232 |
|
'Text-BarGraph' => 'bargraph', |
233 |
|
'TL' => 'Text-Levenshtein-0.04', |
234 |
|
'Config-Vars' => 'Config-0.01', |
235 |
|
'Tie-PerfectHash' => 'Tie', |
236 |
|
'DNS-TinyDNS' => 'DNS', |
237 |
|
'DesignPattern-Factory' => 'Factory', |
238 |
|
'WWW-01_Rail' => 'WWW-B_Rail-0.01', |
239 |
|
'Win32-Exchange' => 'blib', |
240 |
|
'Math-RPN' => 'Math', |
241 |
|
'Db-Mediasurface-Cache' => 'Cache', |
242 |
|
'perl_archie.' => 'Archie.pm', |
243 |
|
'Acme-PGPSign' => 'Acme', |
244 |
|
'HTML-Widget-sideBar' => 'HTML-Widget-SideBar-1.00', |
245 |
|
'log' => 'Games', |
246 |
|
'File-List' => 'File', |
247 |
|
'Schedule-Cronchik' => 'Schedule', |
248 |
|
'Curses-Devkit' => 'Cdk', |
249 |
|
'Pod-PalmDoc' => 'Pod', |
250 |
|
'Easy-WML' => 'Easy WML 0.1', |
251 |
|
'Interval.' => 'Date', |
252 |
|
'Brasil-Checar-CPF' => 'Brasil', |
253 |
|
'Apache-WAP-AutoIndex' => 'AutoIndex', |
254 |
|
|
255 |
|
'SOM.pm' => 'SOM.pm', |
256 |
|
'PlugIn.pm' => 'PlugIn.pm', |
257 |
|
'XPathToXML.pm' => 'XPathToXML.pm', |
258 |
|
'Vector.pm' => 'Vector.pm', |
259 |
|
'LineByLine.pm' => 'LineByLine.pm', |
260 |
|
'Archie.pm' => 'Archie.pm', |
261 |
|
'TieConstant.pm' => 'TieConstant.pm', |
262 |
|
'EPS.pm' => 'EPS.pm', |
263 |
|
'SQLRelay.pm' => 'SQLRelay.pm', |
264 |
|
'Resources.pm' => 'Resources.pm', |
265 |
|
'README' => 'README', |
266 |
|
|
267 |
|
); |
268 |
my %NEW_ALIAS; # found in this pass |
my %NEW_ALIAS; # found in this pass |
269 |
|
|
270 |
# Map module names to pathes. Generated by wanted() doing alisaing. |
# Map module names to pathes. Generated by wanted() doing alisaing. |
457 |
} elsif (!-d $sdir) { |
} elsif (!-d $sdir) { |
458 |
mkpath($sdir,1,0755) or die "Could not mkpath($sdir): $!\n"; |
mkpath($sdir,1,0755) or die "Could not mkpath($sdir): $!\n"; |
459 |
} |
} |
460 |
$fh = new IO::File "> $path"; |
# $fh = new IO::File "> $path"; |
461 |
|
$fh = new IO::Zlib "$path.gz","wb"; |
462 |
die "Could not write '$path': $!\n" unless $fh; |
die "Could not write '$path': $!\n" unless $fh; |
463 |
} |
} |
464 |
|
|
799 |
$guess; |
$guess; |
800 |
} |
} |
801 |
|
|
802 |
|
$WAIT::Config = $WAIT::Config; |
803 |
|
|
804 |
__END__ |
__END__ |
805 |
## ################################################################### |
## ################################################################### |