The R Project SVN R

Rev

Rev 11619 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11619 Rev 31391
Line 10... Line 10...
10 
    if(/^(\s*)<a href=\"(.*)\">(.*)<\/a>\s$/i){
 10 
    if(/^(\s*)<a href=\"(.*)\">(.*)<\/a>\s$/i){
11 
	if(-f $2){
 11 
	if(-f $2){
12 
	    print "$1<a href=\"$2\">$3</a>\n";
 12 
	    print "$1<a href=\"$2\">$3</a>\n";
13 
	}
 13 
	}
14 
	else{
 14 
	else{
- 
 
 15 
	    $link = $2;
- 
 
 16 
	    $text = $3;
- 
 
 17 
	    if ($link =~ /R-[A-Za-z]+\.html$/) {
- 
 
 18 
		$link =~ s+../manual+http://cran.r-project.org/doc/manuals+;
- 
 
 19 
		print "$1<a href=\"$link\">$text</a> (on CRAN)\n";
- 
 
 20 
	    } else {
15 
	    print "$1<!a href=\"$2\">$3 (not installed)\n";
 21 
		print "$1<!a href=\"$link\">$text (not installed)\n";
- 
 
 22 
	    }
16 
	}
 23 
	}
17 
    }
 24 
    }
18 
    else{
 25 
    else{
19 
	print $_;
 26 
	print $_;
20 
    }
 27 
    }