diff --git a/attic/README b/attic/README deleted file mode 100644 index 2df56d1..0000000 --- a/attic/README +++ /dev/null @@ -1,2 +0,0 @@ -This folder holds items for which we have no current use, but which we feel -might be useful again (perhaps as templates) in the future. diff --git a/attic/extract_entityids.xsl b/attic/extract_entityids.xsl deleted file mode 100644 index 0723dd8..0000000 --- a/attic/extract_entityids.xsl +++ /dev/null @@ -1,30 +0,0 @@ - - - - - - - - - - - - - - - - diff --git a/attic/extract_member_dates.xsl b/attic/extract_member_dates.xsl deleted file mode 100644 index 0a79344..0000000 --- a/attic/extract_member_dates.xsl +++ /dev/null @@ -1,34 +0,0 @@ - - - - - - - - - - ," - - " - - - - - - - - diff --git a/attic/fix_fragment.pl b/attic/fix_fragment.pl deleted file mode 100755 index 020be78..0000000 --- a/attic/fix_fragment.pl +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/perl -w - -# -# Apply a given one-off change to the input fragment file. -# - -while (<>) { - - s {(\s)(?=shibboleth-metadata-1\.0\.xsd)} {$1..\/xml\/}; - s {(\s)(?=sstc-saml-schema-assertion-2\.0\.xsd)} {$1..\/xml\/}; - s {(\s)(?=sstc-saml-schema-metadata-2\.0\.xsd)} {$1..\/xml\/}; - s {(\s)(?=uk-fed-label\.xsd)} {$1..\/xml\/}; - s {(\s)(?=xenc-schema\.xsd)} {$1..\/xml\/}; - s {(\s)(?=xml\.xsd)} {$1..\/xml\/}; - s {(\s)(?=xmldsig-core-schema\.xsd)} {$1..\/xml\/}; - - print $_; -} - -# end diff --git a/attic/members_domains.xsl b/attic/members_domains.xsl deleted file mode 100644 index 6764589..0000000 --- a/attic/members_domains.xsl +++ /dev/null @@ -1,78 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/attic/patch_all_entities b/attic/patch_all_entities deleted file mode 100755 index b9042c2..0000000 --- a/attic/patch_all_entities +++ /dev/null @@ -1,4 +0,0 @@ -#!/bin/bash - -find ../entities -name uk\*.xml \ - -exec perl -i patch_entity.pl \{\} \; diff --git a/attic/patch_entity.pl b/attic/patch_entity.pl deleted file mode 100755 index a47c4df..0000000 --- a/attic/patch_entity.pl +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/perl - -while (<>) { - if (/AthensPUIDAuthority/) { - next; - } - print $_; -} diff --git a/attic/sift_entityids.pl b/attic/sift_entityids.pl deleted file mode 100755 index 71c5127..0000000 --- a/attic/sift_entityids.pl +++ /dev/null @@ -1,64 +0,0 @@ -#!/usr/bin/perl - -@registries = ( - # gTLDs - '.com', - '.edu', - '.net', - '.org', - '.info', - - # ccTLDs which allow top-level registration - '.es', - '.eu', - '.nl', - '.tv', - - # ccTLD: cn - '.edu.cn', - - # ccTLD: jp - '.ac.jp', - - # ccTLD: my - '.edu.my', - - # CC TLD: uk - '.ac.uk', - '.bl.uk', - '.co.uk', - '.gov.uk', - '.org.uk', - '.parliament.uk', -); - -LINE: while (<>) { - chop; - - # - # Extract a domain from the entityID - # - if (/^https?:\/\/([^\:\/]+)/) { - $domain = $1; - } elsif (/^urn:mace:ac.uk:sdss.ac.uk:provider:(service|identity):([^:]+)/) { - $domain = $2; - } elsif (/^urn:mace:eduserv.org.uk:athens:federation:(uk|beta)$/) { - $domain = 'eduserv.org.uk'; - } elsif (/^urn:mace:eduserv.org.uk:athens:provider:(.*)/) { - $domain = $1; - } else { - print "*** can't extract domain from $_\n"; - next; - } - - # - # Now figure out the registrar involved with this domain. - # - foreach $registry (@registries) { - if (substr($domain, -length($registry)) eq $registry) { - # print "$domain matched $registry\n"; - next LINE; - } - } - print "*** no registry match for $domain\n"; -}