From 25d32b7b7ae119bd8d817f1cc5c963eb3f38f800 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Wed, 3 Feb 2010 17:01:40 +0000
Subject: [PATCH] Charting for trust models.

---
 charting/trust.pl  | 58 ++++++++++++++++++++++++++++++++++++++++++++++
 charting/trust.xsl | 50 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 108 insertions(+)
 create mode 100755 charting/trust.pl
 create mode 100644 charting/trust.xsl

diff --git a/charting/trust.pl b/charting/trust.pl
new file mode 100755
index 00000000..63e5c260
--- /dev/null
+++ b/charting/trust.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+
+#
+# trust.pl
+#
+# Extracts statistics about trust model support from the published metadata.
+#
+use lib "../build";
+use Xalan;
+use Months;
+
+# ingest files
+foreach $month (@months) {
+	my $fn = "cache/$month.xml";
+	open(TXT, xalanCall . " -IN $fn -XSL trust.xsl|") || die "could not open input file";
+	$_ = <TXT>;
+	chop;
+	my ($entities, $idps, $sps, $dk_total, $dk_idp, $dk_sp, $pk_total, $pk_idp, $pk_sp) = split;
+	push @overallRatio, $dk_total/$entities;
+	push @idpRatio, $dk_idp/$idps;
+	push @spRatio, $dk_sp/$sps;
+	push @PKoverallRatio, $pk_total/$entities;
+	push @PKidpRatio, $pk_idp/$idps;
+	push @PKspRatio, $pk_sp/$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";
+}
+
+print "PKidp\n";
+foreach $ratio (@PKidpRatio) {
+	print "$ratio\n";
+}
+
+print "PKsp\n";
+foreach $ratio (@PKspRatio) {
+	print "$ratio\n";
+}
+
+print "PKoverall\n";
+foreach $ratio (@PKoverallRatio) {
+	print "$ratio\n";
+}
+
+1;
diff --git a/charting/trust.xsl b/charting/trust.xsl
new file mode 100644
index 00000000..649b2294
--- /dev/null
+++ b/charting/trust.xsl
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+	
+	trust.xsl
+	
+	XSL stylesheet that takes a SAML 2.0 metadata file and extracts
+	statistics about the different trust models used 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:ds="http://www.w3.org/2000/09/xmldsig#"
+	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:value-of select="count($entities[descendant::ds:X509Data])"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($idps[descendant::ds:X509Data])"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($sps[descendant::ds:X509Data])"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($entities[descendant::ds:KeyName])"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($idps[descendant::ds:KeyName])"/>
+		<xsl:text> </xsl:text>
+		<xsl:value-of select="count($sps[descendant::ds:KeyName])"/>
+		<xsl:text>&#10;</xsl:text>
+	</xsl:template>
+	
+	<xsl:template match="text()">
+		<!-- do nothing -->
+	</xsl:template>
+</xsl:stylesheet>