/[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

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