Generated.

[homepage.git] / blog / archive / 2009 / 02 / 02.rss

diff --git a/blog/archive/2009/02/02.rss b/blog/archive/2009/02/02.rss
index af03604c6590a2754792445c1188e3ad303bfdbf..e9f6f45dd44f108673316873448c4cbb653d4e16 100644 (file)
--- a/blog/archive/2009/02/02.rss
+++ b/blog/archive/2009/02/02.rss
@@ -3,13 +3,13 @@
        <channel>
                <title>Petter Reinholdtsen - Entries from February 2009</title>
                <description>Entries from February 2009</description>
-                <link>../../../</link>
+                <link>http://people.skolelinux.org/pere/blog/</link>
 
        
        <item>
                <title>Intellektuelt privilegium - et bedre IP-begrep</title>
-               <link>../../../Intellektuelt_privilegium___et_bedre_IP_begrep.html</link>        
-               <guid isPermaLink="true">../../../Intellektuelt_privilegium___et_bedre_IP_begrep.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Intellektuelt_privilegium___et_bedre_IP_begrep.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Intellektuelt_privilegium___et_bedre_IP_begrep.html</guid>
                 <pubDate>Sun, 1 Feb 2009 15:06:00 +0100</pubDate>
                <description>
 &lt;p&gt;Ofte brukes intellektuell eiendom som samlebegrep for opphavsrett,
@@ -37,8 +37,8 @@ forretningshemmeligheter framover.&lt;/p&gt;
        
        <item>
                <title>Norge trenger en personvernforening</title>
-               <link>../../../Norge_trenger_en_personvernforening.html</link>        
-               <guid isPermaLink="true">../../../Norge_trenger_en_personvernforening.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Norge_trenger_en_personvernforening.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Norge_trenger_en_personvernforening.html</guid>
                 <pubDate>Sun, 1 Feb 2009 18:35:00 +0100</pubDate>
                <description>
 &lt;p&gt;De siste årene har jeg forsøkt å få liv i
@@ -59,8 +59,8 @@ nå får vi se om noen er enig.&lt;/p&gt;
        
        <item>
                <title>Min reprap tar sakte form</title>
-               <link>../../../Min_reprap_tar_sakte_form.html</link>        
-               <guid isPermaLink="true">../../../Min_reprap_tar_sakte_form.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Min_reprap_tar_sakte_form.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Min_reprap_tar_sakte_form.html</guid>
                 <pubDate>Tue, 3 Feb 2009 13:30:00 +0100</pubDate>
                <description>
 &lt;p&gt;Min reprap begynner å ta form.  Den er nå kommet så langt at den er
@@ -99,8 +99,8 @@ arbeidet.&lt;/p&gt;
        
        <item>
                <title>Første vellykkede videostrøm fra NUUG</title>
-               <link>../../../F__rste_vellykkede_videostr__m_fra_NUUG.html</link>        
-               <guid isPermaLink="true">../../../F__rste_vellykkede_videostr__m_fra_NUUG.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/F__rste_vellykkede_videostr__m_fra_NUUG.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/F__rste_vellykkede_videostr__m_fra_NUUG.html</guid>
                 <pubDate>Wed, 11 Feb 2009 06:30:00 +0100</pubDate>
                <description>
 &lt;p&gt;Jeg ble glad for å se under
@@ -118,8 +118,8 @@ webserver og komprimert.&lt;/p&gt;
        
        <item>
                <title>Endelig er Debian Lenny gitt ut</title>
-               <link>../../../Endelig_er_Debian_Lenny_gitt_ut.html</link>        
-               <guid isPermaLink="true">../../../Endelig_er_Debian_Lenny_gitt_ut.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Endelig_er_Debian_Lenny_gitt_ut.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Endelig_er_Debian_Lenny_gitt_ut.html</guid>
                 <pubDate>Sun, 15 Feb 2009 11:50:00 +0100</pubDate>
                <description>
 &lt;p&gt;Endelig er &lt;a href=&quot;http://www.debian.org/&quot;&gt;Debian&lt;/a&gt;
@@ -139,8 +139,8 @@ bootsekvens tilgjengelig i stabil utgave, vha pakken
        
        <item>
                <title>Kart over overvåkningskamera i Norge</title>
-               <link>../../../Kart_over_overv__kningskamera_i_Norge.html</link>        
-               <guid isPermaLink="true">../../../Kart_over_overv__kningskamera_i_Norge.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Kart_over_overv__kningskamera_i_Norge.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Kart_over_overv__kningskamera_i_Norge.html</guid>
                 <pubDate>Sun, 15 Feb 2009 22:30:00 +0100</pubDate>
                <description>
 &lt;p&gt;I regi av
@@ -159,15 +159,15 @@ fikser en av disse manglene, men det vil fortsatt være umulig å vite
 om et kamera er registrert etter lovens krav eller ikke.  Pr. nå er
 22 kamera i Oslo registrert, og det trengs flere til å registrere
 alle.  Informasjonen registreres direkte inn i &lt;a
-href=&quot;http://www.openstreetmap.org/&quot;&gt;OpenStreetmap&lt;/a&gt;, sa hentes det
+href=&quot;http://www.openstreetmap.org/&quot;&gt;OpenStreetmap&lt;/a&gt;, så hentes det
 automatisk over i spesialkartet.&lt;/p&gt;
 </description>
        </item>
        
        <item>
                <title>Using bar codes at a computing center</title>
-               <link>../../../Using_bar_codes_at_a_computing_center.html</link>        
-               <guid isPermaLink="true">../../../Using_bar_codes_at_a_computing_center.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Using_bar_codes_at_a_computing_center.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Using_bar_codes_at_a_computing_center.html</guid>
                 <pubDate>Fri, 20 Feb 2009 08:50:00 +0100</pubDate>
                <description>
 &lt;p&gt;At work with the University of Oslo, we have several hundred computers
@@ -216,8 +216,8 @@ easier automatic tracking of computers.&lt;/p&gt;
        
        <item>
                <title>Checking server hardware support status for Dell, HP and IBM servers</title>
-               <link>../../../Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html</link>        
-               <guid isPermaLink="true">../../../Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html</guid>
+               <link>http://people.skolelinux.org/pere/blog/Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html</link>        
+               <guid isPermaLink="true">http://people.skolelinux.org/pere/blog/Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html</guid>
                 <pubDate>Sat, 28 Feb 2009 23:50:00 +0100</pubDate>
                <description>
 &lt;p&gt;At work, we have a few hundred Linux servers, and with that amount
@@ -276,13 +276,25 @@ sub get_support_info {
         foreach my $line (@lines) {
             next unless ($line =~ m/Beskrivelse/);
             $line =~ s/&amp;lt;[^&gt;]+?&gt;/;/gm;
-            $line =~ m%;(\d{2})/(\d{2})/(\d{4});+(\d{2})/(\d{2})/(\d{4});%g;
-            my $start = &quot;$3-$1-$2&quot;;
-            my $end = &quot;$6-$4-$5&quot;;
-            $str = &quot;$start -&gt; $end&quot;;
+            $line =~ s/^.+?;(Beskrivelse;)/$1/;
+
+            my @f = split(/\;/, $line);
+            @f = @f[13 .. $#f];
+            my $lastend = &quot;&quot;;
+            while ($f[3] eq &quot;DELL&quot;) {
+                my ($type, $startstr, $endstr, $days) = @f[0, 5, 7, 10];
+
+                my $start = POSIX::strftime(&quot;%Y-%m-%d&quot;,
+                                            localtime(str2time($startstr)));
+                my $end = POSIX::strftime(&quot;%Y-%m-%d&quot;,
+                                          localtime(str2time($endstr)));
+                $str .= &quot;$type $start -&gt; $end &quot;;
+                @f = @f[14 .. $#f];
+                $lastend = $end if ($end gt $lastend);
+            }
             my $today = POSIX::strftime(&quot;%Y-%m-%d&quot;, localtime(time));
             tag_machine_unsupported($machine)
-                if ($end lt $today);
+                if ($lastend lt $today);
         }
     } elsif ( $model =~ m/^HP / ) {
         my $mech = WWW::Mechanize-&gt;new();
@@ -323,6 +335,7 @@ sub get_support_info {
                 if ($end lt $today);
         }
     } elsif ( $model =~ m/^IBM / ) {
+        # This code ignore extended support contracts.
         my ($producttype) = $model =~ m/.*-\[(.{4}).+\]-/;
         if ($producttype &amp;amp;&amp;amp; $serial) {
             my $content =
@@ -361,7 +374,12 @@ print get_support_info(&quot;ibm.host&quot;, &quot;IBM eserver xSeries 345 -[867
 &lt;/pre&gt;
 
 &lt;p&gt;I would recommend this approach for tracking support contracts for
-everyone with more than a new computers to administer. :)&lt;/p&gt;
+everyone with more than a few computers to administer. :)&lt;/p&gt;
+
+&lt;p&gt;Update 2009-03-06: The IBM page do not include extended support
+contracts, so it is useless in that case.  The original Dell code do
+not handle extended support contracts either, but has been updated to
+do so.&lt;/p&gt;
 </description>
        </item>