blog/archive/2011/11/11.rss

   1 <?xml version="1.0" encoding="ISO-8859-1"?>
   2 <rss version='2.0' xmlns:lj='http://www.livejournal.org/rss/lj/1.0/'>
   3         <channel>
   4                 <title>Petter Reinholdtsen - Entries from November 2011</title>
   5                 <description>Entries from November 2011</description>
   6                 <link>http://www.hungry.com/~pere/blog/</link>
   7
   8
   9         <item>
  10                 <title>Automatically upgrading server firmware on Dell PowerEdge</title>
  11                 <link>http://www.hungry.com/~pere/blog/Automatically_upgrading_server_firmware_on_Dell_PowerEdge.html</link>
  12                 <guid isPermaLink="true">http://www.hungry.com/~pere/blog/Automatically_upgrading_server_firmware_on_Dell_PowerEdge.html</guid>
  13                 <pubDate>Mon, 21 Nov 2011 12:00:00 +0100</pubDate>
  14                 <description>&lt;p&gt;At work we have heaps of servers.  I believe the total count is
  15 around 1000 at the moment.  To be able to get help from the vendors
  16 when something go wrong, we want to keep the firmware on the servers
  17 up to date.  If the firmware isn&#39;t the latest and greatest, the
  18 vendors typically refuse to start debugging any problems until the
  19 firmware is upgraded.  So before every reboot, we want to upgrade the
  20 firmware, and we would really like everyone handling servers at the
  21 university to do this themselves when they plan to reboot a machine.
  22 For that to happen we at the unix server admin group need to provide
  23 the tools to do so.&lt;/p&gt;
  24
  25 &lt;p&gt;To make firmware upgrading easier, I am working on a script to
  26 fetch and install the latest firmware for the servers we got.  Most of
  27 our hardware are from Dell and HP, so I have focused on these servers
  28 so far.  This blog post is about the Dell part.&lt;/P&gt;
  29
  30 &lt;p&gt;On the Dell FTP site I was lucky enough to find
  31 &lt;a href=&quot;ftp://ftp.us.dell.com/catalog/Catalog.xml.gz&quot;&gt;an XML file&lt;/a&gt;
  32 with firmware information for all 11th generation servers, listing
  33 which firmware should be used on a given model and where on the FTP
  34 site I can find it.  Using a simple perl XML parser I can then
  35 download the shell scripts Dell provides to do firmware upgrades from
  36 within Linux and reboot when all the firmware is primed and ready to
  37 be activated on the first reboot.&lt;/p&gt;
  38
  39 &lt;p&gt;This is the Dell related fragment of the perl code I am working on.
  40 Are there anyone working on similar tools for firmware upgrading all
  41 servers at a site?  Please get in touch and lets share resources.&lt;/p&gt;
  42
  43 &lt;p&gt;&lt;pre&gt;
  44 #!/usr/bin/perl
  45 use strict;
  46 use warnings;
  47 use File::Temp qw(tempdir);
  48 BEGIN {
  49     # Install needed RHEL packages if missing
  50     my %rhelmodules = (
  51         &#39;XML::Simple&#39; =&gt; &#39;perl-XML-Simple&#39;,
  52         );
  53     for my $module (keys %rhelmodules) {
  54         eval &quot;use $module;&quot;;
  55         if ($@) {
  56             my $pkg = $rhelmodules{$module};
  57             system(&quot;yum install -y $pkg&quot;);
  58             eval &quot;use $module;&quot;;
  59         }
  60     }
  61 }
  62 my $errorsto = &#39;pere@hungry.com&#39;;
  63
  64 upgrade_dell();
  65
  66 exit 0;
  67
  68 sub run_firmware_script {
  69     my ($opts, $script) = @_;
  70     unless ($script) {
  71         print STDERR &quot;fail: missing script name\n&quot;;
  72         exit 1
  73     }
  74     print STDERR &quot;Running $script\n\n&quot;;
  75
  76     if (0 == system(&quot;sh $script $opts&quot;)) { # FIXME correct exit code handling
  77         print STDERR &quot;success: firmware script ran succcessfully\n&quot;;
  78     } else {
  79         print STDERR &quot;fail: firmware script returned error\n&quot;;
  80     }
  81 }
  82
  83 sub run_firmware_scripts {
  84     my ($opts, @dirs) = @_;
  85     # Run firmware packages
  86     for my $dir (@dirs) {
  87         print STDERR &quot;info: Running scripts in $dir\n&quot;;
  88         opendir(my $dh, $dir) or die &quot;Unable to open directory $dir: $!&quot;;
  89         while (my $s = readdir $dh) {
  90             next if $s =~ m/^\.\.?/;
  91             run_firmware_script($opts, &quot;$dir/$s&quot;);
  92         }
  93         closedir $dh;
  94     }
  95 }
  96
  97 sub download {
  98     my $url = shift;
  99     print STDERR &quot;info: Downloading $url\n&quot;;
 100     system(&quot;wget --quiet \&quot;$url\&quot;&quot;);
 101 }
 102
 103 sub upgrade_dell {
 104     my @dirs;
 105     my $product = `dmidecode -s system-product-name`;
 106     chomp $product;
 107
 108     if ($product =~ m/PowerEdge/) {
 109
 110         # on RHEL, these pacakges are needed by the firwmare upgrade scripts
 111         system(&#39;yum install -y compat-libstdc++-33.i686 libstdc++.i686 libxml2.i686 procmail&#39;);
 112
 113         my $tmpdir = tempdir(
 114             CLEANUP =&gt; 1
 115             );
 116         chdir($tmpdir);
 117         fetch_dell_fw(&#39;catalog/Catalog.xml.gz&#39;);
 118         system(&#39;gunzip Catalog.xml.gz&#39;);
 119         my @paths = fetch_dell_fw_list(&#39;Catalog.xml&#39;);
 120         # -q is quiet, disabling interactivity and reducing console output
 121         my $fwopts = &quot;-q&quot;;
 122         if (@paths) {
 123             for my $url (@paths) {
 124                 fetch_dell_fw($url);
 125             }
 126             run_firmware_scripts($fwopts, $tmpdir);
 127         } else {
 128             print STDERR &quot;error: Unsupported Dell model &#39;$product&#39;.\n&quot;;
 129             print STDERR &quot;error: Please report to $errorsto.\n&quot;;
 130         }
 131         chdir(&#39;/&#39;);
 132     } else {
 133         print STDERR &quot;error: Unsupported Dell model &#39;$product&#39;.\n&quot;;
 134         print STDERR &quot;error: Please report to $errorsto.\n&quot;;
 135     }
 136 }
 137
 138 sub fetch_dell_fw {
 139     my $path = shift;
 140     my $url = &quot;ftp://ftp.us.dell.com/$path&quot;;
 141     download($url);
 142 }
 143
 144 # Using ftp://ftp.us.dell.com/catalog/Catalog.xml.gz, figure out which
 145 # firmware packages to download from Dell.  Only work for Linux
 146 # machines and 11th generation Dell servers.
 147 sub fetch_dell_fw_list {
 148     my $filename = shift;
 149
 150     my $product = `dmidecode -s system-product-name`;
 151     chomp $product;
 152     my ($mybrand, $mymodel) = split(/\s+/, $product);
 153
 154     print STDERR &quot;Finding firmware bundles for $mybrand $mymodel\n&quot;;
 155
 156     my $xml = XMLin($filename);
 157     my @paths;
 158     for my $bundle (@{$xml-&gt;{SoftwareBundle}}) {
 159         my $brand = $bundle-&gt;{TargetSystems}-&gt;{Brand}-&gt;{Display}-&gt;{content};
 160         my $model = $bundle-&gt;{TargetSystems}-&gt;{Brand}-&gt;{Model}-&gt;{Display}-&gt;{content};
 161         my $oscode;
 162         if (&quot;ARRAY&quot; eq ref $bundle-&gt;{TargetOSes}-&gt;{OperatingSystem}) {
 163             $oscode = $bundle-&gt;{TargetOSes}-&gt;{OperatingSystem}[0]-&gt;{osCode};
 164         } else {
 165             $oscode = $bundle-&gt;{TargetOSes}-&gt;{OperatingSystem}-&gt;{osCode};
 166         }
 167         if ($mybrand eq $brand &amp;&amp; $mymodel eq $model &amp;&amp; &quot;LIN&quot; eq $oscode)
 168         {
 169             @paths = map { $_-&gt;{path} } @{$bundle-&gt;{Contents}-&gt;{Package}};
 170         }
 171     }
 172     for my $component (@{$xml-&gt;{SoftwareComponent}}) {
 173         my $componenttype = $component-&gt;{ComponentType}-&gt;{value};
 174
 175         # Drop application packages, only firmware and BIOS
 176         next if &#39;APAC&#39; eq $componenttype;
 177
 178         my $cpath = $component-&gt;{path};
 179         for my $path (@paths) {
 180             if ($cpath =~ m%/$path$%) {
 181                 push(@paths, $cpath);
 182             }
 183         }
 184     }
 185     return @paths;
 186 }
 187 &lt;/pre&gt;
 188
 189 &lt;p&gt;The code is only tested on RedHat Enterprise Linux, but I suspect
 190 it could work on other platforms with some tweaking.  Anyone know a
 191 index like Catalog.xml is available from HP for HP servers?  At the
 192 moment I maintain a similar list manually and it is quickly getting
 193 outdated.&lt;/p&gt;
 194 </description>
 195         </item>
 196
 197         <item>
 198                 <title>Støtt Digitalt Personvern!</title>
 199                 <link>http://www.hungry.com/~pere/blog/St_tt_Digitalt_Personvern_.html</link>
 200                 <guid isPermaLink="true">http://www.hungry.com/~pere/blog/St_tt_Digitalt_Personvern_.html</guid>
 201                 <pubDate>Wed, 9 Nov 2011 22:10:00 +0100</pubDate>
 202                 <description>&lt;p&gt;Datalagringsdirektivet er et grotesk angrep på rettsstaten og da
 203 det ble vedtatt i Stortinget ble det klart at alle som mener det
 204 liberale demokrati bør forsvares måtte stå sammen for å kjempe tilbake
 205 de totalitære strømninger i landet.  Jeg ble derfor glad over å se at
 206 den nyopprettede foreningen Digitalt Personvern startet innsamling
 207 2011-10-18 for å gå til sak for å få prøvd lovligheten av direktivet.
 208 Direktivet er så langt prøvd for retten i flere land, blant annet
 209 Tsjekkia, Romania og Tyskland, og så vidt jeg vet har det hver gang
 210 blitt kjent ulovlig av høyesterett eller forfatningsdomstolen i
 211 landene.  Jeg håper og tror det samme vil skje her i Norge.&lt;/p&gt;
 212
 213 &lt;p&gt;Men for å finne ut av det må det finansiering til.  Foreningen
 214 Digitalt Personvern tror det trengs minst 2 millioner kroner for å gå
 215 til sak og følge saken helt til ende, og i går fikk jeg endelig tid
 216 til å overføre min skjerv.  Jeg har overført 3000,- til kampanjen, og
 217 oppfordrer hver og en av mine lesere å overføre minst like mye.&lt;/p&gt;
 218
 219 &lt;p&gt;Besøk
 220 &lt;a href=&quot;http://www.digitaltpersonvern.no/bidra/&quot;&gt;donasjonssiden&lt;/a&gt;
 221 til Digitalt Personvern for å finne kontonummer som kan brukes for å
 222 bidra.&lt;/p&gt;
 223
 224 &lt;p&gt;Jeg rekker ikke skrive så mye om hvorfor datalagringsdirektivet må
 225 stoppes, så jeg nøyer meg denne gangen med en liten liste med lenker
 226 til aktuelle artikler og innlegg om temaet.&lt;/p&gt;
 227
 228 &lt;ul&gt;
 229
 230 &lt;li&gt;&lt;a href=&quot;http://www.uhuru.biz/?p=662&quot;&gt;Skal Telenor forsvare statens
 231   bevisregister i retten?&lt;/a&gt; - bloggen til Jon Wessel-Aas,
 232   bidragsyter til foreningen Digitalt Personvern&lt;/li&gt;
 233
 234 &lt;li&gt;&lt;a href=&quot;http://voxpublica.no/2011/10/varslere-bør-støtte-kampanjen-digital-personvern/&quot;&gt;Varslere
 235   bør støtte kampanjen Digitalt Personvern&lt;/a&gt; - Vox Publica&lt;/li&gt;
 236
 237 &lt;li&gt;&lt;a href=&quot;http://www.digi.no/880520/georg-apenes-starter-%ABdigitalt-personvern%BB&quot;&gt;Georg
 238   Apenes starter «Digitalt personvern»&lt;/a&gt; - Digi.no&lt;/li&gt;
 239
 240 &lt;li&gt;&lt;a href=&quot;http://blogg.abrenna.com/foredrag-om-digitalt-personvern/&quot;&gt;Foredrag
 241   om Digitalt Personvern&lt;/a&gt; - bloggen til Anders Brenna, styremedlem
 242   i foreningen Digitalt Personvern&lt;/li&gt;
 243
 244 &lt;li&gt;&lt;a href=&quot;http://www.nationen.no/2011/10/17/politikk/datalagringsdirektivet/eu/eu-direktiv/regjeringen/6990171/&quot;&gt;Organisasjon
 245   vil prøve datalagringsdirektivet for retten&lt;/a&gt; - artikkel i Nationen&lt;/li&gt;
 246
 247 &lt;li&gt;&lt;a href=&quot;https://people.skolelinux.org/pere/blog/Martin_Bekkelund__En_stille_b_nn_om_Datalagringsdirektivet.html&quot;&gt;Martin
 248   Bekkelund: En stille bønn om Datalagringsdirektivet&lt;/a&gt; - min
 249   blogg&lt;/li&gt;
 250
 251 &lt;li&gt;&lt;a href=&quot;http://tversover.wordpress.com/2011/10/21/digitalt-personvern-i-praksis/&quot;&gt;Digitalt
 252   personvern i praksis&lt;/a&gt; - bloggen til Espen Andersen&lt;/li&gt;
 253
 254 &lt;li&gt;&lt;a href=&quot;http://www.dagbladet.no/2011/10/22/kultur/data_og_teknologi/datalagringsdirektivet/tekno/personvern/18692696/&quot;&gt;Tar
 255   kampen for personvernet til rettsalen&lt;/a&gt; - Dagbladet&lt;/li&gt;
 256
 257 &lt;/ul&gt;
 258 </description>
 259         </item>
 260
 261         <item>
 262                 <title>Hvordan enkelt laste ned filmer fra NRK</title>
 263                 <link>http://www.hungry.com/~pere/blog/Hvordan_enkelt_laste_ned_filmer_fra_NRK.html</link>
 264                 <guid isPermaLink="true">http://www.hungry.com/~pere/blog/Hvordan_enkelt_laste_ned_filmer_fra_NRK.html</guid>
 265                 <pubDate>Sat, 5 Nov 2011 15:20:00 +0100</pubDate>
 266                 <description>&lt;p&gt;Ofte har jeg lyst til å laste ned et innslag fra NRKs nettsted for
 267 å se det senere når jeg ikke er på nett, eller for å ha det
 268 tilgjengelig når jeg en gang i fremtiden ønsker å referere til
 269 innslaget selv om NRK har fjernet det fra sine nettsider.  I dag fant
 270 jeg et lite script som fikser jobben.&lt;/p&gt;
 271
 272 &lt;p&gt;Scriptet er laget av Jan Henning Thorsen og tilgjengelig fra
 273 &lt;a href=&quot;http://jhthorsen.github.com/snippets/nrk-downloader/&quot;&gt;github&lt;/a&gt;,
 274 og gjør det veldig enkelt å laste ned.  Kjør &lt;tt&gt;nrk-downloader.sh
 275 http://www1.nrk.no/nett-tv/klipp/582810&lt;/tt&gt; for å hente ned et enkelt
 276 innslag eller &lt;tt&gt;nrk-downloader.sh
 277 http://www1.nrk.no/nett-tv/kategori/3521&lt;/tt&gt; for å laste ned alle
 278 episodene i en serie.&lt;/p&gt;
 279
 280 &lt;p&gt;Det er ikke rakettforskning å laste ned NRK-&quot;strømmer&quot;, og
 281 tidligere gjorde jeg dette manuelt med mplayer.  Scriptet til
 282 Hr. Thorsen gjør det raskere og enklere for meg, men jeg vil ikke si
 283 at det er en revolusjonerende løsning.  Jeg mener jo fortsatt at
 284 påstanden fra NRKs ansatte om at det er
 285 &lt;a href=&quot;https://people.skolelinux.org/pere/blog/Best___ikke_fortelle_noen_at_streaming_er_nedlasting___.html&quot;&gt;vesensforskjellig
 286 å legge tilgjengelig for nedlasting og for streaming&lt;/a&gt; er
 287 meningsløs.&lt;/p&gt;
 288 </description>
 289         </item>
 290
 291         </channel>
 292 </rss>