Kaydet (Commit) 2eff3c52 authored tarafından Fred Drake's avatar Fred Drake

do_cmd_rfc(): Make the "RFC ###" a hyperlink to the master RFC

	repository.
üst 782c973c
...@@ -193,11 +193,12 @@ sub do_cmd_manpage{ ...@@ -193,11 +193,12 @@ sub do_cmd_manpage{
sub do_cmd_rfc{ sub do_cmd_rfc{
local($_) = @_; local($_) = @_;
my($rfcnumber,$br_id) = next_argument(); my($rfcnumber,$br_id) = next_argument();
my $href =
"http://info.internet.isi.edu/in-notes/rfc/files/rfc$rfcnumber.txt";
# Save the reference # Save the reference
my $nstr = gen_index_id("RFC!RFC $rfcnumber", ''); my $nstr = gen_index_id("RFC!RFC $rfcnumber", '');
$index{$nstr} .= make_half_href("$CURRENT_FILE#$br_id"); $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{ sub do_cmd_deprecated{
...@@ -269,11 +270,13 @@ $IDXFILE_FIELD_SEP = "\1"; ...@@ -269,11 +270,13 @@ $IDXFILE_FIELD_SEP = "\1";
sub gen_target_name{ sub gen_target_name{
return "l2h-" . @_[0]; my($stuff) = @_;
return "l2h-" . $stuff;
} }
sub gen_target{ sub gen_target{
return '<a name="' . @_[0] . '">'; my($name) = @_;
return '<a name="' . $name . '">';
} }
sub gen_link{ sub gen_link{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment