From b603ea6e8677d61d93f05cb43aa8c1769c1e9d6c Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Thu, 9 Jan 2014 20:56:06 +0000
Subject: Update more copyrights, clean up module doc blocks.

svn path=/trunk/; revision=5624
---
 scripts/Old/uri.pl | 53 -----------------------------------------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 scripts/Old/uri.pl

(limited to 'scripts/Old/uri.pl')

diff --git a/scripts/Old/uri.pl b/scripts/Old/uri.pl
deleted file mode 100644
index cd029fec..00000000
--- a/scripts/Old/uri.pl
+++ /dev/null
@@ -1,53 +0,0 @@
-:
-# $Id$
-eval 'exec perl -w -S $0 ${1+"$@"}'
-    if 0;
-
-use strict;
-
-my $format = "DER";
-my $badsia = 0;
-
-while ($ARGV[0] =~ /^--/) {
-    $_ = shift;
-    if (/^--der/)	{ $format = "DER"; next }
-    if (/^--pem/)	{ $format = "PEM"; next }
-    if (/^--badsia/)	{ $badsia = 1;   next }
-    if (/^--help/)	{
-	print("$0 [ --der | --pem ] [ --badsia ] cert [ cert ...]\n");
-	exit;
-    }
-    die("Unrecognized option: $_");
-}
-
-while (@ARGV) {
-    my $file = shift(@ARGV);
-    my ($aia, $sia, $cdp, $a, $s, $c) = qw(- - -);
-    next unless ($file =~ /\.cer$/);
-    open(F, "-|", ( qw(openssl x509 -noout -inform), $format,
-		    qw(-text -in), $file))
-	or die("Couldn't run openssl x509 on $file: $!\n");
-    while (<F>) {
-	chomp;
-	s{^.+URI:rsync://}{};
-	$a = $. + 1
-	    if (/Authority Information Access:/);
-	$s = $. + 1
-	    if (/Subject Information Access:/);
-	$c = $. + 1
-	    if (/X509v3 CRL Distribution Points:/);
-	$aia = $_
-	    if ($a && $. == $a);
-	$sia = $_
-	    if ($s && $. == $s);
-	$cdp = $_
-	    if ($c && $. == $c);
-    }
-    close(F);
-    if ($badsia) {
-	print("$file\n\t$sia\n")
-	    if ($sia && $sia =~ m=[^/]$=);
-    } else {
-	print("$aia $sia $cdp $file\n");
-    }
-}
-- 
cgit v1.2.3