1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
#!/usr/bin/perl
use strict;
use warnings;
use File::Temp qw(tempdir);
BEGIN {
# Install needed RHEL packages if missing
my %rhelmodules = (
'XML::Simple' => 'perl-XML-Simple',
);
for my $module (keys %rhelmodules) {
eval "use $module;";
if ($@) {
my $pkg = $rhelmodules{$module};
system("yum install -y $pkg");
eval "use $module;";
}
}
}
my $errorsto = 'pere@hungry.com';
upgrade_dell();
exit 0;
sub run_firmware_script {
my ($opts, $script) = @_;
unless ($script) {
print STDERR "fail: missing script name\n";
exit 1
}
print STDERR "Running $script\n\n";
if (0 == system("sh $script $opts")) { # FIXME correct exit code handling
print STDERR "success: firmware script ran succcessfully\n";
} else {
print STDERR "fail: firmware script returned error\n";
exit 1;
}
}
sub run_firmware_scripts {
my ($opts, @dirs) = @_;
# Run firmware packages
for my $dir (@dirs) {
print STDERR "info: Running scripts in $dir\n";
opendir(my $dh, $dir) or die "Unable to open directory $dir: $!";
while (my $s = readdir $dh) {
next if $s =~ m/^\.\.?/;
run_firmware_script($opts, "$dir/$s");
}
closedir $dh;
}
}
sub download {
my $url = shift;
print STDERR "info: Downloading $url\n";
system("wget --quiet \"$url\"");
}
sub upgrade_dell {
my @dirs;
my $product = `dmidecode -s system-product-name`;
chomp $product;
if ($product =~ m/PowerEdge/) {
# on RHEL, these pacakges are needed by the firwmare upgrade scripts
system('yum install -y compat-libstdc++-33.i686 libstdc++.i686 libxml2.i686 procmail');
my $tmpdir = tempdir(
CLEANUP => 1
);
chdir($tmpdir);
fetch_dell_fw('catalog/Catalog.xml.gz');
system('gunzip Catalog.xml.gz');
my @paths = fetch_dell_fw_list('Catalog.xml');
# -q is quiet, disabling interactivity and reducing console output
my $fwopts = "-q";
if (@paths) {
for my $url (@paths) {
fetch_dell_fw($url);
}
run_firmware_scripts($fwopts, $tmpdir);
} else {
print STDERR "error: Unsupported Dell model '$product'.\n";
print STDERR "error: Please report to $errorsto.\n";
exit 1;
}
chdir('/');
} else {
print STDERR "error: Unsupported Dell model '$product'.\n";
print STDERR "error: Please report to $errorsto.\n";
exit 1;
}
}
sub fetch_dell_fw {
my $path = shift;
my $url = "ftp://ftp.us.dell.com/$path";
download($url);
}
# Using ftp://ftp.us.dell.com/catalog/Catalog.xml.gz, figure out which
# firmware packages to download from Dell. Only work for Linux
# machines and 11th generation Dell servers.
sub fetch_dell_fw_list {
my $filename = shift;
my $product = `dmidecode -s system-product-name`;
chomp $product;
my ($mybrand, $mymodel) = split(/\s+/, $product);
print STDERR "Finding firmware bundles for $mybrand $mymodel\n";
my $xml = XMLin($filename);
my @paths;
for my $bundle (@{$xml->{SoftwareBundle}}) {
my $brand = $bundle->{TargetSystems}->{Brand}->{Display}->{content};
my $model = $bundle->{TargetSystems}->{Brand}->{Model}->{Display}->{content};
my $oscode;
if ("ARRAY" eq ref $bundle->{TargetOSes}->{OperatingSystem}) {
$oscode = $bundle->{TargetOSes}->{OperatingSystem}[0]->{osCode};
} else {
$oscode = $bundle->{TargetOSes}->{OperatingSystem}->{osCode};
}
if ($mybrand eq $brand && $mymodel eq $model && "LIN" eq $oscode)
{
@paths = map { $_->{path} } @{$bundle->{Contents}->{Package}};
}
}
for my $component (@{$xml->{SoftwareComponent}}) {
my $componenttype = $component->{ComponentType}->{value};
# Drop application packages, only firmware and BIOS
next if 'APAC' eq $componenttype;
my $cpath = $component->{path};
for my $path (@paths) {
if ($cpath =~ m%/$path$%) {
push(@paths, $cpath);
}
}
}
return @paths;
}
|
