/[gentoo-perl]/up2date-ng/trunk/bin/up2date-ng.pl
Gentoo

Diff of /up2date-ng/trunk/bin/up2date-ng.pl

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

Revision 110 Revision 111
186 if ($DEBUG) { print $tmp[0]." ".$paltname{'portage'}{lc($tmp[0])}."\n"; } 186 if ($DEBUG) { print $tmp[0]." ".$paltname{'portage'}{lc($tmp[0])}."\n"; }
187 } 187 }
188 } 188 }
189} 189}
190else { 190else {
191 print_info("No package.altname file available - Skipping\n"); 191 print_info("No up2date_package.altname file available - Skipping\n");
192} 192}
193 193
194# - Parse up2date_category.list > 194# - Parse up2date_category.list >
195if (-f $category_list_file) { 195if (-f $category_list_file) {
196 print_ok("parsing ".$category_list_file."\n"); 196 print_ok("parsing ".$category_list_file."\n");
230 # - Could not find a matching package name - probably not a CPAN-module > 230 # - Could not find a matching package name - probably not a CPAN-module >
231 if ($DEBUG) { print "- Could not find CPAN-Module ('".$p_modulename."') for package '".$p_original_modulename."'!\n"; } 231 if ($DEBUG) { print "- Could not find CPAN-Module ('".$p_modulename."') for package '".$p_original_modulename."'!\n"; }
232 232
233 # - Look for an entry in up2date_package.altname for this package > 233 # - Look for an entry in up2date_package.altname for this package >
234 if ($paltname{'portage'}{$p_original_modulename}) { 234 if ($paltname{'portage'}{$p_original_modulename}) {
235 # - found entry in package.altname > 235 # - found entry in up2date_package.altname >
236 if ($paltname{'portage'}{$p_original_modulename} ne "-") { 236 if ($paltname{'portage'}{$p_original_modulename} ne "-") {
237 if ($DEBUG) { print "- Found entry for this package. Using '".$paltname{'portage'}{$p_original_modulename}."' now.\n"; } 237 if ($DEBUG) { print "- Found entry for this package. Using '".$paltname{'portage'}{$p_original_modulename}."' now.\n"; }
238 238
239 $p_modulename=$paltname{'portage'}{$p_original_modulename}; 239 $p_modulename=$paltname{'portage'}{$p_original_modulename};
240 240
241 if (! defined $modules{'cpan_lc'}{$p_modulename}) { 241 if (! defined $modules{'cpan_lc'}{$p_modulename}) {
242 # - entry in package.altname does not match > 242 # - entry in up2date_package.altname does not match >
243 if ($DEBUG) { print "- Could not find CPAN-Module for given entry ('".$paltname{'portage'}{$p_original_modulename}."')! Please correct! Skipping..\n"; } 243 if ($DEBUG) { print "- Could not find CPAN-Module for given entry ('".$paltname{'portage'}{$p_original_modulename}."')! Please correct! Skipping..\n"; }
244 push(@need_packagealtname,$modules{'portage'}{$p_original_modulename}{'name'}); 244 push(@need_packagealtname,$modules{'portage'}{$p_original_modulename}{'name'});
245 next; 245 next;
246 } 246 }
247 } 247 }
250 if ($DEBUG) { print "- Package '".$p_modulename."' has been marked as non-CPAN-module. Skipping.\n"; } 250 if ($DEBUG) { print "- Package '".$p_modulename."' has been marked as non-CPAN-module. Skipping.\n"; }
251 next; 251 next;
252 } 252 }
253 } 253 }
254 else { 254 else {
255 # - no entry in package.altname found for $p_modulename > 255 # - no entry in up2date_package.altname found for $p_modulename >
256 if ($DEBUG) { print "- No entry in package.altname found for package '".$p_modulename."'!\n"; } 256 if ($DEBUG) { print "- No entry in up2date_package.altname found for package '".$p_modulename."'!\n"; }
257 push(@need_packagealtname,$modules{'portage'}{$p_original_modulename}{'name'}); 257 push(@need_packagealtname,$modules{'portage'}{$p_original_modulename}{'name'});
258 next; 258 next;
259 } 259 }
260 } 260 }
261 261
441 } 441 }
442 close(FH); 442 close(FH);
443 print_ok("done!\n\n"); 443 print_ok("done!\n\n");
444} 444}
445 445
446# - Any packages not found? Do we need additional entries in package.altname? > 446# - Any packages not found? Do we need additional entries in up2date_package.altname? >
447if ($#need_packagealtname >= 0) { 447if ($#need_packagealtname >= 0) {
448 print_info("".($#need_packagealtname+1)." packages were found where a package.altname entry is missing or wrong:\n"); 448 print_info("".($#need_packagealtname+1)." packages were found where a up2date_package.altname entry is missing or wrong:\n");
449 foreach (@need_packagealtname) { 449 foreach (@need_packagealtname) {
450 print " - ".$_."\n"; 450 print " - ".$_."\n";
451 } 451 }
452 print " Please add entries for these packages to the package.altname file.\n"; 452 print " Please add entries for these packages to the up2date_package.altname file.\n";
453} 453}
454 454
455print "\n"; 455print "\n";
456exit(0); 456exit(0);
457 457

Legend:
Removed from v.110  
changed lines
  Added in v.111

  ViewVC Help
Powered by ViewVC 1.1.20