Scripts I use to update my system from ABS

Question

Banged some scripts together to update from ABS and sharing them cause I like them - they work together or separate.
gather abs directories into ~/abs directory:
#!/usr/bin/perl
my @upgradelist;
system ("sudo pacman -Sy");
system ("sudo abs");
open FH, "pacman -Qqu |";
while (<FH>){
chomp $_;
if (-d "/var/abs/core/$_") {system ("cp -R /var/abs/core/$_/ /home/poiuyt/abs/ ");}
if (-d "/var/abs/community/$_") {system ("cp -R /var/abs/community/$_/ /home/poiuyt/abs/ ");}
if (-d "/var/abs/extra/$_") {system ("cp -R /var/abs/extra/$_/ /home/poiuyt/abs/ ");}
DL and make the ABS packages from the ~/abs directory:
GNU nano 2.2.6 File: makepackages.pl
#!/usr/bin/perl
$absdir = $ENV{"HOME"}."/abs";
opendir (DIR, $absdir);
my @directory= readdir(DIR);
my $workingdir;
foreach (@directory){
# if ($file =~ m/^\./){
$workingdir = $absdir."/$_";
print "calling makepkg on $workingdir\n";
chdir ("$workingdir") or die "can't change directories";
system ("makepkg");
install packages in abs directory:
GNU nano 2.2.6 File: install.pl
#!/usr/bin/perl
$absdir = $ENV{"HOME"}."/abs";
opendir (DIR, $absdir);
my @directory= readdir(DIR);
my $workingdir;
foreach (@directory){
# if ($file =~ m/^\./){
$workingdir = $absdir."/$_";
print "calling pacman on $workingdir\n";
chdir ("$workingdir") or die "can't change directories";
system ("sudo pacman -U *.pkg.tar.xz");
Feel free to comment or improve as I willingly admit I am a crappy coder.
EDIT : My bad code was corrected - sorry was working on it today
Last edited by poiuyt23 (2013-12-17 05:35:21)

Answer 1

Don't use pacman -Sy, use checkupdates
Don't run abs as root, use $ABSROOT, also you cam tell abs just what packages to download. As a sidenote, abs is often out of date, the gir repo is prefered.
And there already are several existing tools to build/update from abs, why not use one of those?