#!/usr/bin/env perl
 
use Sys::Hostname;
my $host = hostname;
system("mkdir /var/upgrade");
open(my $output, ">/var/upgrade/upgrade.log");
system("cd /boot; tar jcf bootback.tbz *; mv bootback.tbz /root");
system("mkdir /root/bootsave");
system('tail -n 8 /boot/grub/menu.lst |head -n 4| sed -e \'s/LogVol00/ssLogVol00/\' | sed -e \'s/Red.*/Rollback to EL4/\' > /root/bootsave/menu.lst');
system("cp -v /boot/*2.6* /root/bootsave");
system("cp /etc/fstab /etc/fstab.original");
system("cp /etc/fstab /etc/fstab.rollback");
system('sed -i -e \'s/\(LogVol[0-9]*\) /ss\1 /\' /etc/fstab.rollback');
system("cp /etc/lvm/lvm.conf /etc/lvm/lvm.conf.save");
system('sed -i -e \'s/\(.*[^#]filter.*sdb.*\)/#\1/\' /etc/lvm/lvm.conf');
system('sed -i -e \'s:\("a/.*/"\):\1, "r|/dev/cdrom|":\' /etc/lvm/lvm.conf');
 
#I'm not happy about it, but our lastlog is huge, and there's no space for it anywhere in the snapshot. Save off a copy, at least.
#system("cp /var/log/lastlog /root && gzip /root/lastlog && cat /dev/null > /var/log/lastlog");
system("cat /dev/null > /var/log/lastlog");
 
system("cp -v /var/adm/sw/products/backout.pl /usr/bin/backout");
#Try to take snapshots.  Die if it fails, since we're not committed yet, and we want to ensure we can
#abort if necessary
my @lvs = `lvs --noheading --units k| awk '{print \$1, \$4}' | grep -v ss`;
system("mkdir /mnt/snap");
chomp(@lvs);
for my $lv (@lvs) {
        my @args = split(' ', $lv);
        my ($size) = $args[1] =~ m/^(\d+)/;
        $size = int($size * .3);
        #Create new LVM filesystems to back up to
        my $cmd =  "lvcreate --name ss$args[0] --size $size\K VolGroup00 >> /var/upgrade/upgrade.log";
        system($cmd) == 0 or die "Error: $? (probably insufficient free extents)\n";
        $cmd = "mkfs.ext3 /dev/VolGroup00/ss$args[0] >> /var/upgrade/upgrade.log";
        system($cmd);
        $cmd = "mount /dev/VolGroup00/ss$args[0] /mnt/snap";
        system($cmd) == 0 or die "Can't mount snapshot!\n";
        my $mount = `grep $args[0] /etc/fstab | awk '{print \$2}'`;
        chomp($mount);
        $cmd = "cd $mount; find . -xdev | cpio -pvdaum /mnt/snap >> /var/upgrade/upgrade.log";
        system($cmd) == 0 or die "Error in cpio: $? (probably not enough free space)\n";
        $cmd = "umount /mnt/snap";
        system($cmd);
}
 
#Save off fstab
system("mount /dev/VolGroup00/ssLogVol00 /mnt/snap") == 0 or die "Can't mount snapshot!\n";
system("cp /etc/fstab.rollback /mnt/snap/etc/fstab");
system("umount /mnt/snap");
 
#Remove packages before the upgrade from a known-good list
#Anything that differs, kill it
open(my $file, "/var/adm/sw/products/stillinstalled.fs");
my @good = <$file>;
chomp(@good);
close($file);
 
my @current = `rpm -qa --queryformat "%{NAME}.%{ARCH}\n" | grep -v none | grep -v svt`;
chomp(@current);
 
my %known = map { $_ => 1 } @good;
my %present = map {$_ => 1 } @current;
 
my @killrpms;
 
foreach my $rpm (keys %present) {
        unless ($known{$rpm}) {
                push(@killrpms, $rpm);
        }
}
 
my $rpmkillcmd = "rpm -e --nodeps --allmatches " . join(' ',@killrpms);
print "$rpmkillcmd\n";
rpmrun($rpmkillcmd);
 
