… | |
… | |
29 | a:link { color: #00f; } |
29 | a:link { color: #00f; } |
30 | a:visited { color: #008; } |
30 | a:visited { color: #008; } |
31 | a:hover { color: #800; } |
31 | a:hover { color: #800; } |
32 | a:active { color: #f00; } |
32 | a:active { color: #f00; } |
33 | |
33 | |
|
|
34 | .back { |
|
|
35 | margin: 0; |
|
|
36 | font-size: 8pt; |
|
|
37 | } |
|
|
38 | |
|
|
39 | h1 { |
|
|
40 | color: #034; |
|
|
41 | } |
|
|
42 | .short-desc { |
|
|
43 | font-weight: bold; |
|
|
44 | padding: 3px 3px 3px 8px; |
|
|
45 | margin: 1em 1px 1px 13px; |
|
|
46 | } |
|
|
47 | h2 { |
|
|
48 | color: #069; |
|
|
49 | font-weight: bold; |
|
|
50 | border: solid red; |
|
|
51 | border-width: 0 0 0 12px; |
|
|
52 | padding: 3px 3px 3px 8px; |
|
|
53 | margin: 1em 1px 1px 1px; |
|
|
54 | } |
|
|
55 | p { |
|
|
56 | padding: 3px 3px 3px 8px; |
|
|
57 | margin: 1em 1px 1px 13px; |
|
|
58 | } |
|
|
59 | h3 { color: #034; } |
|
|
60 | h4 { color: #034; } |
|
|
61 | |
34 | img { display: block; } |
62 | img { display: block; } |
35 | |
63 | |
|
|
64 | .resources { |
|
|
65 | margin-left: 13px; |
|
|
66 | margin-right: 13px; |
|
|
67 | padding: 3px 3px 3px 8px; |
|
|
68 | border-spacing: 1px 2px; |
|
|
69 | } |
|
|
70 | |
|
|
71 | .rr { |
|
|
72 | background: #eef; |
|
|
73 | padding: 1px 1em 1px 1ex; |
|
|
74 | } |
|
|
75 | |
|
|
76 | tt.icon { |
|
|
77 | display: block; |
|
|
78 | font-family: "Andale Mono", "Lettergothic", monospace; |
|
|
79 | border: 1px solid #88f; |
|
|
80 | background: #ccf; |
|
|
81 | padding: 1px 1em 1px 1em; |
|
|
82 | margin-right: 0; |
|
|
83 | text-align: center; |
|
|
84 | width: 4en; |
|
|
85 | } |
|
|
86 | |
36 | tt { font-family: "Andale Mono", "Lettergothic", monospace; } |
87 | tt { font-family: "Andale Mono", "Lettergothic", monospace; } |
37 | |
88 | |
|
|
89 | .overview { |
|
|
90 | margin-top: 1em; |
|
|
91 | margin-left: 13px; |
|
|
92 | margin-right: 13px; |
|
|
93 | padding: 3px 3px 3px 8px; |
|
|
94 | border-spacing: 1px 2px; |
|
|
95 | } |
|
|
96 | |
38 | th { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; } |
97 | .overview th { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; } |
39 | td { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; } |
98 | .overview td { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; } |
40 | |
99 | |
41 | hr.footer { display: none; } |
100 | hr.footer { display: none; } |
42 | .footer { font-size: 8pt; border-top: 1px solid red; } |
101 | .footer { font-size: 8pt; border-top: 1px solid red; } |
43 | </style> |
102 | </style> |
44 | </head> |
103 | </head> |
… | |
… | |
86 | $index{$name} = "<tr><th id='$name'><a href='pkg/$name.html'>$name</a></th><td>$short</td></tr>"; |
145 | $index{$name} = "<tr><th id='$name'><a href='pkg/$name.html'>$name</a></th><td>$short</td></tr>"; |
87 | |
146 | |
88 | open STDOUT, ">", "software.schmorp.de/pkg/$name.html" |
147 | open STDOUT, ">", "software.schmorp.de/pkg/$name.html" |
89 | or die "software.schmorp.de/pkg/$name.html: $!"; |
148 | or die "software.schmorp.de/pkg/$name.html: $!"; |
90 | |
149 | |
91 | if (grep /cpan/, @args) { |
150 | my $bg = (grep /cpan/, @args) ? "bg-perl" : "bg-ede"; |
92 | hdr $name, "bg-perl"; |
|
|
93 | } else { |
|
|
94 | hdr $name, "bg-ede"; |
151 | hdr $name, $bg; |
95 | } |
|
|
96 | |
152 | |
97 | print <<EOF; |
153 | print <<EOF; |
|
|
154 | <h2>$name</h1> |
98 | <p class='short-desc'>$short</p> |
155 | <p class='short-desc'>$short</p> |
99 | |
156 | |
100 | <h2>Blurb</h2> |
157 | <h2>Blurb</h2> |
101 | <p class='blurb'>$desc</p> |
158 | <p class='blurb'>$desc</p> |
102 | <h2>Resources</h2> |
159 | <h2>Resources</h2> |
103 | <ul> |
160 | <table class='resources'> |
104 | EOF |
161 | EOF |
105 | if (grep /git/, @args) { |
162 | if (grep /git/, @args) { |
106 | print <<EOF; |
163 | print <<EOF; |
107 | <li><a href='http://git.ta-sa.org/?p=$name.git;a=summary'>Browsable GIT repository '$name'</a></li> |
164 | <tr><td><tt class="icon">GIT</tt></td><td class='rr'><a href='http://git.ta-sa.org/?p=$name.git;a=summary'>Browsable GIT repository '$name'</a></li></tr> |
108 | <li>Read-only GIT checkout:<br /> |
165 | <tr><td><tt class="icon">GIT</tt></td><td class='rr'>Read-only GIT checkout: <tt> git-clone http://git.ta-sa.org/$name.git</tt> |
109 | <tt> git-clone http://git.ta-sa.org/$name.git</tt> |
166 | </td></tr> |
110 | </li> |
167 | <tr><td><tt class="icon">CVS</tt></td><td class='rr'>Contributor CVS access (command requires CVS version >= 1.12.11):<br /> |
111 | <li>(EXPERIMENTAL) contributor CVS access (command requires CVS versions (>= 1.12.11)):<br /> |
|
|
112 | <tt>cvs -d ":ext;CVS_SERVER=git-cvsserver:USER\@ruth.plan9.de/gitroot/$name.git" co -d $name master</tt> |
168 | <tt>cvs -d ":ext;CVS_SERVER=git-cvsserver:USER\@ruth.plan9.de/gitroot/$name.git" co -d $name master</tt> |
113 | </li> |
169 | </td></tr> |
114 | EOF |
170 | EOF |
115 | } else { |
171 | } else { |
116 | my $modules = $name; |
172 | my $modules = $name; |
117 | $modules = "$1" if grep /modules\((.*)\)/, @args; |
173 | $modules = "$1" if grep /modules\((.*)\)/, @args; |
118 | |
174 | |
119 | print <<EOF; |
175 | print <<EOF; |
120 | <li><a href='http://cvs.schmorp.de/$name'>Browsable CVS module '$name'</a></li> |
176 | <tr><td><tt class="icon">CVS</tt></td><td class='rr'><a href='http://cvs.schmorp.de/$name'>Browsable CVS module '$name'</a></td></tr> |
121 | <li>Anonymous CVS checkout:<br /> |
177 | <tr><td><tt class="icon">CVS</tt></td><td class='rr'>Anonymous CVS: |
122 | <tt> cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt><p /> |
178 | <tt> cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt> |
123 | |
179 | |
124 | <small> |
180 | <small> |
125 | |
181 | |
126 | <!-- |
182 | <!-- |
127 | <p>The warning |
183 | <p>The warning |
128 | <b>cvs checkout: warning: cannot write to history file /schmorpforge/CVSROOT/history: Permission denied</b> |
184 | <b>cvs checkout: warning: cannot write to history file /schmorpforge/CVSROOT/history: Permission denied</b> |
129 | is expected and harmless, just ignore it. It simply means you have no write access to the repository. |
185 | is expected and harmless, just ignore it. It simply means you have no write access to the repository. |
130 | </p> |
186 | </p> |
131 | --> |
187 | --> |
132 | |
188 | |
|
|
189 | <!-- |
133 | <p>The CVS server moved again on 2008-02-21, you can use the following |
190 | <p>The CVS server moved again on 2008-02-21, you can use the following |
134 | (untested) snippet to update your CVS checkout. Run it in the top level |
191 | (untested) snippet to update your CVS checkout. Run it in the top level |
135 | checked out directory:</ br> |
192 | checked out directory:</ br> |
136 | |
193 | |
137 | <pre> |
194 | <pre> |
138 | find . -name CVS | xargs -I% find % -name Root | |
195 | find . -name CVS | xargs -I% find % -name Root | |
139 | xargs perl -i -pe 's%:pserver:anonymous\\\@cvs.schmorp.de:636/schmorpforge%:pserver:anonymous\\\@cvs.schmorp.de:/schmorpforge%'</pre> |
196 | xargs perl -i -pe 's%:pserver:anonymous\\\@cvs.schmorp.de:636/schmorpforge%:pserver:anonymous\\\@cvs.schmorp.de:/schmorpforge%'</pre> |
140 | </p> |
197 | </p> |
|
|
198 | --> |
141 | |
199 | |
142 | </small> |
200 | </small> |
143 | |
201 | |
144 | </li> |
202 | </td></tr> |
145 | EOF |
203 | EOF |
146 | } |
204 | } |
147 | |
205 | |
148 | print "<li><a href='http://dist.schmorp.de/$name/'>File Releases</a></li>\n" |
206 | print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://dist.schmorp.de/$name/'>File Releases</a></td></tr>\n" |
149 | if grep /dist/, @args; |
207 | if grep /dist/, @args; |
150 | print "<li><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></li>\n" |
208 | print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></td></tr>\n" |
151 | if grep /cpan$/, @args; |
209 | if grep /cpan$/, @args; |
152 | print "<li><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></li>\n" |
210 | print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></td></tr>\n" |
153 | if grep /cpan-elmex/, @args; |
211 | if grep /cpan-elmex/, @args; |
154 | for (@args) { |
212 | for (@args) { |
155 | if (/list\((.*)\)/) { |
213 | if (/list\((.*)\)/) { |
156 | print "<li><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></li>\n"; |
214 | print "<tr><td><tt class='icon'>LIST</tt></td><td class='rr'><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></td></tr>\n"; |
157 | } |
215 | } |
158 | } |
216 | } |
159 | |
217 | |
160 | print "</ul>"; |
218 | print "</table>"; |
161 | |
219 | |
162 | if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { |
220 | if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) { |
163 | print "<h2>Additional Documents</h2><ul>"; |
221 | print "<h2>Additional Documents</h2><table class='resources'>"; |
164 | |
222 | |
165 | for (@files) { |
223 | for (@files) { |
166 | my ($type, $arg) = @$_; |
224 | my ($type, $arg) = @$_; |
167 | |
225 | |
168 | if ($type eq "cvs-co") { |
226 | if ($type eq "cvs-co") { |
169 | print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>"; |
227 | print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></td></tr>"; |
170 | |
228 | |
171 | } elsif ($type eq "cvs-pod") { |
229 | } elsif ($type eq "cvs-pod") { |
172 | my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); |
230 | my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); |
173 | $desc ||= "<b>Main Manual Page</b>"; |
231 | $desc ||= "<b>Main Manual Page</b>"; |
174 | print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>"; |
232 | print "<tr><td><tt class='icon'>POD</tt></td><td class='rr'><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></td></tr>"; |
175 | |
233 | |
176 | } elsif ($type eq 'git-co') { |
234 | } elsif ($type eq 'git-co') { |
177 | print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>"; |
235 | print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></td>"; |
178 | |
236 | |
179 | } elsif ($type eq "git-pod") { |
237 | } elsif ($type eq "git-pod") { |
180 | my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); |
238 | my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg); |
181 | $desc ||= "<b>Main Manual Page</b>"; |
239 | $desc ||= "<b>Main Manual Page</b>"; |
182 | print "<li><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></li>"; |
240 | print "<tr><td><tt class='icon'>POD</tt></td><td class='rr'><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></td></tr>"; |
183 | |
241 | |
184 | } |
242 | } |
185 | } |
243 | } |
186 | |
244 | |
187 | print "</ul>"; |
245 | print "</table>"; |
188 | } |
246 | } |
189 | |
247 | |
190 | ftr; |
248 | ftr; |
191 | } |
249 | } |
192 | |
250 | |
193 | open STDOUT, ">software.schmorp.de/index.html"; |
251 | open STDOUT, ">software.schmorp.de/index.html"; |
194 | |
252 | |
195 | hdr "Package Index", "bg-bluete"; |
253 | hdr "Project List", "bg-bluete"; |
196 | |
254 | |
197 | print <<EOF; |
255 | print <<EOF; |
198 | |
256 | |
|
|
257 | <h2>About</h2> |
199 | <p>This page briefly documents the Schmorpforge Ta-Sa Software Repository and |
258 | <p class='blurb'>This page briefly documents the Schmorpforge Ta-Sa Software Repository and |
200 | lists all projects available here.</p> |
259 | lists all projects available here.</p> |
201 | |
260 | |
202 | <ul> |
261 | <table class='resources'> |
203 | <li>All CVS Repositories can be found <a href="http://cvs.schmorp.de/">here</a>.</li> |
262 | <tr><td><tt class='icon'>CVS</tt></td><td class='rr'>All CVS modules can be browsed <a href="http://cvs.schmorp.de/">here</a>.</td></tr> |
204 | <li>All GIT Repositories can be found <a href="http://git.ta-sa.org/">here</a>.</li> |
263 | <tr><td><tt class='icon'>GIT</tt></td><td class='rr'>All GIT repositories can be found <a href="http://git.ta-sa.org/">here</a>.</td></tr> |
205 | <li>File Releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</li> |
264 | <tr><td><tt class='icon'>FILE</tt></td><td class='rr'>All file releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</td></tr> |
206 | <li>All Mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</li> |
265 | <tr><td><tt class='icon'>LIST</tt></td><td class='rr'>All mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</td></tr> |
207 | <!--<li>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a>.</li>--> |
266 | <!--<tr><td><tt class='icon'>WIKI</tt></td><td class='rr'>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a>.</td></tr>--> |
208 | </ul> |
|
|
209 | <p>Projects listed on this page:</p> |
|
|
210 | <table> |
267 | </table> |
|
|
268 | |
|
|
269 | <h2>Project List</h2> |
|
|
270 | <table class='overview'> |
211 | EOF |
271 | EOF |
212 | |
272 | |
213 | print $index{$_} for sort { (lc $a) cmp (lc $b) } keys %index; |
273 | print $index{$_} for sort { (lc $a) cmp (lc $b) } keys %index; |
214 | |
274 | |
215 | print "</table>"; |
275 | print "</table>"; |