Skip to content

Commit

Permalink
Use UK federation metadata, not SDSS federation metadata.
Browse files Browse the repository at this point in the history
Allow domain-only locations (no trailing '/' on domain, and nothing else) to handle the Athens gateway entities' ACS locations.
  • Loading branch information
iay committed Jan 12, 2008
1 parent 93bf39c commit 6faf9f9
Showing 1 changed file with 7 additions and 6 deletions.
13 changes: 7 additions & 6 deletions build/probe_nocerts.pl
Original file line number Diff line number Diff line change
@@ -1,21 +1,22 @@
#!/usr/bin/perl -w

$known_bad{'census.data-archive.ac.uk:8080'} = 1;
$known_bad{'census.data-archive.ac.uk:8080'} = 1; # it is really http, not https

open(XML,"java -cp ../xalan-j_2_6_0/bin/xalan.jar org.apache.xalan.xslt.Process -IN ../xml/sdss-metadata-unsigned.xml -XSL extract_nocert_locs.xsl|") || die "could not open input file";
open(XML,"java -cp ../xalan-j_2_6_0/bin/xalan.jar org.apache.xalan.xslt.Process -IN ../xml/ukfederation-metadata.xml -XSL extract_nocert_locs.xsl|") || die "could not open input file";
while (<XML>) {
chop;
if (/^http:/) {
print "skipping http location: $_";
} elsif (/^https:\/\/([^\/:]+(:\d+)?)\//) {
print "skipping http location: $_\n";
} elsif (/^https:\/\/([^\/:]+(:\d+)?)(\/|$)/) {
my $location = $1;
$location .= ":443" unless defined $2;
if ($known_bad{$location}) {
print "skipping known bad location: $_";
print "skipping known bad location: $_\n";
} else {
$locations{$location} = 1;
}
} else {
print "bad location: $_";
print "bad location: $_\n";
}
}
close XML;
Expand Down

0 comments on commit 6faf9f9

Please sign in to comment.