#Extract the upgrade files
system("mkdir -p /tmp/upgrade");
system("tar -xzvf /var/adm/sw/products/rhel53upgrade.tgz -C /tmp/upgrade");
 
my @rpms = `rpm -qa --queryformat "\%\{NAME\}.\%\{ARCH\}\n"`;
chomp(@rpms);
 
my @specific = `rpm -qa --queryformat "%{NAME}-%{VERSION}.%{ARCH}\n"| egrep "elfutils|elfutils-libelf|pwlib|rpm-libs"`;
 
chomp(@specific);
my $specdel = join(' ', @specific);
 
my @nuke = `rpm -qa --queryformat "%{NAME}-%{VERSION}.%{ARCH}\n" | egrep "libselinux|util-linux|e2fsprogs"`;
chomp(@nuke);
my @cracklib = `rpm -qa --queryformat "%{NAME}-%{VERSION}.%{ARCH}\n" | egrep "cracklib.*i386"`;
chomp(@cracklib);
my @nukers = (@nuke, @cracklib);
 
my @findkernels = `rpm -qa |grep kernel`;
chomp(@findkernels);
 
my @deleters;
my @oldkernels;
my %del = map {$_ => 1} qw{VFlib2 caching-nameserver autofs kudzu pcmcia-cs xorg-x11 newt-perl hal crypto-utils gdm openjade docbook-dtds scrollkeeper pilot-link octave kdemultimedia kdebase xorg-x11-xdm system-config-printer system-config-printer-gui hal-cups-utils linuxwacom OPC OPCCOMM dce redhat-logos redhat-menus redhat-artwork system-config-securitylevel system-config-securitylevel-tui HPOvEaAgt HPOvLcja HPOvPCO HPOvBbc HPOvPacc HPOvLczC HPOvEaAes HPOvEaAja HPOvSecCo HPOvAgtEx HPOvLcko HPOvCtrl HPOvEaAzC HPOvSecCC HPOvXercesA HPOvLces HPOvDepl HPOvXpl HPOvPerlA HPOvXalanA HPOvEaAko HPOvConf};
 
my %postdel = map {$_ => 1} qw{lha bluez-bluefw desktop-backgrounds-extra gtk-engines ttfprint gsl lam-libs ash krbafs tclx fribidi Omni-foomatic Omni mysqlclient10 FreeWnn-libs w3c-libwww};
my @postdeleters;
 
foreach my $rpm (@rpms) {
        my ($shortname) = $rpm =~ m/(.*)\..*/;
        if ($del{$shortname}) {
                push(@deleters, $rpm);
        }
        if ($postdel{$shortname}) {
                push(@postdeleters, $rpm);
        }
}
 
foreach my $kernel (@findkernels) {
        push(@oldkernels, $kernel);
}
 
my $removelist = join(' ', @deleters);
my $removekernels = join(' ', @oldkernels);
my $nukelist = join(' ',@nukers);
 
my %version = map {$_ => 1} qw{redhat-release-notes-5Server.x86_64.rpm redhat-release-5Server.x86_64.rpm};
 
my %prepinstall = map {$_ => 1} qw(rpm-libs.x86_64.rpm rpm.x86_64.rpm yum.noarch.rpm rpm-python.x86_64.rpm popt.x86_64.rpm glibc.x86_64.rpm glibc-common.x86_64.rpm beecrypt.x86_64.rpm glibc-headers.x86_64.rpm glibc-devel.x86_64.rpm binutils.x86_64.rpm elfutils.x86_64.rpm elfutils-libelf.x86_64.rpm elfutils-libs.x86_64.rpm beecrypt-python.x86_64.rpm python.x86_64.rpm python-devel.x86_64.rpm python-elementtree.x86_64.rpm python-sqlite.x86_64.rpm sqlite.x86_64.rpm sqlite-devel.x86_64.rpm python-urlgrabber.noarch.rpm neon.x86_64.rpm libxml2.x86_64.rpm libxml2-python.x86_64.rpm db4.x86_64.rpm libselinux.x86_64.rpm libsepol.x86_64.rpm mcstrans.x86_64.rpm m2crypto.x86_64.rpm krb5-libs.x86_64.rpm openssl.x86_64.rpm readline.x86_64.rpm python-iniparse.noarch.rpm yum-metadata-parser.x86_64.rpm nss.x86_64.rpm glib2.x86_64.rpm e2fsprogs.x86_64.rpm e2fsprogs-libs.x86_64.rpm nspr.x86_64.rpm);
 
