ossp-web/SHARE/ossp_pkg.wml 1.9 -> 1.10
--- ossp_pkg.wml 2002/11/01 08:59:13 1.9
+++ ossp_pkg.wml 2006/07/30 08:08:17 1.10
@@ -54,17 +54,23 @@
<table width=100% cellspacing=1 cellpadding=0 border=0>
<tr>
<td colspan=3>
- <b>Repository:</b> <a href="<get-var cvs>" class=plain><get-var cvs></a>
+ ChangeLog: <a href="<get-var cvs>ChangeLog" class=plain><get-var cvs>ChangeLog</a>
</td>
</tr>
<tr>
<td colspan=3>
- <b>Distribution:</b> <a href="<get-var url>" class=plain><get-var url></a>
+ Repository: <a href="<get-var cvs>" class=plain><get-var cvs></a>
</td>
</tr>
<tr>
- <td><b>File:</b></td>
+ <td colspan=3>
+ Distribution: <a href="<get-var url>" class=plain><get-var url></a><br><br>
+ </td>
+</tr>
+<tr>
+ <td><b>Distribution Files:</b></td>
<td align=right><b>Size:</b></td>
+ # <td align=right><b>MD5:</b></td>
<td align=right><b>Time:</b></td>
</tr>
<:
@@ -91,10 +97,15 @@
$type = "S" if ($f =~ m|$stable|);
$type = "U" if ($f =~ m|$unstable|);
my $class = "files${ncol}${type}";
+ #my $md5 = `openssl md5 "$f"`;
+ #$md5 =~ s|^MD5\(.+?\)\s*=\s*(\S+)|$1|s;
+ ##$md5 =~ s|^([a-zA-Z0-9]{16})([a-zA-Z0-9]{16})$|$1<br>$2|;
+ #$md5 = "<font face=\"Courier,Monospace\" size=\"-6\">$md5</font>";
$f = "<a href=\"".$url."/".$f."\" class=$class>$f</a>";
my $e = "<tr class=$class>" .
" <td width=100%>".$f." </td>" .
" <td align=right> ".$size."</td>" .
+ # " <td align=right> ".$md5."</td>" .
" <td align=right> ".sprintf("%"."02d-%"."s-%"."04d", $T[3], $moy[$T[4]], 1900+$T[5]) . "</td>".
"</tr>";
$O .= $e . "\n";
@@ -151,7 +162,7 @@
</define-tag>
<define-tag pkg_status>
-<preserve name assign stable unstable stable_date unstable_date done>
+<preserve genesis name assign stable unstable stable_date unstable_date done>
<set-var %attributes>
<table cellspacing=0 cellpadding=0 border=0>
<tr>
@@ -174,14 +185,19 @@
</td>
</tr>
>>
- <ifeq "<get-var done>" "100" "" <group
+ <ifeq "<get-var genesis>" "none" "" <group
<tr>
- <td>Done:</td><td colspan=2><pbar width=100 pdone="<get-var done>" cdone="#b5b5b0" ctext="#f5f5f0" ctodo="#996666"></td>
+ <td>Genesis: </td><td colspan=2><get-var genesis></td>
</tr>
>>
+ # <ifeq "<get-var done>" "100" "" <group
+ <tr>
+ <td>Finished:</td><td colspan=2><pbar width=100 pdone="<get-var done>" cdone="#b5b5b0" ctext="#f5f5f0" ctodo="#996666"></td>
+ </tr>
+ # >>
</table>
# <a href="ftp://ftp.ossp.org/pkg/<get-var type>/<get-var name>/<get-var name>-<get-var stable>.tar.gz"><get-var stable></a>
-<restore name assign stable unstable stable_date unstable_date done>
+<restore genesis name assign stable unstable stable_date unstable_date done>
</define-tag>
<define-tag pkg_author>
@@ -233,3 +249,48 @@
<restore name sect path>
</define-tag>
+##
+## Next-Generation Package Macros
+##
+
+<define-tag pkg:see-also endtag=required>
+<:
+ my $ref = '%body';
+ my $O = '';
+ if ($ref =~ m/^((https?|ftp):\/\/\S+)$/) {
+ $O = "<a href=\"$ref\">$ref</a>";
+ }
+ elsif ($ref =~ m|^(\S+)\(([1-9])\)@(/\S+)$|) {
+ $O = "<a href=\"$(ROOT)/man/man.cgi$3\">$1</a>($2)";
+ }
+ elsif ($ref =~ m|^(\S+)\(([1-9])\)$|) {
+ $O = "<a href=\"http://www.freebsd.org/cgi/man.cgi?" .
+ "query=$1&sektion=$2&manpath=FreeBSD+5.0-current&format=html\">" .
+ "$1</a>($2)";
+ }
+ elsif ($ref =~ m|^OSSP\s+(\S+)$|) {
+ my $name = $1;
+ foreach my $path (qw(.. ../../lib ../../tool)) {
+ if (-d "$path/$name") {
+ $O = "<a href=\"$path/$name/\">$ref</a>";
+ last;
+ }
+ }
+ }
+ if ($O eq '') {
+ $O = $ref;
+ }
+ print $O;
+:>
+</define-tag>
+
+<define-tag pkg:lookup endtag=required>
+<preserve dict>
+<set-var %attributes>
+ <ifeq "<get-var dict>" "jargon"
+ <a href="http://www.tf.hut.fi/cgi-bin/jargon?search=foo">foo</a>
+ FIXME
+ />
+<restore dict>
+</define-tag>
+
|
|
