From: Petter Reinholdtsen Date: Fri, 1 Jun 2012 13:09:03 +0000 (+0000) Subject: New post. X-Git-Url: https://pere.pagekite.me/gitweb/homepage.git/commitdiff_plain/823081c96d77a8af187b0ca9e3b3fcb79117a49a?ds=inline New post. --- diff --git a/blog/data/2012-06-01-dell-support-json.txt b/blog/data/2012-06-01-dell-support-json.txt new file mode 100644 index 0000000000..bab0e198e6 --- /dev/null +++ b/blog/data/2012-06-01-dell-support-json.txt @@ -0,0 +1,51 @@ +Title: SOAP based webservice from Dell to check server support status +Tags: english, nuug +Date: 2012-06-01 15:20 + +

A few years ago I wrote +how +to extract support status 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:

+ +

+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 '', @_ } )
+    -> proxy('http://xserv.dell.com/services/assetservice.asmx')
+    ;
+my $a = $s->GetAssetInformation(
+    SOAP::Data->name('guid')->value($GUID)->type(''),
+    SOAP::Data->name('applicationName')->value($App)->type(''),
+    SOAP::Data->name('serviceTags')->value($servicetag)->type(''),
+);
+
+# Do the grabbing
+my $asset = $a -> result;
+
+print Dumper($asset) ;
+

+ +

I have not been able to find any documentation from Dell about this +service outside the +inline +documentation, and according to +one +comment it can have stability issues, but it is a lot better than +scraping HTML pages. :)

+ +

Wonder if HP and other server vendors have a similar service. If +you know of one, drop me an email. :)