|
Check-in Number:
|
1869 | |
| Date: |
2002-Feb-14 18:02:49 (local)
2002-Feb-14 17:02:49 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
use new pkg_status |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-web/SHARE/ossp.wml 1.3 -> 1.4
--- ossp.wml 2002/02/14 16:10:07 1.3
+++ ossp.wml 2002/02/14 17:02:49 1.4
@@ -20,6 +20,5 @@
#use "ossp_navbar.wml"
#use "ossp_info.wml"
#use "ossp_newsflash.wml"
-#use "ossp_filelist.wml"
-#use "ossp_pbar.wml"
+#use "ossp_pkg.wml"
|
|
ossp-web/SHARE/ossp_filelist.wml 1.2 -> 1.3
ossp-web/SHARE/ossp_pbar.wml 1.1 -> 1.2
ossp-web/SHARE/ossp_pkg.wml -> 1.1
*** /dev/null Mon Apr 29 04:30:37 2024
--- - Mon Apr 29 04:31:22 2024
***************
*** 0 ****
--- 1,166 ----
+ ##
+ ## ossp_pkg.wml -- Package Macros
+ ## Copyright (c) 2000-2001 Ralf S. Engelschall <rse@engelschall.com>
+ ##
+
+ # define a process bar
+ <define-tag pbar>
+ <preserve width pdone cdone ctext ctodo/>
+ <set-var %attributes/>
+ <set-var ptodo=<substract 100 <get-var pdone/>/>/>
+ <set-var wdone=<divide <multiply <get-var width/> <get-var pdone/>/> 100/>/>
+ <set-var wtodo=<divide <multiply <get-var width/> <get-var ptodo/>/> 100/>/>
+ <table cellspacing=0 cellpadding=0 border=0>
+ <tr>
+ <ifeq <get-var wdone/> 0 "" <group
+ <td width="<get-var wdone/>" bgcolor="<get-var cdone/>" align=right>
+ <imgdot width=<get-var wdone>><br>
+ <font color="<get-var ctext/>" face="arial,helvetica"><b>
+ <get-var pdone/>%
+ </b></font>
+ </td>/>/>
+ <ifeq <get-var wtodo/> 0 "" <group
+ <td width="<get-var wtodo/>" bgcolor="<get-var ctodo/>">
+ <imgdot width=<get-var wtodo>>
+ </td>/>/>
+ </tr>
+ </table>
+ <restore width pdone cdone ctext ctodo/>
+ </define-tag>
+
+
+ # define a <filelist> tag which can be used to create a file listing which
+ # is optically more compact than the stuff Apache's mod_autoindex creates.
+ # Especially the current version is marked red, too.
+ <define-tag pkg_files>
+ <preserve url>
+ <preserve directory>
+ <preserve files>
+ <set-var %attributes>
+ <table width=100% cellspacing=1 cellpadding=0 border=0>
+ <tr>
+ <td>File</td>
+ <td align=right>Bytes</td><td align=right>Timestamp</td>
+ </tr>
+ <:
+ my $url = "<get-var url>";
+ $url =~ s|/+$||sg;
+ my $directory = "<get-var directory>";
+ my $files = "<get-var files>";
+ my $highlight = "<get-var highlight>";
+ my $odir = chdir($directory) || die;
+ my @F = reverse sort { (stat($a))[9] <=> (stat($b))[9]; } (glob($files));
+ chdir($odir);
+ my $O = '';
+ @COL = (
+ '#e5e5e0',
+ 'NONE',
+ );
+ $ncol = 1;
+ foreach my $f (@F) {
+ my @S = stat($f);
+ $f = "$f/" if (-d $f);
+ my @T = localtime($S[9]);
+ my @moy = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
+ 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
+ $f = "<a href=\"".$url."/".$f."\">$f</a>";
+ $ncol = ($ncol + 1) % 2;
+ $col = $COL[$ncol];
+ my $e = ($col eq "NONE" ? "<tr>" : "<tr bgcolor=\"$col\">").
+ "<td width=100%>".$f." </td>" .
+ "<td align=right> ".$S[7]."</td>" .
+ "<td align=right> ".sprintf("%"."02d-%"."s-%"."04d", $T[3], $moy[$T[4]], 1900+$T[5]) . "</td>".
+ "</tr>";
+ $O .= $e . "\n";
+ }
+ print $O;
+ :>
+ </table>
+ <restore url>
+ <restore directory>
+ <restore files>
+ </define-tag>
+
+ # define a package summary list
+ <define-tag pkg_list endtag=required>
+ <table width=100% cellspacing=1 cellpadding=0 border=0>
+ %body
+ <tr>
+ <td colspan=3 height=1 bgcolor="#b5b5b0"><imgdot height=1></td>
+ </tr>
+ <tr>
+ <td colspan=3>
+ <b>*</b> derived from external sources
+ </td>
+ </tr>
+ </table>
+ </define-tag>
+ <define-tag pkg_item>
+ <preserve name>
+ <preserve longname>
+ <preserve desc>
+ <preserve done>
+ <preserve tag>
+ <preserve stable>
+ <preserve unstable>
+ <preserve derived>
+ <set-var %attributes>
+ <tr>
+ <td colspan=3 height=1 bgcolor="#b5b5b0"><imgdot height=1></td>
+ </tr>
+ <tr>
+ <td width=100%>
+ <a href="<get-var name>/"><b><get-var longname></b></a>
+ <ifeq "<get-var derived>" "yes" " <b>*</b>">
+ </td>
+ <td>stable:
+ <ifeq "<get-var stable>" "none" "none"
+ <a href="ftp://ftp.ossp.org/pkg/tool/<get-var name>/<get-var name>-<get-var stable>.tar.gz"><get-var stable></a>
+ >
+ </td>
+ <td>unstable:
+ <ifeq "<get-var unstable>" "none" "none"
+ <a href="ftp://ftp.ossp.org/pkg/tool/<get-var name>/<get-var name>-<get-var unstable>.tar.gz"><get-var unstable></a>
+ >
+ </td>
+ </tr>
+ <tr>
+ <td><get-var desc></td>
+ <td colspan=2>
+ <pbar width=200 pdone="<get-var done>" cdone="#b5b5b0" ctext="#f5f5f0" ctodo="#996666">
+ </td>
+ </tr>
+ <restore name>
+ <restore longname>
+ <restore desc>
+ <restore done>
+ <restore stable>
+ <restore unstable>
+ <restore derived>
+ </define-tag>
+
+ <define-tag pkg_status>
+ <preserve stable>
+ <preserve unstable>
+ <preserve stable_date>
+ <preserve unstable_date>
+ <preserve done>
+ <set-var %attributes>
+ <table cellspacing=0 cellpadding=0 border=0>
+ <tr>
+ <td>Stable Version:</td><td><get-var stable></td><td> (<get-var stable_date>)</td>
+ </tr>
+ <tr>
+ <td>Unstable Version: </td><td><get-var unstable></td><td> (<get-var unstable_date>)</td>
+ </tr>
+ <tr>
+ <td>Done:</td><td colspan=2><pbar width=100 pdone="<get-var done>" cdone="#b5b5b0" ctext="#f5f5f0" ctodo="#996666"></td>
+ </tr>
+ </table>
+ <restore stable>
+ <restore unstable>
+ <restore stable_date>
+ <restore unstable_date>
+ <restore done>
+ </define-tag>
+
|
|
ossp-web/pkg/common.wml 1.2 -> 1.3
ossp-web/pkg/lib/index.wml 1.5 -> 1.6
--- index.wml 2002/02/14 16:32:25 1.5
+++ index.wml 2002/02/14 17:02:50 1.6
@@ -1,6 +1,5 @@
#use wml::ossp area=pkg:lib subarea=NONE
-#include "../common.wml"
<title>Packages: Libraries</title>
|
|
ossp-web/pkg/tool/index.wml 1.4 -> 1.5
--- index.wml 2002/02/14 16:33:01 1.4
+++ index.wml 2002/02/14 17:02:50 1.5
@@ -1,6 +1,5 @@
#use wml::ossp area=pkg:tool subarea=NONE
-#include "../common.wml"
<title>Packages: Tools</title>
|
|
ossp-web/pkg/tool/lmtp2nntp/index.wml 1.2 -> 1.3
--- index.wml 2002/02/14 16:10:08 1.2
+++ index.wml 2002/02/14 17:02:51 1.3
@@ -29,22 +29,14 @@
<h2>Status</h2>
-<table cellspacing=0 cellpadding=0>
- <tr>
- <td>Stable Version: </td><td> 1.1.1 </td><td>(31-Dec-2001)</td>
- </tr>
- <tr>
- <td>Unstable Version:</td><td> 1.2a2 </td><td>(xx-Feb-2002)</td>
- </tr>
- <tr>
- <td>Done:</td><td colspan=2> <pbar width=200 pdone="90" cdone="#b5b5b0" ctext="#f5f5f0" ctodo="#996666">
- </td>
- </tr>
-</table>
+<pkg_status
+ stable="1.1.1" stable_date="13-Dec-2001"
+ unstable="1.2a2" unstable_date="13-Dec-2001"
+ done=90>
<h2>Source</h2>
-<filelist
+<pkg_files
url=$(FTP_ROOT_URL)/pkg/lmtp2nntp/
directory=$(FTP_ROOT_DIR)/pkg/lmtp2nntp/
files="lmtp2nntp-*.tar.gz">
|
|
