X-Git-Url: http://pere.pagekite.me/gitweb/homepage.git/blobdiff_plain/823081c96d77a8af187b0ca9e3b3fcb79117a49a..035c19c46c9f78dc6adf515b8418f9d0b55c709d:/blog/data/2012-06-01-dell-support-json.txt

diff --git a/blog/data/2012-06-01-dell-support-json.txt b/blog/data/2012-06-01-dell-support-json.txt
index bab0e198e6..bfe25cd799 100644
--- a/blog/data/2012-06-01-dell-support-json.txt
+++ b/blog/data/2012-06-01-dell-support-json.txt
@@ -5,23 +5,22 @@ Date: 2012-06-01 15:20
 <p>A few years ago I wrote
 <a href="http://people.skolelinux.org/pere/blog/Checking_server_hardware_support_status_for_Dell__HP_and_IBM_servers.html">how
 to extract support status</a> for your Dell and HP servers.  Recently
-I have learned that Dell have made this even easier, by providing a
-SOAP based web service.  Given the service tag, one can now query the
-Dell servers and get machine readable information about the support
-status.  This perl code demonstrate how to do it:</p>
+I have learned from colleges here at the
+<a href="http://www.uio.no/">University of Oslo</a> that Dell have
+made this even easier, by providing a SOAP based web service.  Given
+the service tag, one can now query the Dell servers and get machine
+readable information about the support status.  This perl code
+demonstrate how to do it:</p>
 
 <p><pre>
 use strict;
 use warnings;
-
 use SOAP::Lite;
 use Data::Dumper;
-
 my $GUID = '11111111-1111-1111-1111-111111111111';
 my $App = 'test';
 my $servicetag = $ARGV[0] or die "Please supply a servicetag. $!\n";
 my ($deal, $latest, @dates);
-
 my $s = SOAP::Lite
     -> uri('http://support.dell.com/WebServices/')
     -> on_action( sub { join '', @_ } )
@@ -32,11 +31,50 @@ my $a = $s->GetAssetInformation(
     SOAP::Data->name('applicationName')->value($App)->type(''),
     SOAP::Data->name('serviceTags')->value($servicetag)->type(''),
 );
+print Dumper($a -> result) ;
+</pre></p>
 
-# Do the grabbing
-my $asset = $a -> result;
+<p>The output can look like this:</p>
 
-print Dumper($asset) ;
+<p><pre>
+$VAR1 = {
+          'Asset' => {
+                     'Entitlements' => {
+                                       'EntitlementData' => [
+                                                            {
+                                                              'EntitlementType' => 'Expired',
+                                                              'EndDate' => '2009-07-29T00:00:00',
+                                                              'Provider' => '',
+                                                              'StartDate' => '2006-07-29T00:00:00',
+                                                              'DaysLeft' => '0'
+                                                            },
+                                                            {
+                                                              'EntitlementType' => 'Expired',
+                                                              'EndDate' => '2009-07-29T00:00:00',
+                                                              'Provider' => '',
+                                                              'StartDate' => '2006-07-29T00:00:00',
+                                                              'DaysLeft' => '0'
+                                                            },
+                                                            {
+                                                              'EntitlementType' => 'Expired',
+                                                              'EndDate' => '2007-07-29T00:00:00',
+                                                              'Provider' => '',
+                                                              'StartDate' => '2006-07-29T00:00:00',
+                                                              'DaysLeft' => '0'
+                                                            }
+                                                          ]
+                                     },
+                     'AssetHeaderData' => {
+                                          'SystemModel' => 'GX620',
+                                          'ServiceTag' => '8DSGD2J',
+                                          'SystemShipDate' => '2006-07-29T19:00:00-05:00',
+                                          'Buid' => '2323',
+                                          'Region' => 'Europe',
+                                          'SystemID' => 'PLX_GX620',
+                                          'SystemType' => 'OptiPlex'
+                                        }
+                   }
+        };
 </pre></p>
 
 <p>I have not been able to find any documentation from Dell about this