From b036aaf7bde57fa1feb23a650fd007b54513bc4b Mon Sep 17 00:00:00 2001 From: Alex Stuart Date: Mon, 19 Aug 2024 12:54:40 +0100 Subject: [PATCH] Remove attic directory for real See ukf/ukf-meta#411 for details --- attic/README | 2 - attic/extract_entityids.xsl | 30 ------------- attic/extract_member_dates.xsl | 34 --------------- attic/fix_fragment.pl | 20 --------- attic/members_domains.xsl | 78 ---------------------------------- attic/patch_all_entities | 4 -- attic/patch_entity.pl | 8 ---- attic/sift_entityids.pl | 64 ---------------------------- 8 files changed, 240 deletions(-) delete mode 100644 attic/README delete mode 100644 attic/extract_entityids.xsl delete mode 100644 attic/extract_member_dates.xsl delete mode 100755 attic/fix_fragment.pl delete mode 100644 attic/members_domains.xsl delete mode 100755 attic/patch_all_entities delete mode 100755 attic/patch_entity.pl delete mode 100755 attic/sift_entityids.pl diff --git a/attic/README b/attic/README deleted file mode 100644 index 2df56d15..00000000 --- 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 0723dd87..00000000 --- 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 0a793447..00000000 --- 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 020be78d..00000000 --- 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 6764589b..00000000 --- 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 b9042c2e..00000000 --- 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 a47c4dfa..00000000 --- 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 71c5127f..00000000 --- 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"; -}