Internet-Draft Ryan Moatsdraft-ietf-urn-ietf-02.txtdraft-ietf-urn-ietf-03.txt AT&T Expires in six monthsJulySeptember 1997 A URN Namespace for IETF Documents Filename:draft-ietf-urn-ietf-02.txtdraft-ietf-urn-ietf-03.txt Status of This Memo This document is an Internet-Draft. Internet-Drafts are working documents of the Internet Engineering Task Force (IETF), its areas, and its working groups. Note that other groups may also distribute working documents as Internet-Drafts. Internet-Drafts are draft documents valid for a maximum of six months and may be updated, replaced, or obsoleted by other documents at any time. It is inappropriate to use Internet- Drafts as reference material or to cite them other than as ``work in progress.'' To learn the current status of any Internet-Draft, please check the ``1id-abstracts.txt'' listing contained in the Internet- Drafts Shadow Directories on ftp.is.co.za (Africa), nic.nordu.net (Europe), munnari.oz.au (Pacific Rim), ds.internic.net (US East Coast), or ftp.isi.edu (US West Coast). Abstract A system for Uniform Resource Names (URNs) must be capable of supporting new naming systems. As an example ofhowproposing a newnamespace may be proposed,namespace, this documentpresents a naming system based onproposes the ''ietf'' namespace. This namespace consists of the RFC family of documents (RFCs, STDs, and FYIs) 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.This namespace can be supported withinBoth the current URN framework and URN syntax support this namespace. 0. Changes from -02 This document has been restructured to use thecurrentlytemplate proposedsyntaxin draft-ietf-urn-nid-req-03.txt. Example Perl scripts forURNs.resolving this namespace have been supplied in an Appendix. 1.Namespace Syntax Consistent withIntroduction This document proposes theURN syntax specification [1], each namespace must specify syntax related information that is specific to"ietf" namespace, which consists of the RFC family of documents (RFCs, STDs, and FYIs) developed by the IETF and published by the RFC editor and the minutes of working groups (WG) and birds of a feather (BOF) meetings thatnamespace. This section covers these specifications. 1.1. Namespace Identifier (NID)occur during IETF conferences. The namespaceidentifier for this namespacespecification is"ietf". 1.2.for a formal namespace. 2. Specification Template NamespaceSpecific String (NSS)ID: "ietf" requested. Declared registrant of the namespace: Ryan Moats jayhawk@att.com Declaration of structure: TheNamespace Specific Stringidentifier has the following ABNF [2] specification: NSS = (family ":" number) / ("mtg-" number "-" wgbofname) family = "rfc" / "std" / "fyi" number = 1*DIGIT wgbofname = 1*LETDIGIT LETDIGIT = DIGIT / %x41..%x5a / %x61..%x7a DIGIT = %x30..%x39The ABNF specification for "family" is based on the current documents in the RFC family. As new document series are added to the IETF family byIf the IESG (orits successor),it successor) adds a new document series, this ABNF specification will need to be updated.Any system intended to resolve names for this namespace should be written with the awareness that a new document series may be introduced at any time. The ABNF specification for "wgbofname" is based on the current and past abbreviations for working groups and BOFs in the IETF.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.1.3. AssignmentIdentifier uniqueness considerations: Because the rfc-editor assigns the RFC, FYI and STD number uniquely these URNs are unique. The meeting minutes portion of the namespace is guaranteed unique because the URN includes the sequence number of the IETF conference Identifier persistence considerations: Persistence of the URNsinof thisNamespace URNs are assigned innamespace is dependent on the persistence of the underlying documents. Process of identifier assignment: Assignment of URNs from this namespace occur in two ways. The first is when a new RFC, FYI or STD is passed by the IESG and published 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","std- index.txt")"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 when a working group or birds of a feather files meeting minutes 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 group or birds of a feather minutes.1.4. Additional Reserved Characters No characters in addition to those specified in [1] are reserved by this namespace. 1.5. Additional Lexical Equivalence Relations Note that the entire URN is case-insensitive, becauseProcess ofthe definitionidentifier resolution: A mirrored copy of theNSS. 1.6. Functional Equivalence Relations Rules for equivalence in this namespace are embedded in the document mappings maintained by the RFC Editor (the index files "rfc- index.txt", "fyi-index.txt", "std-index.txt"). A resourceunderlying documentation isequivalentrequired totheresolve these URNs. Resolution via HTTP is accomplished by a set ofresources implied by the "(Also...)" constructsimple Perl cgi-bin scripts presented inthese mappings. As an example, theAppendix A. Rules for Lexical Equivalence: The entire URN"urn:ietf:rfc:1661"isequivalent to th URN "urn:ietf:std:51" because the "rfc-index.txt" map shows that RFC 1661 is also STD 51. However, thecase-insensitive. Conformance with URN"urn:ietf:std:51" is equivalent to the SET of URNs "urn:ietf:rfc:1661" and "urn:ietf:rfc:1662" since the "std-index.txt" shows that STD 51 is also RFC 1661 and RFC 1662. Therefore, a resolver receiving a N2R request for "urn:ietf:std:51" MUST return either STD 51 or BOTH RFC 1661 and RFC 1662. 2. Comments Readers will notice that this namespace does not include internet drafts. While these documentsSyntax: There arepublished by the internet drafts editor, they were excluded because they do not provide persistent resources to refer to (all internet drafts expire after six months). This is as opposed to the RFC family of documents which never expire (an RFC may be obsoleted or superceded but the actual RFC document itself does not expire).no additional characters reserved. Validation mechanism: None specified. Scope: Global. 3. 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,the definition of the NSS above does not use anynone of the reserved characters from[1], which[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. 4. 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. 4. References Request For Comments (RFC) and Internet Draft documents are available from <URL:ftp://ftp.internic.net> and numerous mirror sites. [1] R. Moats, "URN Syntax," RFC 2141, May 5, 1997. [2] D. Crocker, P. Overell, "Augmented BNF for SyntaxSpecifications:Specifica- tions: ABNF," Internet Draft (work inpro- gress),progress), January 1997. 5. Author's Address Ryan Moats AT&T 15621 Drexel Circle Omaha, NE 68135-2358 USA Phone: +1 402 894-9456 EMail: jayhawk@att.comThis Internet Draft expires January 31, 1998.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) = ( rfc => "/ftp/rfc/rfc-index.txt", fyi => "/ftp/fyi/fyi-index.txt", std => "/ftp/std/std-index.txt" ); my(%number2date) = ( 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 (&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 "HTTP/1.0 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 "HTTP/1.0 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 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) { last if (/^$/); chop; push @bib,$_; } } if ($scheme ne "rfc") { print "HTTP/1.0 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)([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 "HTTP/1.0 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) { $k=$bib[$i]; while ($k =~ /(fyi\s|std\s|rfc)([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 "HTTP/1.0 $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; }; 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" ); my(%number2date) = ( 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 (&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 "HTTP/1.0 302 Moved temporarily\n"; print "Location: $link\n"; return; } my($link)="$wgpath/$date/$sesnam-minutes-$date.txt"; if (-f $link) { print "HTTP/1.0 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 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 "HTTP/1.0 302 Moved temporarily\n"; print "Location: http://$host/$pathbase{$scheme}$value.ps\n\n"; last MIME_SWITCH; } if ($accept =~ /text\/html/ && -f $htmltry) { print "HTTP/1.0 302 Moved temporarily\n"; print "Location: http://$host/$pathbase{$scheme}$value.html\n\n"; last MIME_SWITCH; } if ($accept =~ /\*\/\*|text\/plain/ && -f $txttry) { print "HTTP/1.0 302 Moved temporarily\n"; print "Location: http://$host/$pathbase{$scheme}$value.txt\n\n"; last MIME_SWITCH; } &urn_error("404 Not Found\n"); } } sub urn_error { my($code) = @_; #store failure code here... print "HTTP/1.0 $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; } 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" ); my(%number2date) = ( 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 (&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) { $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 "HTTP/1.0 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 "HTTP/1.0 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 "HTTP/1.0 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 "HTTP/1.0 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; } &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 "HTTP/1.0 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 "HTTP/1.0 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 "HTTP/1.0 $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; } A.4 I2Ns #!/usr/local/bin/perl use strict; # # this is a URN 2 URNs resolver for the ietf namespace # my(%cite) = ( rfc => "/ftp/rfc/rfc-index.txt", fyi => "/ftp/fyi/fyi-index.txt", std => "/ftp/std/std-index.txt" ); my(%number2date) = ( 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 (&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 "HTTP/1.0 200 OK\n"; print "Content-type: text/uri-list\n\n\n"; print "#$urn\n"; return; } if ($accept =~ /\*\/\*|text\/html/) { print "HTTP/1.0 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; } } my($link)="$wgpath/$date/$sesnam-minutes-$date.txt"; if (-f $link) { if ($accept =~ /text\/uri-list/) { print "HTTP/1.0 200 OK\n"; print "Content-type: text/uri-list\n\n\n"; print "#$urn\n"; return; } if ($accept =~ /\*\/\*|text\/html/) { print "HTTP/1.0 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) { last if (/^$/); chop; push @bib,$_; } } $k=join " ",@bib; while ($k =~ /(\S*)\s*(fyi|std|rfc)\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/; push @ref,"urn:ietf:$a:$b"; } } MIME_SWITCH: { if ($accept =~ /text\/uri-list/) { print "HTTP/1.0 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 "HTTP/1.0 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://dsm0.ds.internic.net:8080/uri-res/I2C?$i\">I2C</a>,\n"; print "<a href=\"http://dsm0.ds.internic.net:8080/uri-res/I2L?$i\">I2L</a>,\n"; print "<a href=\"http://dsm0.ds.internic.net:8080/uri-res/I2Ls?$i\">I2Ls</a>,\n"; print "<a href=\"http://dsm0.ds.internic.net:8080/uri-res/I2R?$i\">I2R</a>,\n"; print "<a href=\"http://dsm0.ds.internic.net:8080/uri-res/I2Rs?$i\">I2Rs</a>\n"; } print "</UL>\n</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 "HTTP/1.0 $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 URC 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" ); my(%number2date) = ( 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 (&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 "HTTP/1.0 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 "HTTP/1.0 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"); } 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 "HTTP/1.0 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 "HTTP/1.0 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 "HTTP/1.0 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"); } } sub urn_error { my($code) = @_; #store failure code here... print "HTTP/1.0 $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; } 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" ); my(%number2date) = ( 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 (&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 "HTTP/1.0 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); 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 "HTTP/1.0 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 "HTTP/1.0 $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; }