From a2b1731a5f8382d3424f8cc48ba4617f98eba006 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Mon, 14 Dec 2009 16:42:27 +0000
Subject: [PATCH] Charting for SAML 2 penetration.

---
 charting/saml2.pl  | 49 +++++++++++++++++++++++++++++++++++++++++++++
 charting/saml2.xsl | 50 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 99 insertions(+)
 create mode 100755 charting/saml2.pl
 create mode 100644 charting/saml2.xsl

diff --git a/charting/saml2.pl b/charting/saml2.pl
new file mode 100755
index 00000000..4b590f6a
--- /dev/null
+++ b/charting/saml2.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl -w
+
+#
+# saml2.pl
+#
+# Extracts statistics about SAML 2 adoption from the published metadata.
+#
+use lib "../build";
+use Xalan;
+
+@months = (
+	'2006-12',
+	'2007-01', '2007-02', '2007-03', '2007-04', '2007-05', '2007-06',
+	'2007-07', '2007-08', '2007-09', '2007-10', '2007-11', '2007-12',
+	'2008-01', '2008-02', '2008-03', '2008-04', '2008-05', '2008-06',
+	'2008-07', '2008-08', '2008-09', '2008-10', '2008-11', '2008-12',
+	'2009-01', '2009-02', '2009-03', '2009-04', '2009-05', '2009-06',
+	'2009-07', '2009-08', '2009-09', '2009-10', '2009-11', '2009-12',
+);
+
+# ingest files
+foreach $month (@months) {
+	my $fn = "cache/$month.xml";
+	open(TXT, xalanCall . " -IN $fn -XSL saml2.xsl|") || die "could not open input file";
+	$_ = <TXT>;
+	chop;
+	my ($entities, $idps, $sps, $saml2total, $saml2idp, $saml2sp) = split;
+	push @overallRatio, $saml2total/$entities;
+	push @idpRatio, $saml2idp/$idps;
+	push @spRatio, $saml2sp/$sps;
+	close TXT;
+}
+
+print "idp\n";
+foreach $ratio (@idpRatio) {
+	print "$ratio\n";
+}
+
+print "sp\n";
+foreach $ratio (@spRatio) {
+	print "$ratio\n";
+}
+
+print "overall\n";
+foreach $ratio (@overallRatio) {
+	print "$ratio\n";
+}
+
+1;
\ No newline at end of file
diff --git a/charting/saml2.xsl b/charting/saml2.xsl
new file mode 100644
index 00000000..25c9c54f
--- /dev/null
+++ b/charting/saml2.xsl
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+	
+	saml2.xsl
+	
+	XSL stylesheet that takes a SAML 2.0 metadata file and extracts
+	statistics about the level of SAML 2 protocol support within the
+	included entities.
+	
+	Author: Ian A. Young <ian@iay.org.uk>
+	
+-->
+<xsl:stylesheet version="1.0"
+	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+	xmlns:md="urn:oasis:names:tc:SAML:2.0:metadata"
+	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+	exclude-result-prefixes="md">
+	
+	<!-- Output is plain text -->
+	<xsl:output method="text"/>
+	
+	<xsl:template match="md:EntitiesDescriptor">
+		<xsl:variable name="entities" select="//md:EntityDescriptor"/>
+		<xsl:value-of select="count($entities)"/><xsl:text> </xsl:text>
+		<xsl:variable name="idps" select="$entities[md:IDPSSODescriptor]"/>
+		<xsl:value-of select="count($idps)"/><xsl:text> </xsl:text>
+		<xsl:variable name="sps" select="$entities[md:SPSSODescriptor]"/>
+		<xsl:value-of select="count($sps)"/><xsl:text> </xsl:text>
+
+		<xsl:variable name="entities.saml2"
+			select="$entities[
+			md:IDPSSODescriptor[contains(@protocolSupportEnumeration, 'urn:oasis:names:tc:SAML:2.0:protocol')] |
+			md:SPSSODescriptor[contains(@protocolSupportEnumeration, 'urn:oasis:names:tc:SAML:2.0:protocol')]
+			]"/>
+		<xsl:value-of select="count($entities.saml2)"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($entities[
+			md:IDPSSODescriptor[contains(@protocolSupportEnumeration, 'urn:oasis:names:tc:SAML:2.0:protocol')]
+			])"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($entities[
+			md:SPSSODescriptor[contains(@protocolSupportEnumeration, 'urn:oasis:names:tc:SAML:2.0:protocol')]
+			])"/>
+		<xsl:text>&#10;</xsl:text>
+	</xsl:template>
+	
+	<xsl:template match="text()">
+		<!-- do nothing -->
+	</xsl:template>
+</xsl:stylesheet>