… | |
… | |
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 | } |