[gentoo] upgrade script

[DaFearLess]

Ik heb een scriptje gemaakt dat kijkt wat er geupgrade kan worden en daarna jouw de keus geeft of de packages te selecteren en het upgrade process te starten

mischien kunnen jullie het ook gebruiken.

code:

#!/usr/bin/perl 
# Created by FearLess
# Tnx Tomato for the help
$|=1 ;
use strict ;

my $search ;
my $replace ;
my $tmpfl = "/tmp/upgrade.tmp" ;

#Defining Subroutines
#
sub get_info();
sub show_info();
sub selection();
sub clear();
sub filereplace();
sub start();

clear ;

# Let's emerge sync te portage tree
#
print "Synchronize the Portage tree \n" ;
my $updrsync = `emerge rsync` ; 

get_info ;
show_info ;

#Here we wil get the info of which packages are ready to be upgraded
#
sub get_info() {
    open(TMP,">$tmpfl");
    print "Making pretend update of world\n" ;
    my @getupdates = `emerge -p -u world` ;         ## This is the commando that i will use to see what the upgrades are
    my $i = 0 ;
    foreach (@getupdates) {
        if (/\\[ebuild\s+\\\[32/) {
            chomp ;
            my @spl = split /]/ ;
            my @final = split /\// ;
            my @last = split (/\s/,$final[1]) ;
            print TMP "  $i\t$last[0] (NEW)\n" ;
            $i++ ;
        }
        if (/\\[ebuild\s+\\\[36/) {
            chomp ;
            my @spl = split /]/ ;
            my @final = split /\// ;
            my @last = split (/\s/,$final[1]) ;
                print TMP "  $i\t$last[0] (UPDATE)\n" ;
            $i++ ;
        }
    }
    close(TMP);
}

#Here we will print the packges that can be upgraded on the screen
#
sub show_info() {
    clear ;
    open (TMP2,"<$tmpfl");
    foreach(<TMP2>) {
        print $_ ;                  
    }
    close(TMP2) ;
    selection ;
}


#Here you can make you choice of what you want to upgrade
#
sub selection() {
    print "Which Packages do you want to Upgrade or type quit to exit or type go to start upgrading the selected programs.\n" ;
    my $antwoord = <STDIN> ;
    chomp($antwoord);

    if ($antwoord eq "go") {
        &start ;
        exit 1 ;
    }
 
     if ($antwoord eq "quit") {
        exit 0 ;
    }
    
    open(OUT, "$tmpfl");
    my @data2 = <OUT>;
    my $ster = "x $antwoord" ;
    my $gster = "  $antwoord" ;
    foreach (@data2) {
        if (/^$gster/) {
            &filereplace("$gster","$ster") ;
        } 
        elsif (/^$ster/) {
            &filereplace("$ster","$gster") ;
        }
    }
    close(OUT);
    show_info ;
}

#In this part we wil add or remove a X to the tmp file
#
sub filereplace() {
    ($search,$replace) = @_ ;

    open(OUT, "$tmpfl");
    my @data = <OUT>;
    close(OUT) ;

    open(OUT, ">$tmpfl") ;
    foreach my $dataline (@data) {
        $dataline =~ s/$search/$replace/gi ;
        print OUT $dataline ;
    }
    close(OUT) ;
    show_info;
}

#And here we wil start the upgrade :P
#
sub start() {
    open(OUT, "$tmpfl") ;
    my @data3 = <OUT> ;
    close(OUT) ;

    my @ARRAY ;

    print "Upgrading the folowing packages\n" ;
    foreach (@data3) {
        if (/^x/) {
            my @spl = split(/\s/) ;
            print "\t$spl[2]\n" ;
            my @spl2 = split(/\./,$spl[2]);
            chop($spl2[0]) ;
            chop($spl2[0]) ;
            my $value = "$spl2[0] ";
            $ARRAY[++$#ARRAY] = $value ;
        }
    }
    my $emerge = `emerge -u @ARRAY`  ;
    print $emerge ;
}

#Here we will clean the screan.
#
sub clear() {
    my $clear = `clear` ;
    print $clear ;
}

laat me weten als er iets aan verbeterd kan worden of als je er nog toevoegingen voor weet.