|
Lines 40-46
Link Here
|
| 40 |
my ($p,$x,$r); |
40 |
my ($p,$x,$r); |
| 41 |
my @l = (); |
41 |
my @l = (); |
| 42 |
my $packageToUnmask = ''; |
42 |
my $packageToUnmask = ''; |
| 43 |
my $arch = $pxs->getArch(); |
|
|
| 44 |
my @repos = (); |
43 |
my @repos = (); |
| 45 |
my $isOk = 0; |
44 |
my $isOk = 0; |
| 46 |
my %cmdOptions = (); |
45 |
my %cmdOptions = (); |
|
Lines 217-223
Link Here
|
| 217 |
$p=$1; |
216 |
$p=$1; |
| 218 |
|
217 |
|
| 219 |
if ($p) { |
218 |
if ($p) { |
| 220 |
addToKeywords($p,'~'.$arch); |
219 |
addToKeywords($p); |
| 221 |
addToUnmask($p); |
220 |
addToUnmask($p); |
| 222 |
last if ($cmdOptions{'noversions'}); |
221 |
last if ($cmdOptions{'noversions'}); |
| 223 |
} |
222 |
} |
|
Lines 227-233
Link Here
|
| 227 |
$p=$1; |
226 |
$p=$1; |
| 228 |
|
227 |
|
| 229 |
if ($p) { |
228 |
if ($p) { |
| 230 |
addToKeywords($p,'~'.$arch); |
229 |
addToKeywords($p); |
| 231 |
addToUnmask($p); |
230 |
addToUnmask($p); |
| 232 |
last if ($cmdOptions{'noversions'}); |
231 |
last if ($cmdOptions{'noversions'}); |
| 233 |
} |
232 |
} |
|
Lines 237-243
Link Here
|
| 237 |
$p=$1; |
236 |
$p=$1; |
| 238 |
|
237 |
|
| 239 |
if ($p) { |
238 |
if ($p) { |
| 240 |
addToKeywords($p,'~'.$arch); |
239 |
addToKeywords($p); |
| 241 |
last if ($cmdOptions{'noversions'}); |
240 |
last if ($cmdOptions{'noversions'}); |
| 242 |
} |
241 |
} |
| 243 |
} |
242 |
} |
|
Lines 294-300
Link Here
|
| 294 |
# - Subs > |
293 |
# - Subs > |
| 295 |
sub addToKeywords { |
294 |
sub addToKeywords { |
| 296 |
my $p = shift; |
295 |
my $p = shift; |
| 297 |
my $k = shift; |
296 |
# my $k = shift; |
| 298 |
if ($cmdOptions{'noversions'}) { |
297 |
if ($cmdOptions{'noversions'}) { |
| 299 |
$p=$pxs->getEbuildName($p); |
298 |
$p=$pxs->getEbuildName($p); |
| 300 |
} |
299 |
} |
|
Lines 302-309
Link Here
|
| 302 |
$p='='.$p; |
301 |
$p='='.$p; |
| 303 |
} |
302 |
} |
| 304 |
open(FH,'>>'.$keywordsFile) or die('Cannot write to file: '.$keywordsFile); |
303 |
open(FH,'>>'.$keywordsFile) or die('Cannot write to file: '.$keywordsFile); |
| 305 |
print FH $p." ".$k."\n"; |
304 |
|
| 306 |
$pxs->print_ok("Added '".$p." ".$k."' to ".$keywordsFile."\n"); |
305 |
print FH $p."\n"; |
|
|
306 |
|
| 307 |
$pxs->print_ok("Added '".$p."' to ".$keywordsFile."\n"); |
| 307 |
close(FH); |
308 |
close(FH); |
| 308 |
return 1; |
309 |
return 1; |
| 309 |
} |
310 |
} |
