/[wait]/trunk/script/cpanwait
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/script/cpanwait

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 101 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 102 by dpavlin, Fri Jun 25 19:15:49 2004 UTC
# Line 23  use Getopt::Long; Line 23  use Getopt::Long;
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    
# Line 101  my $tb = $db->table(name => $OPT{table}) Line 102  my $tb = $db->table(name => $OPT{table})
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.
# Line 306  for my $tar (sort keys %ARCHIVE) { Line 457  for my $tar (sort keys %ARCHIVE) {
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    
Legend:
Removed from v.101  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.26