my @instlist;
my $packdir = "/tmp/upgrade/base/";
opendir(my $dir, $packdir);
my %cdromfiles = map {$_ => 1} readdir($dir);
closedir($dir);
my @versions;
my @installers;
my $kernel;
foreach my $entry (keys %cdromfiles) {
        my ($packname, $packarch) = $entry =~ m/(.*?)-\d[^S].*(\..*?\.rpm)/;
        my $package = $packname . $packarch;
        if ($version{$package}) {
                $entry = $packdir . $entry;
                push (@versions, $entry);
        }
        if ($prepinstall{$package}) {
                $entry = $packdir . $entry;
                push (@installers, $entry);
        }
        if ($entry =~ /kernel-\d.*/) {
                $kernel = $packdir . $entry;
        }
}
 
my $installlist = join(' ', @installers);
my $versionlist = join(' ', @versions);
 
print "rpm -Uvh $versionlist\n";
rpmrun("rpm -Uvh $versionlist");
print "rpm --import /tmp/upgrade/base/RPM-GPG-KEY-redhat-release\n";
rpmrun("rpm --import /tmp/upgrade/base/RPM-GPG-KEY-redhat-release");
print "rpm -Uvh --nodeps --replacefiles $installlist\n";
rpmrun("rpm -Uvh --nodeps --replacefiles $installlist");
print "rm -f /var/lib/rpm/__* && rpm --rebuilddb\n";
system("rm -f /var/lib/rpm/__* && rpm --rebuilddb");
if ($removelist != "") {
        print "rpm -e --allmatches --nodeps $removelist\n";
        rpmrun("rpm -e --allmatches --nodeps $removelist");
}
if ($specdel != "") {
        print "rpm -e --allmatches $specdel\n";
        rpmrun("rpm -e --allmatches $specdel");
}
open(my $yumconf, "> /etc/yum.repos.d/iso.repo");
print $yumconf "[rh53]\nbaseurl=file:///tmp/upgrade/base\nenabled=1\ngpgcheck=0";
close($yumconf);
system("yum clean all");
rpmrun("rpm -ivh --nodeps $kernel");
print "rpm -e --nodeps $removekernels\n";
rpmrun("rpm -e --nodeps $removekernels");
rpmrun("rpm -ivh --nodeps --replacefiles /var/adm/sw/products/openssl097a-0.9.7a-9.el5_2.1.i386.rpm");
if ($nukelist != "") {
        print "rpm -e --nodeps $nukelist\n";
        rpmrun("rpm -e --nodeps $nukelist");
}
rpmrun("rpm -e hpasm hprsm hponcfg; yum -y --exclude=expect upgrade && rpm -e --nodeps e2fsprogs.i386; yum -y install kernel-devel bind bind-chroot compat-openldap openmotif22 e2fsprogs-libs nss.i386 swig numactl enscript guile rpm-libs.i386 libtool-ltdl nspr wdaemon sqlite.i386 libgcj.i386 elfutils-libelf.i386");
my $postdeletelist = join(' ', @postdeleters);
if ($postdeletelist != "") {
        rpmrun("rpm -e --allmatches $postdeletelist");
}
rpmrun("mkdir -p /usr/bin/X11 && ln -s /usr/bin/mwm /usr/bin/X11/mwm && ln -s /usr/bin/xauth /usr/bin/X11/xauth && ln -s /usr/bin/xmodmap /usr/bin/X11/xmodmap && ln -s /usr/bin/xset /usr/bin/X11/xset && ln -s /usr/bin/xsetroot /usr/bin/X11/xsetroot && ln -s /usr/bin/xterm /usr/bin/X11/xterm");
system("cp -v /var/adm/sw/products/postinstall.pl /usr/bin/postinstall");
system("chmod 777 /tmp");
system("echo 'nohup /usr/bin/postinstall &' >> /etc/rc.local");
system("grub-install /dev/your/root");
finished("success");
 
 
 
