doc: Add RFC documents

1 files changed, 1683 insertions, 0 deletions

diff --git a/doc/rfc/rfc2648.txt b/doc/rfc/rfc2648.txt
new file mode 100644
index 0000000..4869fc1
--- /dev/null
+++ b/doc/rfc/rfc2648.txt
@@ -0,0 +1,1683 @@
+
+
+
+
+
+
+Network Working Group                                           R. Moats
+Request for Comments: 2648                                          AT&T
+Category: Informational                                      August 1999
+
+
+                   A URN Namespace for IETF Documents
+
+Status of this Memo
+
+   This memo provides information for the Internet community.  It does
+   not specify an Internet standard of any kind.  Distribution of this
+   memo is unlimited.
+
+Copyright Notice
+
+   Copyright (C) The Internet Society (1999).  All Rights Reserved.
+
+Abstract
+
+   A system for Uniform Resource Names (URNs) must be capable of
+   supporting new naming systems.  As an example of proposing a new
+   namespace, this document proposes the "ietf" namespace.  This
+   namespace consists of the RFC family of documents (RFCs, STDs, FYIs,
+   and BCPs) developed by the IETF and published by the RFC Editor, the
+   minutes of working groups (WG) and birds of a feather (BOF) meetings
+   that occur during IETF conferences, and the Internet Drafts published
+   by the Internet Drafts Editor.  Both the current URN framework and
+   URN syntax support this namespace.
+
+1. Introduction
+
+   This document proposes the "ietf" namespace, which consists of the
+   RFC family of documents (RFCs, STDs, FYIs, and BCPs) developed by the
+   IETF and published by the RFC editor and the minutes of working
+   groups (WG) and birds of a feather (BOF) meetings that occur during
+   IETF conferences.
+
+   The namespace specification is for a formal namespace.
+
+2. Specification Template
+
+      Namespace ID:
+
+            "ietf" requested.
+
+
+
+
+
+
+
+Moats                        Informational                      [Page 1]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      Registration Information:
+
+            Registration version number: 1
+            Registration date: 1999-04-22
+
+      Declared registrant of the namespace:
+
+            Ryan Moats
+            jayhawk@att.com
+            AT&T
+            15621 Drexel Circle
+            Omaha, NE 68135-2358
+
+      Declaration of structure:
+
+            The identifier has the following ABNF [2] specification:
+
+            NSS = rfc-nss / fyi-nss / std-nss / bcp-nss /
+                  draft-nss / mtg-nss / other-nss
+
+            rfc-nss = "rfc:" 1*DIGIT
+            fyi-nss = "fyi:" 1*DIGIT
+            std-nss = "std:" 1*DIGIT
+            bcp-nss = "bcp:" 1*DIGIT
+            draft-nss = "id:" string
+            mtg-nss = "mtg:" string
+            other-nss = string
+              ; beginning with a prefix other than one of those
+              ; above for future expansion
+
+            string = 1*(DIGIT / ALPHA / "-")
+
+            If the IESG (or it successor) adds a new document series,
+            this ABNF specification will need to be updated.  Further,
+            if a working group or BOF is created that used characters
+            outside the range of this ABNF specification, this
+            specification will need to be updated.  Any system intended
+            to resolve names for this namespace should be written with
+            the awareness that this could occur at any time.
+
+      Relevant ancillary documentation:
+
+            Relevant documentation is in RFC 2648.
+
+
+
+
+
+
+
+
+Moats                        Informational                      [Page 2]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      Identifier uniqueness considerations:
+
+            Because the rfc-editor assigns the RFC number uniquely these
+            URNs are unique.  Since the mapping between RFCs and other
+            rfc-editor document series (STDs, FYIs or BCPs) is not
+            necessarily one-to-one, uniqueness of STDs, FYIs and BCPs
+            are defined based on the document mappings maintained by the
+            RFC Editor (the index files "rfc-index.txt", "fyi-
+            index.txt", "bcp-index.txt", "std-index.txt") are defined to
+            be the definitive statement of the assignment of RFC Family
+            URNs in this namespace.  The meeting minutes portion of the
+            namespace is guaranteed unique because the URN includes the
+            sequence number of the IETF conference.  The document
+            mapping maintained by the Internet Drafts editor ("1id-
+            abstracts.txt") is defined as the definitive statement of
+            the assignment of URNs for the internet draft portion of
+            this namespace.
+
+      Identifier persistence considerations:
+
+            Persistence of the URNs of this namespace is independent of
+            the mutability of the underlying documents.  A URN once
+            assigned will never be reassigned to a different resource;
+            the assignment is persistent and immutable.  Immutability of
+            RFCs, STDs, FYIs and BCPs is at the discretion of the RFC
+            Editor.  They may be composites of one or more RFCs and the
+            set of RFCs that includes them may change with time.  It is
+            important to note that this mutability of some resources is
+            independent of the immutability of URN assignment to a
+            resource.
+
+      Process of identifier assignment:
+
+            Assignment of URNs from this namespace occurs in three ways.
+            The first is through publication of a new RFC, FYI, STD or
+            BCP is by the RFC Editor. This new document will have a new
+            series number and will therefore define a new URN.  The
+            document mappings maintained by the RFC Editor (the index
+            files "rfc-index.txt", "fyi-index.txt", "bcp-index.txt" and
+            "std-index.txt") are defined to be the definitive statement
+            of the assignment of RFC Family URNs in this namespace.
+
+            The second way a URN is assigned is through the filing of
+            meeting minutes by a working group or birds of a feather as
+            part of an IETF conference.  The list of minutes maintained
+            by the IETF for each working group and conference in the
+            subtree pointed at by the URL ftp://ietf.org/ietf/ is
+            considered the definitive assignment of URNs for working
+
+
+
+Moats                        Informational                      [Page 3]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+            group or birds of a feather minutes.
+
+            The third way a URN is assigned is through the publication
+            of a new internet-draft by the Internet Draft Editor.  This
+            draft will have a distinct name (and version number) and
+            therefore defined a new URN.  The document mapping
+            maintained by the Internet Drafts editor ("1id-
+            abstracts.txt") is defined as the definitive statement of
+            the assignment of URNs for this portion of the namespace.
+
+      Process of identifier resolution:
+
+            A mirrored copy of the underlying documentation is required
+            to resolve these URNs.  Resolution via HTTP is done by a set
+            of simple Perl cgi-bin scripts presented in Appendix A.
+
+      Rules for Lexical Equivalence:
+
+            The entire URN is case-insensitive.
+
+      Conformance with URN Syntax:
+
+            There are no additional characters reserved.
+
+      Validation mechanism:
+
+            None additional to resolution specified
+
+      Scope:
+
+            Global.
+
+3. Examples
+
+   The following are examples of URNs that a resolver for this namespace
+   can resolve:
+
+         urn:ietf:rfc:2141
+         urn:ietf:std:50
+         urn:ietf:id:ietf-urn-ietf-06
+         urn:ietf:mtg:41-urn
+
+
+
+
+
+
+
+
+
+
+Moats                        Informational                      [Page 4]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+4. Security Considerations
+
+   Because this namespace defines no additional reserved characters, it
+   does not add any security considerations beyond those inherent from
+   the existence of the reserved characters from [1].  Further, none of
+   the reserved characters from [1] are used in the definition of the
+   NSS. This means that resolvers for this namespace may be considered
+   "secure" in the sense that any escaping of characters in the NSS MUST
+   result in the resolver indicating that the URN has incorrect syntax.
+
+5. Acknowledgments
+
+   Thanks to various members of the URN working group for comments on
+   earlier drafts of this document.  The work described in this document
+   is partially supported by the National Science Foundation,
+   Cooperative Agreement NCR-9218179.
+
+6. References
+
+   Request For Comments (RFC) and Internet Draft documents are available
+   from numerous mirror sites.
+
+   [1]  Moats, R., "URN Syntax", RFC 2141, May 1997.
+
+   [2]  Crocker, D. and P. Overell, "Augmented BNF for Syntax
+        Specifications: ABNF", RFC 2234, November 1997.
+
+7. Author's Address
+
+   Ryan Moats
+   AT&T
+   15621 Drexel Circle
+   Omaha, NE 68135-2358
+   USA
+
+   EMail:  jayhawk@att.com
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Moats                        Informational                      [Page 5]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+Appendix A.  Example Resolution Scripts
+
+   The following scripts are examples that can be used for resolving
+   URNs in this namespace.
+
+A.1 I2C
+
+#!/usr/local/bin/perl
+
+use strict;
+
+#
+# this is a URN 2 URC resolver for the ietf namespace
+#
+
+my(%cite) = (
+  bcp => "/ftp/rfc/bcp-index.txt",
+  fyi => "/ftp/fyi/fyi-index.txt",
+  id => "/ftp/internet-drafts/1id-abstracts.txt",
+  rfc => "/ftp/rfc/rfc-index.txt",
+  std => "/ftp/std/std-index.txt"
+);
+my(%number2date) = (
+  44 => "99mar",
+  43 => "98dec", 42 => "98aug", 41 => "98apr",
+  40 => "97dec", 39 => "97aug", 38 => "97apr",
+  37 => "96dec", 36 => "96jun", 35 => "96mar",
+  34 => "95dec", 33 => "95jul", 32 => "95apr",
+  31 => "94dec", 30 => "94jul", 29 => "94mar",
+  28 => "93nov", 27 => "93jul", 26 => "93mar",
+  25 => "92nov", 24 => "92jul", 23 => "92mar",
+  22 => "91nov", 21 => "91jul", 20 => "91mar",
+  19 => "90dec" );
+
+my($wgpath) = "/ftp/ietf";
+my($urn) = $ENV{'QUERY_STRING'};
+my($host) = $ENV{'SERVER_NAME'}; #get my host name for ftp: URLs
+my($accept) = $ENV{'HTTP_ACCEPT'}; #this is the "Accept:" HTTP header
+
+(&resolveid($1), exit) if ($urn =~ /urn:ietf:id:(\S+)/i);
+(&resolverfc($1, $2), exit) if ($urn =~ /urn:ietf:(\w*):(\d*)/i);
+(&resolvemtg($1, $2), exit) if ($urn =~ /urn:ietf:mtg:(\d*)-(\w*)/i);
+&urn_error("400 Bad Request\n");
+
+sub resolvemtg {
+  my($ietfnum, $sesnam) = @_;
+  &urn_error("404 Not Found\n") if (!defined $number2date{$ietfnum});
+  my($date)=$number2date{$ietfnum};
+
+
+
+Moats                        Informational                      [Page 6]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+  my($link)="$wgpath/$sesnam/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    print "Status:  200 OK\r\n";
+    print "Content-type: text/html\r\n\r\n";
+    print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n";
+    print "<BODY>\n";
+    print "<H1><A HREF=\"$link\">$urn</A>:</H1>\n";
+    print "Minutes of the $sesnam working group from the "
+          . &end($ietfnum) . " IETF";
+    print "</BODY>\n</HTML>\n";
+    return;
+  }
+  my($link)="$wgpath/$date/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    print "Status:  200 OK\r\n";
+    print "Content-type: text/html\r\n\r\n";
+    print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n";
+    print "<BODY>\n";
+    print "<H1><A HREF=\"$link\">$urn</A>:</H1>\n";
+    print "Minutes of the $sesnam working group from the "
+           . &end($ietfnum) . " IETF";
+    print "</BODY>\n</HTML>\n";
+    return;
+  }
+  &urn_error("404 Not Found\n");
+}
+
+sub end {
+  my($inarg)=@_;
+  return $inarg . "st" if ($inarg =~ /1$/);
+  return $inarg . "nd" if ($inarg =~ /2$/);
+  return $inarg . "rd" if ($inarg =~ /3$/);
+  return $inarg . "th";
+}
+
+sub resolverfc {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme, $value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  if (!defined $cite{$scheme}) {
+    &urn_error("404 Not Found\n");
+  }
+
+  $flag = 0;
+  open(INPUT, "$cite{$scheme}");
+  while (<INPUT>) {
+    $flag = 1 if (/^0*$value /);
+
+
+
+Moats                        Informational                      [Page 7]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+    if ($flag == 1) {
+      last if (/^$/);
+      chop;
+      push @bib,$_;
+    }
+  }
+
+  if ($scheme ne "rfc") {
+    print "Status:  200 OK\r\n";
+    print "Content-type: text/html\r\n\r\n";
+    $bib[0] =~ s/^[0-9]*\s*/<B>/;
+    for ($i=0; $i<=$#bib; $i+=1) {
+      last if ($bib[$i] =~ s/\./.<\/B>/);
+    }
+    for ($i=0;$i<=$#bib;$i+=1) {
+      $k=$bib[$i];
+      while ($k =~ /(fyi|std|rfc|bcp)([0-9]+)(.*)/i) {
+        push @ref,"$1$2";
+        $k=$3;
+      }
+      $done="";
+      foreach $j (@ref) {
+        next if ($done =~ $j);
+        $done .= "$j ";
+        $l = $j;
+        $l =~ tr/A-Z/a-z/;
+        $link=&make_link("$l");
+        $bib[$i] =~ s/$j/<A HREF="$link">$j<\/A>/g;
+      }
+    }
+    print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n";
+    print "<BODY>\n";
+    $link=&make_link("$scheme$value");
+    print "<H1><A HREF=\"$link\">$scheme$value</A>:</H1>\n";
+    foreach $i (@bib) {
+      print "$i\n";
+    }
+    print "</BODY>\n</HTML>\n";
+  } else {
+    print "Status:  200 OK\r\n";
+    print "Content-type: text/html\r\n\r\n";
+    $bib[0] =~ s/^[0-9]*\s*//;
+    $j=0;
+    for ($i=0; $i<=$#bib; $i+=1) {
+      $j += ($bib[$i] =~ s/, "/, <B>"/);
+      $j += ($bib[$i] =~ s/",/"<\/B>,/);
+    }
+    for ($i=0;$i<=$#bib;$i+=1) {
+
+
+
+Moats                        Informational                      [Page 8]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      $k=$bib[$i];
+      while ($k =~ /(fyi\s|std\s|rfc|bcp)([0-9]+)(.*)/i) {
+        push @ref,"$1$2";
+        $k=$3;
+      }
+      $done="";
+      foreach $j (@ref) {
+        next if ($done =~ $j);
+        $done .= "$j ";
+        $l = $j;
+        $l =~ s/\s//g;
+        $l =~ tr/A-Z/a-z/;
+        $link=&make_link("$l");
+        $bib[$i] =~ s/$j/<A HREF="$link">$j<\/A>/g;
+      }
+    }
+    print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n";
+    print "<BODY>\n";
+    $link=&make_link("$scheme$value");
+    print "<H1><A HREF=\"$link\">$scheme$value</A>:</H1>\n";
+    foreach $i (@bib) {
+      print "$i\n";
+    }
+    print "</BODY>\n</HTML>\n";
+  }
+}
+
+sub make_link {
+  my($sc);
+  my($inarg)=@_;
+  ($sc=$1) if ($inarg =~ /([a-z]*)/);
+  return "/$sc/$inarg.ps" if (-e "/ftp/$sc/$inarg.ps");
+  return "/$sc/$inarg.html" if (-e "/ftp/$sc/$inarg.html");
+  return "/$sc/$inarg.txt";
+}
+
+sub urn_error {
+  my($code) = @_; #store failure code here...
+
+  print "Status:  $code";
+  print "Content-type: text/html\n\n<HTML>\n";
+  print "<head><title>URN Resolution: I2C $code</title></head>\n";
+  print "<BODY>\n";
+  print "<h1>URN to URC resolution failed for the URN:</h1>\n";
+  print "<hr><h3>$urn</h3>\n";
+  print "</body>\n";
+  print "</html>\n";
+  exit;
+
+
+
+Moats                        Informational                      [Page 9]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+};
+
+sub resolveid {
+  my($flag,@bib,$i,$k,$j,$count,@ref);
+  my($l,$link, $hdr, $done);
+  my($value) = @_;
+  my($scheme) = "id";
+
+  open(INPUT, "$cite{$scheme}");
+  while (<INPUT>) {
+#
+# capture record
+#
+    if ($flag == 1 || /^\s+\"/) {
+      push @bib,$_;
+      ($hdr = -1, $count = 0, $flag = 1) if (/^\s+\"/);
+      $count++ if (/^\s+$/);
+    }
+    if ($count == 1) {
+      $hdr = $#bib if ($hdr == -1);
+    }
+    if ($count == 2) {
+      for ($i=0; $i<=$hdr; $i+=1) {
+            if ($bib[$i] =~ /<(.*)>/) {
+              $l = $1;
+              if ($l eq "draft-$value.txt" || $l eq "draft-$value.ps") {
+                print "Status:  200 OK\r\n";
+                print "Content-type: text/html\r\n\r\n";
+                print "<HTML>\n<TITLE>Citation for $urn</TITLE>\n";
+                print "<BODY>\n";
+                print "<a
+href=\"http://blackhole.vip.att.net/internet-drafts/$l\">$l</a>:\n";
+                print "<pre>\n";
+                foreach $i (@bib) {
+                  print "$i";
+                }
+                print "</pre>\n";
+                print "</BODY>\n</HTML>\n";
+                exit;
+              }
+            }
+      }
+      $flag = 0;
+      @bib = ();
+    }
+  }
+  &urn_error("404 Not Found\n");
+}
+
+
+
+Moats                        Informational                     [Page 10]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+A.2 I2L
+
+#!/usr/local/bin/perl
+
+use strict;
+
+#
+# this is a URN 2 URL resolver for the ietf namespace
+#
+
+my(%pathbase) = (
+  rfc => "rfc/rfc",
+  fyi => "fyi/fyi",
+  std => "std/std",
+  bcp => "bcp/bcp",
+  id => "internet-drafts/draft-"
+);
+
+my(%number2date) = (
+  44 => "99mar",
+  43 => "98dec", 42 => "98aug", 41 => "98apr",
+  40 => "97dec", 39 => "97aug", 38 => "97apr",
+  37 => "96dec", 36 => "96jun", 35 => "96mar",
+  34 => "95dec", 33 => "95jul", 32 => "95apr",
+  31 => "94dec", 30 => "94jul", 29 => "94mar",
+  28 => "93nov", 27 => "93jul", 26 => "93mar",
+  25 => "92nov", 24 => "92jul", 23 => "92mar",
+  22 => "91nov", 21 => "91jul", 20 => "91mar",
+  19 => "90dec" );
+
+my($wgpath) = "/ftp/ietf";
+my($urn) = $ENV{'QUERY_STRING'};
+my($host) = $ENV{'SERVER_NAME'}; #get my host name for ftp: URLs
+my($accept) = $ENV{'HTTP_ACCEPT'}; #this is the "Accept:" HTTP header
+
+(&resolveid($1), exit) if ($urn =~ /urn:ietf:id:(\S+)/i);
+(&resolverfc($1, $2), exit) if ($urn =~ /urn:ietf:(\w*):(\d*)/i);
+(&resolvemtg($1, $2), exit) if ($urn =~ /urn:ietf:mtg:(\d*)-(\w*)/i);
+&urn_error("400 Bad Request\n");
+
+sub resolvemtg {
+  my($ietfnum, $sesnam) = @_;
+  &urn_error("404 Not Found\n") if (!defined $number2date{$ietfnum});
+  my($date)=$number2date{$ietfnum};
+  my($link)="$wgpath/$sesnam/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    print "Status:  302 Moved temporarily\n";
+    print "Location: $link\n";
+
+
+
+Moats                        Informational                     [Page 11]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+    return;
+  }
+  my($link)="$wgpath/$date/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    print "Status:  302 Moved temporarily\n";
+    print "Location: $link\n";
+    return;
+  }
+  &urn_error("404 Not Found\n");
+}
+
+sub end {
+  my($inarg)=@_;
+  return $inarg . "st" if ($inarg =~ /1$/);
+  return $inarg . "nd" if ($inarg =~ /2$/);
+  return $inarg . "rd" if ($inarg =~ /3$/);
+  return $inarg . "th";
+}
+
+sub resolverfc {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme, $value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($txttry)="/ftp/$pathbase{$scheme}$value.txt";
+  my($pstry)="/ftp/$pathbase{$scheme}$value.ps";
+  my($htmltry)="/ftp/$pathbase{$scheme}$value.html";
+MIME_SWITCH: {
+    if ($accept =~ /application\/postscript/ && -f $pstry) {
+      print "Status:  302 Moved temporarily\n";
+      print "Location: http://$host/$pathbase{$scheme}$value.ps\n\n";
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /text\/html/ && -f $htmltry) {
+      print "Status:  302 Moved temporarily0;
+      print "Location: http://$host/$pathbase{$scheme}$value.html\n\n";
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /\*\/\*|text\/plain/ && -f $txttry) {
+      print "Status:  302 Moved temporarily\n";
+      print "Location: http://$host/$pathbase{$scheme}$value.txt\n\n";
+      last MIME_SWITCH;
+    }
+    &urn_error("404 Not Found\n");
+  }
+}
+
+
+
+
+Moats                        Informational                     [Page 12]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+sub urn_error {
+  my($code) = @_; #store failure code here...
+
+  print "Status:  $code";
+  print "Content-type: text/html\n\n<HTML>\n";
+  print "<head><title>URN Resolution: I2L $code</title></head>\n";
+  print "<BODY>\n";
+  print "<h1>URN to URL resolution failed for the URN:</h1>\n";
+  print "<hr><h3>$urn</h3>\n";
+  print "</body>\n";
+  print "</html>\n";
+  exit;
+}
+
+sub resolveid {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme) = "id";
+  my($value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($txttry)="/ftp/$pathbase{$scheme}$value.txt";
+  my($pstry)="/ftp/$pathbase{$scheme}$value.ps";
+  my($htmltry)="/ftp/$pathbase{$scheme}$value.html";
+MIME_SWITCH: {
+    if ($accept =~ /application\/postscript/ && -f $pstry) {
+      print "Status:  302 Moved temporarily\n";
+      print "Location: http://$host/$pathbase{$scheme}$value.ps\n\n";
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /text\/html/ && -f $htmltry) {
+      print "Status:  302 Moved temporarily\n";
+      print "Location: http://$host/$pathbase{$scheme}$value.html\n\n";
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /\*\/\*|text\/plain/ && -f $txttry) {
+      print "Status:  302 Moved temporarily\n";
+      print "Location: http://$host/$pathbase{$scheme}$value.txt\n\n";
+      last MIME_SWITCH;
+    }
+    &urn_error("404 Not Found\n");
+  }
+}
+
+
+
+
+
+
+
+
+Moats                        Informational                     [Page 13]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+A.3 I2Ls
+
+#!/usr/local/bin/perl
+
+use strict;
+
+#
+# this is a URN 2 URLs resolver for the ietf namespace
+#
+
+my(@urls);
+
+my(%pathbase) = (
+  rfc => "rfc/rfc",
+  fyi => "fyi/fyi",
+  std => "std/std",
+  bcp => "bcp/bcp",
+  id => "internet-drafts/draft-"
+);
+
+my(%number2date) = (
+  44 => "99mar",
+  43 => "98dec", 42 => "98aug", 41 => "98apr",
+  40 => "97dec", 39 => "97aug", 38 => "97apr",
+  37 => "96dec", 36 => "96jun", 35 => "96mar",
+  34 => "95dec", 33 => "95jul", 32 => "95apr",
+  31 => "94dec", 30 => "94jul", 29 => "94mar",
+  28 => "93nov", 27 => "93jul", 26 => "93mar",
+  25 => "92nov", 24 => "92jul", 23 => "92mar",
+  22 => "91nov", 21 => "91jul", 20 => "91mar",
+  19 => "90dec" );
+
+my($wgpath) = "/ftp/ietf";
+my($urn) = $ENV{'QUERY_STRING'};
+my($host) = $ENV{'SERVER_NAME'}; #get my host name for ftp: URLs
+my($accept) = $ENV{'HTTP_ACCEPT'}; #this is the "Accept:" HTTP header
+
+(&resolveid($1), exit) if ($urn =~ /urn:ietf:id:(\S+)/i);
+(&resolve1($1, $2), exit) if ($urn =~ /urn:ietf:(\w*):(\d*)/i);
+(&resolve2($1, $2), exit) if ($urn =~ /urn:ietf:mtg:(\d*)-(\w*)/i);
+&urn_error("400 Bad Request\n");
+
+sub resolve2 {
+  my($ietfnum, $sesnam) = @_;
+  &urn_error("404 Not Found\n") if (!defined $number2date{$ietfnum});
+  my($date)=$number2date{$ietfnum};
+  my($link)="$wgpath/$sesnam/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+
+
+
+Moats                        Informational                     [Page 14]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+    $link=~s/^\/ftp\///;
+    my($ftplink)="ftp://$host/$link";
+    my($httplink)="http://$host/$link";
+    my($glink)="gopher://$host:70/0/$link";
+
+    if ($accept =~ /text\/uri-list/) { #look for text/uri-list,
+        otherwise text/html
+      print "Status: 200 OK\n";
+      print "Content-type: text/uri-list\n\n\n";
+      print "#$urn\n";
+      print "$ftplink\n";
+      print "$httplink\n";
+      print "$glink\n";
+    }
+    if ($accept =~ /\*\/\*|text\/html/) {
+      print "Status: 200 OK\n";
+      print "Content-type: text/html\n\n<HTML>\n";
+      print "<head><title>URN Resolution: I2Ls</title></head>\n";
+      print "<BODY>\n";
+      print "<h1>URN $urn resolves to the following URLs:</h1>\n";
+      print "<hr><ul>\n";
+      print "<a href=\"$ftplink\">$ftplink</a>\n";
+      print "<a href=\"$httplink\">$httplink</a>\n";
+      print "<a href=\"$glink\">$glink</a>\n";
+      print "</UL>\n</body>\n</HTML>\n";
+    }
+    return;
+  }
+  my($link)="$wgpath/$date/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    $link=~s/^\/ftp\///;
+    my($ftplink)="ftp://$host/$link";
+    my($httplink)="http://$host/$link";
+    my($glink)="gopher://$host:70/0/$link";
+    if ($accept =~ /text\/uri-list/) { #look for text/uri-list,
+        otherwise text/html
+      print "Status: 200 OK\n";
+      print "Content-type: text/uri-list\n\n\n";
+      print "#$urn\n";
+      print "$ftplink\n";
+      print "$httplink\n";
+      print "$glink\n";
+    }
+    if ($accept =~ /\*\/\*|text\/html/) {
+      print "Status: 200 OK\n";
+      print "Content-type: text/html\n\n<HTML>\n";
+      print "<head><title>URN Resolution: I2Ls</title></head>\n";
+      print "<BODY>\n";
+
+
+
+Moats                        Informational                     [Page 15]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      print "<h1>URN $urn resolves to the following URLs:</h1>\n";
+      print "<hr><ul>\n";
+      print "<a href=\"$ftplink\">$ftplink</a>\n";
+      print "<a href=\"$httplink\">$httplink</a>\n";
+      print "<a href=\"$glink\">$glink</a>\n";
+      print "</UL>\n</body>\n</HTML>\n";
+    }
+
+    return;
+  }
+  &urn_error("404 Not Found\n");
+}
+
+sub resolve1 {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme, $value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($try)="/ftp/$pathbase{$scheme}$value.txt";
+  if (-f $try) {
+    push(@urls, "http://$host/$pathbase{$scheme}$value.txt");
+    push(@urls, "ftp://$host/$pathbase{$scheme}$value.txt");
+    push(@urls, "gopher://$host:70/0/$pathbase{$scheme}$value.txt");
+  }
+  $try="/ftp/$pathbase{$scheme}$value.ps";
+  if (-f $try) {
+    push(@urls, "http://$host/$pathbase{$scheme}$value.ps");
+    push(@urls, "ftp://$host/$pathbase{$scheme}$value.ps");
+    push(@urls, "gopher://$host:70/0/$pathbase{$scheme}$value.ps");
+  }
+  $try="/ftp/$pathbase{$scheme}$value.html";
+  if (-f $try) {
+    push(@urls, "http://$host/$pathbase{$scheme}$value.html");
+    push(@urls, "ftp://$host/$pathbase{$scheme}$value.html");
+  }
+
+  &urn_error("404 Not Found\n") if ($#urls == -1);
+
+MIME_SWITCH: {
+    if ($accept =~ /text\/uri-list/) { #look for text/uri-list,
+        otherwise text/html
+      print "Status: 200 OK\n";
+      print "Content-type: text/uri-list\n\n\n";
+      print "#$urn\n";
+      foreach $i (@urls) {
+        print "$i\n";
+      }
+
+
+
+Moats                        Informational                     [Page 16]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /\*\/\*|text\/html/) {
+      print "Status: 200 OK\n";
+      print "Content-type: text/html\n\n<HTML>\n";
+      print "<head><title>URN Resolution: I2Ls</title></head>\n";
+      print "<BODY>\n";
+      print "<h1>URN $urn resolves to the following URLs:</h1>\n";
+      print "<hr><ul>\n";
+      foreach $i (@urls) {
+        print "<LI><A HREF=\"$i\">$i</A>\n";
+      }
+      print "</UL>\n</body>\n</HTML>\n";
+      last MIME_SWITCH;
+    }
+  }
+}
+
+sub urn_error {
+  my($code) = @_; #store failure code here...
+
+  print "Status: $code";
+  print "Content-type: text/html\n\n<HTML>\n";
+  print "<head><title>URN Resolution: I2L $code</title></head>\n";
+  print "<BODY>\n";
+  print "<h1>URN to URL resolution failed for the URN:</h1>\n";
+  print "<hr><h3>$urn</h3>\n";
+  print "</body>\n";
+  print "</html>\n";
+  exit;
+}
+
+sub resolveid {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($value) = @_;
+  my($scheme) = "id";
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($try)="/ftp/$pathbase{$scheme}$value.txt";
+  if (-f $try) {
+    push(@urls, "http://$host/$pathbase{$scheme}$value.txt");
+    push(@urls, "ftp://$host/$pathbase{$scheme}$value.txt");
+    push(@urls, "gopher://$host:70/0/$pathbase{$scheme}$value.txt");
+  }
+  $try="/ftp/$pathbase{$scheme}$value.ps";
+  if (-f $try) {
+    push(@urls, "http://$host/$pathbase{$scheme}$value.ps");
+
+
+
+Moats                        Informational                     [Page 17]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+    push(@urls, "ftp://$host/$pathbase{$scheme}$value.ps");
+    push(@urls, "gopher://$host:70/0/$pathbase{$scheme}$value.ps");
+  }
+  $try="/ftp/$pathbase{$scheme}$value.html";
+  if (-f $try) {
+    push(@urls, "http://$host/$pathbase{$scheme}$value.html");
+    push(@urls, "ftp://$host/$pathbase{$scheme}$value.html");
+  }
+
+  &urn_error("404 Not Found\n") if ($#urls == -1);
+
+MIME_SWITCH: {
+    if ($accept =~ /text\/uri-list/) { #look for text/uri-list,
+        otherwise text/html
+      print "Status: 200 OK\n";
+      print "Content-type: text/uri-list\n\n\n";
+      print "#$urn\n";
+      foreach $i (@urls) {
+        print "$i\n";
+      }
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /\*\/\*|text\/html/) {
+      print "Status: 200 OK\n";
+      print "Content-type: text/html\n\n<HTML>\n";
+      print "<head><title>URN Resolution: I2Ls</title></head>\n";
+      print "<BODY>\n";
+      print "<h1>URN $urn resolves to the following URLs:</h1>\n";
+      print "<hr><ul>\n";
+      foreach $i (@urls) {
+        print "<LI><A HREF=\"$i\">$i</A>\n";
+      }
+      print "</UL>\n</body>\n</HTML>\n";
+      last MIME_SWITCH;
+    }
+  }
+}
+
+A.4 I2Ns
+
+#!/usr/local/bin/perl
+
+use strict;
+
+#
+# this is a URN 2 URNs resolver for the ietf namespace
+#
+
+
+
+
+Moats                        Informational                     [Page 18]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+my(%cite) = (
+  rfc => "/ftp/rfc/rfc-index.txt",
+  fyi => "/ftp/fyi/fyi-index.txt",
+  std => "/ftp/std/std-index.txt",
+  bcp => "/ftp/rfc/bcp-index.txt"
+);
+
+my(%number2date) = (
+  44 => "99mar",
+  43 => "98dec", 42 => "98aug", 41 => "98apr",
+  40 => "97dec", 39 => "97aug", 38 => "97apr",
+  37 => "96dec", 36 => "96jun", 35 => "96mar",
+  34 => "95dec", 33 => "95jul", 32 => "95apr",
+  31 => "94dec", 30 => "94jul", 29 => "94mar",
+  28 => "93nov", 27 => "93jul", 26 => "93mar",
+  25 => "92nov", 24 => "92jul", 23 => "92mar",
+  22 => "91nov", 21 => "91jul", 20 => "91mar",
+  19 => "90dec" );
+
+my($wgpath) = "/ftp/ietf";
+my($urn) = $ENV{'QUERY_STRING'};
+my($host) = $ENV{'SERVER_NAME'}; #get my host name for ftp: URLs
+my($port) = $ENV={'SERVER_PORT'};
+my($accept) = $ENV{'HTTP_ACCEPT'}; #this is the "Accept:" HTTP header
+
+(&resolve1($1, $2), exit) if ($urn =~ /urn:ietf:(\w*):(\d*)/i);
+(&resolve2($1, $2), exit) if ($urn =~ /urn:ietf:mtg:(\d*)-(\w*)/i);
+&urn_error("400 Bad Request\n");
+
+sub resolve2 {
+  my($ietfnum, $sesnam) = @_;
+  &urn_error("404 Not Found\n") if (!defined $number2date{$ietfnum});
+  my($date)=$number2date{$ietfnum};
+  my($link)="$wgpath/$sesnam/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    if ($accept =~ /text\/uri-list/) {
+        print "Status: 200 OK\n";
+        print "Content-type: text/uri-list\n\n\n";
+        print "#$urn\n";
+        return;
+    }
+    if ($accept =~ /\*\/\*|text]\/html/) {
+      print "Status: 200 OK\n";
+      print "Content-type: text/html\n\n<HTML>\n";
+      print "<head><title>URN Resolution: I2Ns</title></head>\n";
+      print "<BODY>\n";
+      print "<h1>URN $urn resolves to the following URNs:</h1>\n";
+      print "<hr><ul>\n";
+
+
+
+Moats                        Informational                     [Page 19]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      print "</UL>\n</body>\n</HTML>\n";
+      return;
+    }
+  }
+  my($link)="$wgpath/$date/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+    if ($accept =~ /text\/uri-list/) {
+        print "Status: 200 OK\n";
+        print "Content-type: text/uri-list\n\n\n";
+        print "#$urn\n";
+        return;
+    }
+    if ($accept =~ /\*\/\*|text\/html/) {
+        print "Status: 200 OK\n";
+        print "Content-type: text/html\n\n<HTML>\n";
+        print "<head><title>URN Resolution: I2Ns</title></head>\n";
+        print "<BODY>\n";
+        print "<h1>URN $urn resolves to the following URNs:</h1>\n";
+        print "<hr><ul>\n";
+        print "</UL>\n</body>\n</HTML>\n";
+        return;
+    }
+  }
+  &urn_error("404 Not Found\n");
+}
+
+sub end {
+  my($inarg)=@_;
+  return $inarg . "st" if ($inarg =~ /1$/);
+  return $inarg . "nd" if ($inarg =~ /2$/);
+  return $inarg . "rd" if ($inarg =~ /3$/);
+  return $inarg . "th";
+}
+
+sub resolve1 {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme, $value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  if (!defined $cite{$scheme}) {
+    &urn_error("404 Not Found\n");
+  }
+
+  $flag = 0;
+  open(INPUT, "$cite{$scheme}");
+  while (<INPUT>) {
+    $flag = 1 if (/^0*$value /);
+    if ($flag == 1) {
+
+
+
+Moats                        Informational                     [Page 20]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      last if (/^$/);
+      chop;
+      push @bib,$_;
+    }
+  }
+
+  $k=join " ",@bib;
+  while ($k =~ /(\S*)\s*(fyi|std|rfc|bcp)\s*([0-9]+)(.*)/i) {
+    $k=$4;
+    $a=$2; $b=$3;
+    if (($a ne $scheme || $b ne $value) && ($1 !~ /obso/i)){
+      $a =~ tr/A-Z/a-z/;
+      $b =~ s/^0*//;
+      push @ref,"urn:ietf:$a:$b";
+    }
+  }
+
+MIME_SWITCH: {
+    if ($accept =~ /text\/uri-list/) {
+        print "Status: 200 OK\n";
+        print "Content-type: text/uri-list\n\n\n";
+        print "#$urn\n";
+        foreach $i (@ref) {
+            print "$i\n";
+        }
+        last MIME_SWITCH;
+    }
+  if ($accept =~ /\*\/\*|text\/html/) {
+    print "Status: 200 OK\n";
+    print "Content-type: text/html\n\n<HTML>\n";
+    print "<head><title>URN Resolution: I2Ns</title></head>\n";
+    print "<BODY>\n";
+    print "<h1>URN $urn resolves to the following URNs:</h1>\n";
+    print "<hr><ul>\n";
+        foreach $i (@ref) {
+            print "<li>$i: Click to resolve using\n";
+            print "<a
+href=\"http://$host:$port/uri-res/I2C?$i\">I2C</a>,\n";
+            print "<a
+href=\"http://$host:$port/uri-res/I2L?$i\">I2L</a>,\n";
+            print "<a
+href=\"http://$host:$port/uri-res/I2Ls?$i\">I2Ls</a>,\n";
+            print "<a
+href=\"http://$host:$port/uri-res/I2R?$i\">I2R</a>,\n";
+            print "<a
+href=\"http://$host:$port/uri-res/I2Rs?$i\">I2Rs</a>\n";
+        }
+    print "</UL>\n</body>\n</HTML>\n";
+
+
+
+Moats                        Informational                     [Page 21]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+  }
+}
+}
+
+sub make_link {
+  my($sc);
+  my($inarg)=@_;
+  ($sc=$1) if ($inarg =~ /([a-z]*)/);
+  return "/$sc/$inarg.ps" if (-e "/ftp/$sc/$inarg.ps");
+  return "/$sc/$inarg.html" if (-e "/ftp/$sc/$inarg.html");
+  return "/$sc/$inarg.txt";
+}
+
+sub urn_error {
+  my($code) = @_; #store failure code here...
+
+  print "Status: $code";
+  print "Content-type: text/html\n\n<HTML>\n";
+  print "<head><title>URN Resolution: I2Ns $code</title></head>\n";
+  print "<BODY>\n";
+  print "<h1>URN to URN resolution failed for the URN:</h1>\n";
+  print "<hr><h3>$urn</h3>\n";
+  print "</body>\n";
+  print "</html>\n";
+  exit;
+};
+
+A.5 I2R
+
+#!/usr/local/bin/perl
+
+use strict;
+
+#
+# this is a URN 2 resource resolver for the ietf namespace
+#
+
+my(%pathbase) = (
+  rfc => "rfc/rfc",
+  fyi => "fyi/fyi",
+  std => "std/std",
+  bcp => "bcp/bcp",
+  id => "internet-drafts/draft-"
+);
+
+my(%number2date) = (
+  44 => "99mar",
+  43 => "98dec", 42 => "98aug", 41 => "98apr",
+
+
+
+Moats                        Informational                     [Page 22]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+  40 => "97dec", 39 => "97aug", 38 => "97apr",
+  37 => "96dec", 36 => "96jun", 35 => "96mar",
+  34 => "95dec", 33 => "95jul", 32 => "95apr",
+  31 => "94dec", 30 => "94jul", 29 => "94mar",
+  28 => "93nov", 27 => "93jul", 26 => "93mar",
+  25 => "92nov", 24 => "92jul", 23 => "92mar",
+  22 => "91nov", 21 => "91jul", 20 => "91mar",
+  19 => "90dec" );
+
+my($wgpath) = "/ftp/ietf";
+my($urn) = $ENV{'QUERY_STRING'};
+my($host) = $ENV{'SERVER_NAME'}; #get my host name for ftp: URLs
+my($accept) = $ENV{'HTTP_ACCEPT'}; #this is the "Accept:" HTTP header
+
+print "$urn\n";
+(&resolveid($1), exit) if ($urn =~ /urn:ietf:id:(\S+)/i);
+(&resolve1($1, $2), exit) if ($urn =~ /urn:ietf:(\w*):(\d*)/i);
+(&resolve2($1, $2), exit) if ($urn =~ /urn:ietf:mtg:(\d*)-(\w*)/i);
+&urn_error("400 Bad Request\n");
+
+sub resolve2 {
+  my($ietfnum, $sesnam) = @_;
+  &urn_error("404 Not Found\n") if (!defined $number2date{$ietfnum});
+  my($date)=$number2date{$ietfnum};
+  my($link)="$wgpath/$sesnam/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+      print "Status:  200 OK\n";
+      print "Content-type: text/plain\n\n";
+      open(FILE, "$link");
+      while (<FILE>) {
+          print $_;
+      }
+      close FILE;
+    return;
+  }
+  my($link)="$wgpath/$date/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+      print "Status:  200 OK\n";
+      print "Content-type: text/plain\n\n";
+      open(FILE, "$link");
+      while (<FILE>) {
+          print $_;
+      }
+      close FILE;
+    return;
+  }
+  &urn_error("404 Not Found\n");
+}
+
+
+
+Moats                        Informational                     [Page 23]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+sub end {
+  my($inarg)=@_;
+  return $inarg . "st" if ($inarg =~ /1$/);
+  return $inarg . "nd" if ($inarg =~ /2$/);
+  return $inarg . "rd" if ($inarg =~ /3$/);
+  return $inarg . "th";
+}
+
+sub resolve1 {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme, $value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($txttry)="/ftp/$pathbase{$scheme}$value.txt";
+  my($pstry)="/ftp/$pathbase{$scheme}$value.ps";
+  my($htmltry)="/ftp/$pathbase{$scheme}$value.html";
+MIME_SWITCH: {
+    if ($accept =~ /application\/postscript/ && -f $pstry) {
+      print "Status:  200 OK\n";
+      print "Content-type: application/postscript\n\n";
+      open(FILE, "$pstry");
+      while (<FILE>) {
+          print $_;
+      }
+      close FILE;
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /text\/html/ && -f $htmltry) {
+        print "Status:  200 OK\n";
+        print "Content-type: text/html\n\n";
+        open(FILE, "$htmltry");
+        while (<FILE>) {
+            print $_;
+        }
+        close FILE;
+        last MIME_SWITCH;
+    }
+    if ($accept =~ /\*\/\*|text\/plain/ && -f $txttry) {
+        print "Status:  200 OK\n";
+        print "Content-type: text/plain\n\n";
+        open(FILE, "$txttry");
+        while (<FILE>) {
+            print $_;
+        }
+        close FILE;
+        last MIME_SWITCH;
+    }
+
+
+
+Moats                        Informational                     [Page 24]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+    &urn_error("404 Not Found\n");
+  }
+}
+
+sub resolveid {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link);
+  my($scheme) = "id";
+  my($value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($txttry)="/ftp/$pathbase{$scheme}$value.txt";
+  my($pstry)="/ftp/$pathbase{$scheme}$value.ps";
+  my($htmltry)="/ftp/$pathbase{$scheme}$value.html";
+MIME_SWITCH: {
+    if ($accept =~ /application\/postscript/ && -f $pstry) {
+      print "Status:  200 OK\n";
+      print "Content-type: application/postscript\n\n";
+      open(FILE, "$pstry");
+      while (<FILE>) {
+          print $_;
+      }
+      close FILE;
+      last MIME_SWITCH;
+    }
+    if ($accept =~ /text\/html/ && -f $htmltry) {
+        print "Status:  200 OK\n";
+        print "Content-type: text/html\n\n";
+        open(FILE, "$htmltry");
+        while (<FILE>) {
+            print $_;
+        }
+        close FILE;
+        last MIME_SWITCH;
+    }
+    if ($accept =~ /\*\/\*|text\/plain/ && -f $txttry) {
+        print "Status:  200 OK\n";
+        print "Content-type: text/plain\n\n";
+        open(FILE, "$txttry");
+        while (<FILE>) {
+            print $_;
+        }
+        close FILE;
+        last MIME_SWITCH;
+    }
+    &urn_error("404 Not Found\n");
+  }
+}
+
+
+
+Moats                        Informational                     [Page 25]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+sub urn_error {
+  my($code) = @_; #store failure code here...
+
+  print "Status:  $code";
+  print "Content-type: text/html\n\n<HTML>\n";
+  print "<head><title>URN Resolution: I2R $code</title></head>\n";
+  print "<BODY>\n";
+  print "<h1>URN to URL resolution failed for the URN:</h1>\n";
+  print "<hr><h3>$urn</h3>\n";
+  print "</body>\n";
+  print "</html>\n";
+  exit;
+}
+
+A.6 I2Rs
+
+#!/usr/local/bin/perl
+
+use strict;
+
+#
+# this is a URN 2 resources resolver for the ietf namespace
+#
+
+my(@urls);
+
+my(%pathbase) = (
+  rfc => "rfc/rfc",
+  fyi => "fyi/fyi",
+  std => "std/std",
+  bcp => "bcp/bcp",
+  id => "internet-drafts/draft-"
+);
+
+my(%number2date) = (
+  44 => "99mar",
+  43 => "98dec", 42 => "98aug", 41 => "98apr",
+  40 => "97dec", 39 => "97aug", 38 => "97apr",
+  37 => "96dec", 36 => "96jun", 35 => "96mar",
+  34 => "95dec", 33 => "95jul", 32 => "95apr",
+  31 => "94dec", 30 => "94jul", 29 => "94mar",
+  28 => "93nov", 27 => "93jul", 26 => "93mar",
+  25 => "92nov", 24 => "92jul", 23 => "92mar",
+  22 => "91nov", 21 => "91jul", 20 => "91mar",
+  19 => "90dec" );
+
+my($wgpath) = "/ftp/ietf";
+my($urn) = $ENV{'QUERY_STRING'};
+
+
+
+Moats                        Informational                     [Page 26]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+my($host) = $ENV{'SERVER_NAME'}; #get my host name for ftp: URLs
+my($accept) = $ENV{'HTTP_ACCEPT'}; #this is the "Accept:" HTTP header
+
+(&resolveid($1), exit) if ($urn =~ /urn:ietf:id:(\s*)/i);
+(&resolve1($1, $2), exit) if ($urn =~ /urn:ietf:(\w*):(\d*)/i);
+(&resolve2($1, $2), exit) if ($urn =~ /urn:ietf:mtg:(\d*)-(\w*)/i);
+&urn_error("400 Bad Request\n");
+
+sub resolve2 {
+  my($ietfnum, $sesnam) = @_;
+  my(@vers,$i);
+  &urn_error("404 Not Found\n") if (!defined $number2date{$ietfnum});
+  my($date)=$number2date{$ietfnum};
+  my($link)="$wgpath/$sesnam/$sesnam-minutes-$date.txt";
+
+  if (-f $link) {
+      push(@vers,$link);
+  }
+  $link="$wgpath/$date/$sesnam-minutes-$date.txt";
+  if (-f $link) {
+      push(@vers,$link);
+  }
+  &urn_error("404 Not Found\n") if ($#vers==-1);
+
+  print "Status: 200 OK\n";
+  print "Content-type: multipart/alternative; boundary=endpart\n\n";
+  foreach $i (@vers) {
+      print "--endpart\n";
+      if ($i =~ /html$/) {
+          print "Content-Type: text/html\n\n";
+      }
+      if ($i =~ /txt$/) {
+          print "Content-Type: text/plain\n\n";
+      }
+      if ($i =~ /ps$/) {
+          print "Content-Type: application/postscript\n\n";
+      }
+      open(FILE, "$i");
+      while (<FILE>) {
+          print "$_";
+      }
+      close FILE;
+  }
+  print "--endpart\n";
+}
+
+sub resolve1 {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+
+
+
+Moats                        Informational                     [Page 27]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+  my($l,$link,@vers);
+  my($scheme, $value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($try)="/ftp/$pathbase{$scheme}$value.txt";
+  if (-f $try) {
+      push(@vers, $try);
+  }
+  $try="/ftp/$pathbase{$scheme}$value.ps";
+  if (-f $try) {
+      push(@vers, $try);
+  }
+  $try="/ftp/$pathbase{$scheme}$value.html";
+  if (-f $try) {
+      push(@vers, $try);
+
+  }
+  print "Status: 200 OK\n";
+  print "Content-type: multipart/alternative; boundary=endpart\n\n";
+  foreach $i (@vers) {
+      print "--endpart\n";
+      if ($i =~ /html$/) {
+          print "Content-Type: text/html\n\n";
+      }
+      if ($i =~ /txt$/) {
+          print "Content-Type: text/plain\n\n";
+      }
+      if ($i =~ /ps$/) {
+          print "Content-Type: application/postscript\n\n";
+      }
+      open(FILE, "$i");
+      while (<FILE>) {
+          print "$_";
+      }
+      close FILE;
+  }
+  print "--endpart\n";
+}
+
+sub resolveid {
+  my($flag,@bib,$i,$k,$j,$done,@ref);
+  my($l,$link,@vers);
+  my($scheme) = "id";
+  my($value) = @_;
+  $scheme =~ tr/A-Z/a-z/;
+  &urn_error("404 Not Found\n")if (!defined $pathbase{$scheme});
+  my($try)="/ftp/$pathbase{$scheme}$value.txt";
+  if (-f $try) {
+
+
+
+Moats                        Informational                     [Page 28]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+      push(@vers, $try);
+  }
+  $try="/ftp/$pathbase{$scheme}$value.ps";
+  if (-f $try) {
+      push(@vers, $try);
+  }
+  $try="/ftp/$pathbase{$scheme}$value.html";
+  if (-f $try) {
+      push(@vers, $try);
+  }
+  print "Status: 200 OK\n";
+  print "Content-type: multipart/alternative; boundary=endpart\n\n";
+  foreach $i (@vers) {
+      print "--endpart\n";
+      if ($i =~ /html$/) {
+          print "Content-Type: text/html\n\n";
+
+      }
+      if ($i =~ /txt$/) {
+          print "Content-Type: text/plain\n\n";
+      }
+      if ($i =~ /ps$/) {
+          print "Content-Type: application/postscript\n\n";
+      }
+      open(FILE, "$i");
+      while (<FILE>) {
+          print "$_";
+      }
+      close FILE;
+  }
+  print "--endpart\n";
+}
+sub urn_error {
+  my($code) = @_; #store failure code here...
+
+  print "Status: $code";
+  print "Content-type: text/html\n\n<HTML>\n";
+  print "<head><title>URN Resolution: I2Rs $code</title></head>\n";
+  print "<BODY>\n";
+  print "<h1>URN to URL resolution failed for the URN:</h1>\n";
+  print "<hr><h3>$urn</h3>\n";
+  print "</body>\n";
+  print "</html>\n";
+  exit;
+}
+
+
+
+
+
+
+Moats                        Informational                     [Page 29]
+
+RFC 2648           A URN Namespace for IETF Documents        August 1999
+
+
+Full Copyright Statement
+
+   Copyright (C) The Internet Society (1999).  All Rights Reserved.
+
+   This document and translations of it may be copied and furnished to
+   others, and derivative works that comment on or otherwise explain it
+   or assist in its implementation may be prepared, copied, published
+   and distributed, in whole or in part, without restriction of any
+   kind, provided that the above copyright notice and this paragraph are
+   included on all such copies and derivative works.  However, this
+   document itself may not be modified in any way, such as by removing
+   the copyright notice or references to the Internet Society or other
+   Internet organizations, except as needed for the purpose of
+   developing Internet standards in which case the procedures for
+   copyrights defined in the Internet Standards process must be
+   followed, or as required to translate it into languages other than
+   English.
+
+   The limited permissions granted above are perpetual and will not be
+   revoked by the Internet Society or its successors or assigns.
+
+   This document and the information contained herein is provided on an
+   "AS IS" basis and THE INTERNET SOCIETY AND THE INTERNET ENGINEERING
+   TASK FORCE DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING
+   BUT NOT LIMITED TO ANY WARRANTY THAT THE USE OF THE INFORMATION
+   HEREIN WILL NOT INFRINGE ANY RIGHTS OR ANY IMPLIED WARRANTIES OF
+   MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
+
+Acknowledgement
+
+   Funding for the RFC Editor function is currently provided by the
+   Internet Society.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Moats                        Informational                     [Page 30]
+