|
Line
Link Here
|
| 0 |
-- /usr/bin/genlop 2007-04-11 14:08:31.000000000 +0200 |
0 |
++ /usr/bin/genlop-modified 2007-04-11 14:03:05.000000000 +0200 |
|
Lines 223-228
Link Here
|
| 223 |
if ($opt eq "S"); |
223 |
if ($opt eq "S"); |
| 224 |
$current_found = 1, last SSWITCH if ($opt eq "c"); |
224 |
$current_found = 1, last SSWITCH if ($opt eq "c"); |
| 225 |
$pretend_found = 1, last SSWITCH if ($opt eq "p"); |
225 |
$pretend_found = 1, last SSWITCH if ($opt eq "p"); |
|
|
226 |
$noprint_found = 1, last SSWITCH if ($opt eq "N"); |
| 226 |
$rsync_found = 1, last SSWITCH if ($opt eq "r"); |
227 |
$rsync_found = 1, last SSWITCH if ($opt eq "r"); |
| 227 |
$gmt_found = 1, last SSWITCH if ($opt eq "g"); |
228 |
$gmt_found = 1, last SSWITCH if ($opt eq "g"); |
| 228 |
$ebuild_found = 1, last SSWITCH if ($opt eq "e"); |
229 |
$ebuild_found = 1, last SSWITCH if ($opt eq "e"); |
|
Lines 291-296
Link Here
|
| 291 |
colored(" -n ", $COLORS{'green'}), "no color in output\n", |
292 |
colored(" -n ", $COLORS{'green'}), "no color in output\n", |
| 292 |
colored(" -p ", $COLORS{'green'}), |
293 |
colored(" -p ", $COLORS{'green'}), |
| 293 |
"estimate build time from a piped \"emerge -p\" output\n", |
294 |
"estimate build time from a piped \"emerge -p\" output\n", |
|
|
295 |
colored(" -N ", $COLORS{'green'}), |
| 296 |
"do _not_ print the pretended packages\n", |
| 294 |
colored(" -r ", $COLORS{'green'}), |
297 |
colored(" -r ", $COLORS{'green'}), |
| 295 |
"search for portage tree sync/rsync history.\n", |
298 |
"search for portage tree sync/rsync history.\n", |
| 296 |
colored(" -s ", $COLORS{'green'}), |
299 |
colored(" -s ", $COLORS{'green'}), |
|
Lines 424-437
Link Here
|
| 424 |
sub pretend() { |
427 |
sub pretend() { |
| 425 |
if ($pretend_found) { |
428 |
if ($pretend_found) { |
| 426 |
@targets = (); |
429 |
@targets = (); |
| 427 |
print "These are the pretended packages:"; |
430 |
if (!$noprint_found) { |
| 428 |
print " (this may take a while; wait...)\n\n"; |
431 |
print "These are the pretended packages:"; |
|
|
432 |
print " (this may take a while; wait...)\n\n"; |
| 433 |
} |
| 429 |
# open STDIN; that's why emerge -p foo is piped to a genlop -p |
434 |
# open STDIN; that's why emerge -p foo is piped to a genlop -p |
| 430 |
while (<STDIN>) { |
435 |
while (<STDIN>) { |
| 431 |
if ($_ =~ m/^\[e.*\] (.*?)\/(.*?)(\-[0-9])/) { |
436 |
if ($_ =~ m/^\[e.*\] (.*?)\/(.*?)(\-[0-9])/) { |
| 432 |
push @targets, $2; |
437 |
push @targets, $2; |
| 433 |
print; |
438 |
if (!$noprint_found) { |
| 434 |
} |
439 |
print; |
|
|
440 |
} |
| 441 |
} |
| 442 |
elsif ($_ =~ m/(.*?)\/(.*?)(\-[0-9])/) { |
| 443 |
push @targets, $2; |
| 444 |
if (!$noprint_found) { |
| 445 |
print; |
| 446 |
} |
| 447 |
} |
| 435 |
} |
448 |
} |
| 436 |
foreach $ebuild_arg (@targets) { |
449 |
foreach $ebuild_arg (@targets) { |
| 437 |
# we track the last ebuild processed with $last_ebuild variable |
450 |
# we track the last ebuild processed with $last_ebuild variable |