sub finished {
        my ($status) = @_;
        system("cp -v /root/bootsave/*2.6* /boot");
        system('sed -i -e \'s/2.6.*ELsmp/2.6.18-128.el5/g\' /boot/grub/menu.lst');
        system('sed -i -e \'s/Red Hat.*up/RHEL5/g\' /boot/grub/menu.lst');
        system('sed -i -e \'s/2.6.*EL/2.6.18-128.el5/g\' /boot/grub/menu.lst');
        system("cat /root/bootsave/menu.lst >> /boot/grub/menu.lst");
        if ($status =~ /failed/) {
                my $msg = "Upgrade failed!  Please boot into the snapshot and run /usr/bin/backout.";
                notify($msg);
                die "Upgrade on $host failed!  Please boot into the snapshot and run /usr/bin/backout.\n";
        }
        else {
                my $msg = "Upgrade on $host successful.  Rebooting...";
                notify($msg);
                print "Upgrade successful.  Rebooting...\n";
                system("chmod +x /etc/rc.d/rc.local");
                system("reboot -t now");
        }
}
 
sub rpmrun {
        my ($cmd) = @_;
        print "$cmd\n";
        #We're probably past the point of no return here, so I'm not going to die(), but I'll still print
        system("$cmd >> /var/upgrade/upgrade.log 2>&1") == 0 or failed($_);
 
}
 
sub failed {
        my ($message) = @_;
        print "Failed on $message packages\n";
        finished("failed");
}
 
sub notify {
        my ($message) = @_;
        my @admins = ('youraddress@whatever.domain');
        foreach my $admin (@admins) {
                system("echo $message \| mailx -s '$host upgrade' $admin");
        }
}

#!/usr/bin/perl
open(my $fstab, "/etc/fstab.original");
my @lines = <$fstab>;
close($fstab);
chomp(@lines);
 
#Check if we're on the live partitions
my $test = `mount`;
if ($test =~ /-LogVol\d+/) {
        die "Please ensure you are in the snapshot before running the backout!\n";
}
 
my %mapping;
for my $line (@lines) {
        if ($line =~ /Vol/) {
                my @fields = split(/\s+/, $line);
                $mapping{$fields[0]} = $fields[1];
        }
}
 
system("mkdir /mnt/backout");
foreach my $vol (keys %mapping) {
        print "$vol -> $mapping{$vol}\n";
        print "mount $vol /mnt/backout\n";
        system("mount $vol /mnt/backout");
 
        #Clean it out
        system("rm -rf /mnt/backout/*");
 
        #Step into whatever directory matches and cpio it to the appropriate filesystem
        #Copy special nodes and don't cross filesystems
        print "cd $mapping{$vol}; find . -xdev | cpio -pvdaum /mnt/backout\n";
        system("cd $mapping{$vol}; find . -xdev | cpio -pvdaum /mnt/backout") == 0 or die "Error in cpiO: $? (probably not enough free space)\n";
        print "umount /mnt/backout\n";
        system("umount /mnt/backout");
}
#restore fstab
system("mount /dev/VolGroup00/LogVol00 /mnt/backout");
system("cp -v /etc/fstab.original /mnt/backout/etc/fstab");
system("cp -v /etc/fstab.original /etc/fstab");
 
#restore /boot
my $cmd = "tar -xjvf /root/bootback.tbz -C /boot";
print "$cmd\n";
system($cmd);
system("reboot -t now");

#!/usr/bin/perl
 
use Sys::Hostname;
my $host = hostname;
 
 
system("rpm -e hpasm hprsm; yum -y install hponcfg hpacucli hp-health >> /var/log/upgrade.log 2>&1");
 
my @admins = ('youraddress@whatever.domain');
foreach my $admin (@admins) {
        system("cat /etc/motd | sed -e 's/~//g' | sed -e '/^\\s*\$/d' | mailx -s '$host upgraded' $admin");
}
 
#Take us out of rc.local
system("sed -i -e 's/.*postinstall//' /etc/rc.local");