| … | |
… | |
| 137 | if /list\((.*)\)/; |
137 | if /list\((.*)\)/; |
| 138 | } |
138 | } |
| 139 | |
139 | |
| 140 | print "</ul>"; |
140 | print "</ul>"; |
| 141 | |
141 | |
| 142 | if (my @files = grep $_, map /(cvs-co|cvs-pod)\((\S+)\)/ && [$1, $2], @args) { |
142 | if (my @files = grep $_, map /(cvs-co|cvs-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { |
| 143 | print "<h2>Additional Documents</h2><ul>"; |
143 | print "<h2>Additional Documents</h2><ul>"; |
| 144 | |
144 | |
| 145 | for (@files) { |
145 | for (@files) { |
| 146 | my ($type, $arg) = @$_; |
146 | my ($type, $arg) = @$_; |
| 147 | |
147 | |
| … | |
… | |
| 149 | print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>"; |
149 | print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>"; |
| 150 | } elsif ($type eq "cvs-pod") { |
150 | } elsif ($type eq "cvs-pod") { |
| 151 | my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); |
151 | my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); |
| 152 | $desc ||= "<b>Main Manual Page</b>"; |
152 | $desc ||= "<b>Main Manual Page</b>"; |
| 153 | print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>"; |
153 | print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>"; |
|
|
154 | } elsif ($type eq 'git-co') { |
|
|
155 | my ($project, $file) = $arg =~ /^([^.]+).git\/(.*)$/ ? ($1, $2) : $arg; |
|
|
156 | print "<li><a href='http://git.ta-sa.org/res/gitco.cgi/$project/$file'>$file</a></li>"; |
| 154 | } |
157 | } |
| 155 | } |
158 | } |
| 156 | |
159 | |
| 157 | print "</ul>"; |
160 | print "</ul>"; |
| 158 | } |
161 | } |
