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