ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/schmorpforge/genpage
(Generate patch)

Comparing cvsroot/schmorpforge/genpage (file contents):
Revision 1.47 by root, Mon Jul 20 04:46:42 2009 UTC vs.
Revision 1.48 by root, Mon Jul 20 05:54:48 2009 UTC

… …
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'>
104EOF 161EOF
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>&#160;git-clone http://git.ta-sa.org/$name.git</tt>
109 <tt>&#160;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 &gt;= 1.12.11):<br />
111<li>(EXPERIMENTAL) contributor CVS access (command requires CVS versions (&gt;= 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>
114EOF 170EOF
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>&#160;cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt><p /> 178 <tt>&#160;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>
138find . -name CVS | xargs -I% find % -name Root | 195find . -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>
145EOF 203EOF
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
193open STDOUT, ">software.schmorp.de/index.html"; 251open STDOUT, ">software.schmorp.de/index.html";
194 252
195hdr "Package Index", "bg-bluete"; 253hdr "Project List", "bg-bluete";
196 254
197print <<EOF; 255print <<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
200lists all projects available here.</p> 259lists 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 found <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'>
211EOF 271EOF
212 272
213print $index{$_} for sort { (lc $a) cmp (lc $b) } keys %index; 273print $index{$_} for sort { (lc $a) cmp (lc $b) } keys %index;
214 274
215print "</table>"; 275print "</table>";

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines