From 2eff3c5273a686b911f2b1ac968654b4315b8e25 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 22 Dec 1998 18:02:25 +0000
Subject: do_cmd_rfc():  Make the "RFC ###" a hyperlink to the master RFC 
 repository.

---
 Doc/perl/python.perl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index bffd46f..8b0ee66 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -193,11 +193,12 @@ sub do_cmd_manpage{
 sub do_cmd_rfc{
     local($_) = @_;
     my($rfcnumber,$br_id) = next_argument();
-
+    my $href =
+      "http://info.internet.isi.edu/in-notes/rfc/files/rfc$rfcnumber.txt";
     # Save the reference
     my $nstr = gen_index_id("RFC!RFC $rfcnumber", '');
     $index{$nstr} .= make_half_href("$CURRENT_FILE#$br_id");
-    return "<a name=$br_id>RFC $rfcnumber</a>" .$_;
+    return "<a name=\"$br_id\"\nhref=\"$href\">RFC $rfcnumber</a>" .$_;
 }
 
 sub do_cmd_deprecated{
@@ -269,11 +270,13 @@ $IDXFILE_FIELD_SEP = "\1";
 
 
 sub gen_target_name{
-    return "l2h-" . @_[0];
+    my($stuff) = @_;
+    return "l2h-" . $stuff;
 }
 
 sub gen_target{
-    return '<a name="' . @_[0] . '">';
+    my($name) = @_;
+    return '<a name="' . $name . '">';
 }
 
 sub gen_link{
-- 
cgit v0.12