<html>
<head>
<title>Petter Reinholdtsen: entries from February 2009</title>
- <link rel="stylesheet" type="text/css" media="screen" href="../../../style.css">
+ <link rel="stylesheet" type="text/css" media="screen" href="http://people.skolelinux.org/pere/blog/style.css">
<link rel="alternate" title="RSS Feed" href="02.rss" type="application/rss+xml">
</head>
<body>
<div class="title">
<h1>
- <a href="../../../">Petter Reinholdtsen</a>
+ <a href="http://people.skolelinux.org/pere/blog/">Petter Reinholdtsen</a>
</h1>
<div class="entry">
<div class="title">
- <a href="../../../Intellektuelt_privilegium___et_bedre_IP_begrep.html">Intellektuelt privilegium - et bedre IP-begrep</a>
+ <a href="http://people.skolelinux.org/pere/blog/Intellektuelt_privilegium___et_bedre_IP_begrep.html">Intellektuelt privilegium - et bedre IP-begrep</a>
</div>
<div class="date">
2009-02-01 15:06
- Tags: <a href="../../../tags/norsk">norsk</a>, <a href="../../../tags/nuug">nuug</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk</a>, <a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../Norge_trenger_en_personvernforening.html">Norge trenger en personvernforening</a>
+ <a href="http://people.skolelinux.org/pere/blog/Norge_trenger_en_personvernforening.html">Norge trenger en personvernforening</a>
</div>
<div class="date">
2009-02-01 18:35
- Tags: <a href="../../../tags/norsk">norsk</a>, <a href="../../../tags/personvern">personvern</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk</a>, <a href="http://people.skolelinux.org/pere/blog/tags/personvern">personvern</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../Min_reprap_tar_sakte_form.html">Min reprap tar sakte form</a>
+ <a href="http://people.skolelinux.org/pere/blog/Min_reprap_tar_sakte_form.html">Min reprap tar sakte form</a>
</div>
<div class="date">
2009-02-03 13:30
- Tags: <a href="../../../tags/3d-printer">3d-printer</a>, <a href="../../../tags/norsk">norsk</a>, <a href="../../../tags/nuug">nuug</a>, <a href="../../../tags/reprap">reprap</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/3d-printer">3d-printer</a>, <a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk</a>, <a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug</a>, <a href="http://people.skolelinux.org/pere/blog/tags/reprap">reprap</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../F__rste_vellykkede_videostr__m_fra_NUUG.html">Første vellykkede videostrøm fra NUUG</a>
+ <a href="http://people.skolelinux.org/pere/blog/F__rste_vellykkede_videostr__m_fra_NUUG.html">Første vellykkede videostrøm fra NUUG</a>
</div>
<div class="date">
2009-02-11 06:30
- Tags: <a href="../../../tags/norsk">norsk</a>, <a href="../../../tags/nuug">nuug</a>, <a href="../../../tags/video">video</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk</a>, <a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug</a>, <a href="http://people.skolelinux.org/pere/blog/tags/video">video</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../Endelig_er_Debian_Lenny_gitt_ut.html">Endelig er Debian Lenny gitt ut</a>
+ <a href="http://people.skolelinux.org/pere/blog/Endelig_er_Debian_Lenny_gitt_ut.html">Endelig er Debian Lenny gitt ut</a>
</div>
<div class="date">
2009-02-15 11:50
- Tags: <a href="../../../tags/debian">debian</a>, <a href="../../../tags/debian edu">debian edu</a>, <a href="../../../tags/norsk">norsk</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/debian">debian</a>, <a href="http://people.skolelinux.org/pere/blog/tags/debian edu">debian edu</a>, <a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../Kart_over_overv__kningskamera_i_Norge.html">Kart over overvåkningskamera i Norge</a>
+ <a href="http://people.skolelinux.org/pere/blog/Kart_over_overv__kningskamera_i_Norge.html">Kart over overvåkningskamera i Norge</a>
</div>
<div class="date">
2009-02-15 22:30
- Tags: <a href="../../../tags/norsk">norsk</a>, <a href="../../../tags/personvern">personvern</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk</a>, <a href="http://people.skolelinux.org/pere/blog/tags/personvern">personvern</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../Using_bar_codes_at_a_computing_center.html">Using bar codes at a computing center</a>
+ <a href="http://people.skolelinux.org/pere/blog/Using_bar_codes_at_a_computing_center.html">Using bar codes at a computing center</a>
</div>
<div class="date">
2009-02-20 08:50
- Tags: <a href="../../../tags/english">english</a>, <a href="../../../tags/nuug">nuug</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/english">english</a>, <a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug</a>.
</div>
</div>
<div class="entry">
<div class="title">
- <a href="../../../Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html">Checking server hardware support status for Dell, HP and IBM servers</a>
+ <a href="http://people.skolelinux.org/pere/blog/Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html">Checking server hardware support status for Dell, HP and IBM servers</a>
</div>
<div class="date">
2009-02-28 23:50
parsing could be done using nice libraries, but did not want to
introduce more dependencies. This is the current incarnation:</p>
-<p><pre>
+<pre>
use LWP::Simple;
use POSIX;
use WWW::Mechanize;
if ( $model =~ m/^Dell / ) {
# fetch website from Dell support
- my $url = "http://support.euro.dell.com/support/topics/topic.aspx/emea/shared/support/my_systems_info/no/details?c=no&cs=nodhs1&l=no&s=dhs&ServiceTag=$serial";
+ my $url = "http://support.euro.dell.com/support/topics/topic.aspx/emea/shared/support/my_systems_info/no/details?c=no&cs=nodhs1&l=no&s=dhs&ServiceTag=$serial";
my $webpage = get($url);
return undef unless ($webpage);
my @lines = split(/\n/, $webpage);
foreach my $line (@lines) {
next unless ($line =~ m/Beskrivelse/);
- $line =~ s/<[^>]+?>/;/gm;
- $line =~ m%;(\d{2})/(\d{2})/(\d{4});+(\d{2})/(\d{2})/(\d{4});%g;
- my $start = "$3-$1-$2";
- my $end = "$6-$4-$5";
- $str = "$start -> $end";
+ $line =~ s/<[^>]+?>/;/gm;
+ $line =~ s/^.+?;(Beskrivelse;)/$1/;
+
+ my @f = split(/\;/, $line);
+ @f = @f[13 .. $#f];
+ my $lastend = "";
+ while ($f[3] eq "DELL") {
+ my ($type, $startstr, $endstr, $days) = @f[0, 5, 7, 10];
+
+ my $start = POSIX::strftime("%Y-%m-%d",
+ localtime(str2time($startstr)));
+ my $end = POSIX::strftime("%Y-%m-%d",
+ localtime(str2time($endstr)));
+ $str .= "$type $start -> $end ";
+ @f = @f[14 .. $#f];
+ $lastend = $end if ($end gt $lastend);
+ }
my $today = POSIX::strftime("%Y-%m-%d", localtime(time));
tag_machine_unsupported($machine)
- if ($end lt $today);
+ if ($lastend lt $today);
}
} elsif ( $model =~ m/^HP / ) {
my $mech = WWW::Mechanize->new();
# Next step is screen scraping
my $content = $mech->content();
- $content =~ s/<[^>]+?>/;/gm;
+ $content =~ s/<[^>]+?>/;/gm;
$content =~ s/\s+/ /gm;
$content =~ s/;\s*;/;;/gm;
$content =~ s/;[\s;]+/;/gm;
if ($end lt $today);
}
} elsif ( $model =~ m/^IBM / ) {
+ # This code ignore extended support contracts.
my ($producttype) = $model =~ m/.*-\[(.{4}).+\]-/;
- if ($producttype && $serial) {
+ if ($producttype && $serial) {
my $content =
- get("http://www-947.ibm.com/systems/support/supportsite.wss/warranty?action=warranty&brandind=5000008&Submit=Submit&type=$producttype&serial=$serial");
+ get("http://www-947.ibm.com/systems/support/supportsite.wss/warranty?action=warranty&brandind=5000008&Submit=Submit&type=$producttype&serial=$serial");
if ($content) {
- $content =~ s/<[^>]+?>/;/gm;
+ $content =~ s/<[^>]+?>/;/gm;
$content =~ s/\s+/ /gm;
$content =~ s/;\s*;/;;/gm;
$content =~ s/;[\s;]+/;/gm;
}
return $str;
}
-</pre></p>
+</pre>
<p>Here are some examples on how to use the function, using fake
serial numbers. The information passed in as arguments are fetched
from dmidecode.</p>
-<p><pre>
+<pre>
print get_support_info("hp.host", "HP ProLiant BL460c G1", "1234567890"
"447707-B21");
print get_support_info("dell.host", "Dell Inc. PowerEdge 2950", "1234567");
print get_support_info("ibm.host", "IBM eserver xSeries 345 -[867061X]-",
"1234567");
-</pre></p>
+</pre>
<p>I would recommend this approach for tracking support contracts for
-everyone with more than a new computers to administer. :)</p>
+everyone with more than a few computers to administer. :)</p>
+
+<p>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.</p>
</div>
<div class="tags">
- Tags: <a href="../../../tags/english">english</a>, <a href="../../../tags/nuug">nuug</a>.
+ Tags: <a href="http://people.skolelinux.org/pere/blog/tags/english">english</a>, <a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug</a>.
</div>
</div>
<div class="padding"></div>
- <p style="text-align: right;"><a href="02.rss"><img src="../../../xml.gif" alt="RSS Feed" width="36" height="14"></a></p>
+ <p style="text-align: right;"><a href="02.rss"><img src="http://people.skolelinux.org/pere/blog/xml.gif" alt="RSS Feed" width="36" height="14"></a></p>
<h2>Archive</h2>
<ul>
+<li>2010
+<ul>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2010/01/">January (2)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2010/02/">February (1)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2010/03/">March (3)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2010/04/">April (3)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2010/05/">May (9)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2010/06/">June (7)</a></li>
+
+</ul></li>
+
<li>2009
<ul>
-<li><a href="../../../archive/2009/01/">January (8)</a></li>
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/01/">January (8)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/02/">February (8)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/03/">March (12)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/04/">April (10)</a></li>
-<li><a href="../../../archive/2009/02/">February (8)</a></li>
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/05/">May (9)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/06/">June (3)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/07/">July (4)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/08/">August (3)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/09/">September (1)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/10/">October (2)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/11/">November (3)</a></li>
+
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2009/12/">December (3)</a></li>
</ul></li>
<li>2008
<ul>
-<li><a href="../../../archive/2008/11/">November (5)</a></li>
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2008/11/">November (5)</a></li>
-<li><a href="../../../archive/2008/12/">December (7)</a></li>
+<li><a href="http://people.skolelinux.org/pere/blog/archive/2008/12/">December (7)</a></li>
</ul></li>
<h2>Tags</h2>
<ul>
- <li><a href="../../../tags/3d-printer">3d-printer (7)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/3d-printer">3d-printer (11)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/amiga">amiga (1)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/aros">aros (1)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/bootsystem">bootsystem (5)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/debian">debian (25)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/debian edu">debian edu (25)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/english">english (36)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/fiksgatami">fiksgatami (1)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/fildeling">fildeling (6)</a></li>
+
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/kart">kart (2)</a></li>
- <li><a href="../../../tags/amiga">amiga (1)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/lenker">lenker (1)</a></li>
- <li><a href="../../../tags/aros">aros (1)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/ltsp">ltsp (1)</a></li>
- <li><a href="../../../tags/debian">debian (3)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/multimedia">multimedia (5)</a></li>
- <li><a href="../../../tags/debian edu">debian edu (4)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/norsk">norsk (67)</a></li>
- <li><a href="../../../tags/english">english (6)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/nuug">nuug (75)</a></li>
- <li><a href="../../../tags/fiksgatami">fiksgatami (1)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/opphavsrett">opphavsrett (12)</a></li>
- <li><a href="../../../tags/ltsp">ltsp (1)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/personvern">personvern (11)</a></li>
- <li><a href="../../../tags/multimedia">multimedia (2)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/reprap">reprap (10)</a></li>
- <li><a href="../../../tags/norsk">norsk (22)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/rss">rss (1)</a></li>
- <li><a href="../../../tags/nuug">nuug (20)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/sikkerhet">sikkerhet (8)</a></li>
- <li><a href="../../../tags/personvern">personvern (3)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/sitesummary">sitesummary (3)</a></li>
- <li><a href="../../../tags/reprap">reprap (7)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/standard">standard (12)</a></li>
- <li><a href="../../../tags/rss">rss (1)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/stavekontroll">stavekontroll (1)</a></li>
- <li><a href="../../../tags/stavekontroll">stavekontroll (1)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/video">video (10)</a></li>
- <li><a href="../../../tags/video">video (3)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/vitenskap">vitenskap (1)</a></li>
- <li><a href="../../../tags/web">web (2)</a></li>
+ <li><a href="http://people.skolelinux.org/pere/blog/tags/web">web (6)</a></li>
</ul>
projects / homepage.git / blobdiff