Mass unmask

massunmask.pl

#!/usr/bin/perl
my( $pack ) = "" ;
$pack .= " $_" for ( @ARGV ) ;
my( $b ) = 1;
while( $b )
{
$b = '' ;
@out = `emerge -pv$pack` ;
$portage = '/etc/portage/package' ;

$umfile = "$portage.unmask";
$kwfile = "$portage.keywords";

if( -d $kwfile ) {
        $kwfile = "$kwfile/mass";
}

if( -d $umfile ) {
        $umfile = "$umfile/mass";
}

for ( @out )
{
    if ( /^-\s+(.+?\/.+?)\-\d+\..*?\(masked by: (.+?(\,\s+.+?)*)\)/i )
    {
        my( $package , $masked ) = ( $1 , $2 ) ;
        foreach $a ( split( /\,\s+/, $masked ) )
        {
            if ( $a eq "package.mask" )
            {
                $b .= "echo $package >> $umfile\n" ;
            }
            elsif ( $a =~ /(\W.+?)\s+keyword/i )
            {
                $b .= "echo $package $1 >> $kwfile\n" ;
            }
            elsif ( $a =~ /(missing)\s+keyword/i )
            {
                $b .= "echo \"$package ~*\" >> $kwfile\n" ;
                $b .= "echo $package >> $umfile\n" ;
            }
        }
        last ;
    }
}
print $b ;
print `$b` ;
}