head	1.7;
access;
symbols;
locks; strict;
comment	@# @;


1.7
date	2004.09.20.15.25.58;	author rse;	state Exp;
branches;
next	1.6;

1.6
date	2002.04.05.10.54.31;	author rse;	state Exp;
branches;
next	1.5;

1.5
date	2002.03.30.19.16.58;	author rse;	state Exp;
branches;
next	1.4;

1.4
date	2002.03.14.18.38.31;	author rse;	state Exp;
branches;
next	1.3;

1.3
date	2002.02.13.21.35.23;	author rse;	state Exp;
branches;
next	1.2;

1.2
date	2002.02.13.21.15.26;	author rse;	state Exp;
branches;
next	1.1;

1.1
date	2002.02.13.16.34.56;	author rse;	state Exp;
branches;
next	;


desc
@@


1.7
log
@fix URLs
@
text
@##
##  ossp_newsflash.wml -- News Flash
##  Copyright (c) 2000-2001 Ralf S. Engelschall <rse@@engelschall.com> 
##

<define-tag newsflash>
<preserve from max more nohead>
<set-var nohead=*>
<set-var %attributes>
<table width=400 cellspacing=0 cellpadding=1 border=0>
<ifeq "<get-var nohead>" "" "" "
<tr><td><font face="Arial,Helvetica"><b>Date</b></font></td> <td>&nbsp;&nbsp;&nbsp;<font face="Arial,Helvetica"><b>Newsflash</b></font></td></tr>
<tr><td><hr noshade size=1></td> <td><hr noshade size=1></td></tr>
">
<:
    open(FP, "< <get-var from>") || die;
    my $max = ("<get-var max>" eq '' ? 9999 : "<get-var max>");
    @@COL = (
        '#e5e5e0',
        'NONE',
    );
    $ncol = 1;
    $n = 0;
    while (<FP>) {
        s/T<(((?:OSSP|GNU)\s+)?([^>]+))>/<a href="\/pkg\/tool\/$3\/">$1<\/a>/g;
        s/L<(((?:OSSP|GNU)\s+)?([^>]+))>/<a href="\/pkg\/lib\/$3\/">$1<\/a>/g;
        s/P<([^>]+)>/<a href="ftp:\/\/ftp.openpkg.org\/current\/SRC\/$1.src.rpm">$1<\/a>/g;
        s/N<([^>]+)>/<b>$1<\/b>/g;
        s/B<([^>]+)>/<b>$1<\/b>/g;
        s/I<([^>]+)>/<i>$1<\/i>/g;
        s/H<([^>]+)>/<b><font color="#cc3333">$1<\/font><\/b>/g;
        $ncol = ($ncol + 1) % 2;
        $col  = $COL[$ncol];
        #$col  = '#e5e5e5' if ($n == 0);
        if (m|^(.+?):(.+)|) {
            if ($col ne 'NONE') {
                print "<tr bgcolor=\"$col\">\n";
            }
            else {
                print "<tr>\n";
            }
            print "  <td align=right><font color=\"#000000\"><tt>$1:</tt></font></td> <td>&nbsp;$2</td>\n";
            print "</tr>\n";
        }
        $n++;
        last if ($n >= $max);
    }
    close(FP);
:>
<ifeq "<get-var more>" "" "" "
<tr>
  <td>&nbsp;</td> <td align=right><a href="<get-var more>">[more...]</a></td>
</tr>
">
</table>
<restore from max more nohead>
</define-tag>

@


1.6
log
@fix newsflash rendering
@
text
@d25 2
a26 2
        s/T<(((?:OSSP|GNU)\s+)?([^>]+))>/<a href="pkg\/tool\/$3\/">$1<\/a>/g;
        s/L<(((?:OSSP|GNU)\s+)?([^>]+))>/<a href="pkg\/lib\/$3\/">$1<\/a>/g;
@


1.5
log
@fix macro
@
text
@d25 2
a26 2
        s/T<((OSSP\s+)?([^>]+))>/<a href="pkg\/tool\/$3\/">$1<\/a>/g;
        s/L<((OSSP\s+)?([^>]+))>/<a href="pkg\/lib\/$3\/">$1<\/a>/g;
@


1.4
log
@add support for libs and tools linking
@
text
@d7 1
a7 4
<preserve from>
<preserve max>
<preserve more>
<preserve nohead>
d56 1
a56 3
<restore more>
<restore max>
<restore from>
@


1.3
log
@more content
@
text
@d28 2
@


1.2
log
@slight optical adjustments
@
text
@d22 1
a22 1
        '#f0f0f0',
d43 1
a43 1
            print "  <td align=right><font color=\"#000000\"><tt><b>$1:</b></tt></font></td> <td>&nbsp;&nbsp;$2</td>\n";
@


1.1
log
@Wohhoooo! First cut for our long awaited OSSP website...
@
text
@d13 1
a13 1
<table width=450 cellspacing=0 cellpadding=1 border=0>
@