# $ApsCVS: www/wml/include/macros.inc,v 1.32 2003/03/03 12:36:46 bernd Exp $
#use wml::std::tags
#use wml::std::href
#use wml::std::box
#use wml::des::space
#use wml::des::typography

#include "styledefs.inc"

<perl>
sub isotime {
   my ($time) = @_;

   my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
      localtime($time);
   my ($str) = sprintf("%02d/%02d/%04d %02d:%02d:%02d",
      $mday, $mon+1, $year+1900, $hour, $min, $sec);
   return $str;
}

sub get_description {
  my($file) = @_;
  my($string) = "";

  open FH , "<${file}.caption" or die "can't open ${file}.caption";

  while (<FH>) {
    $string .= $_;
  }
  close (FH);
  $string;
}

sub human_readable {
  my $s=shift;
  my $ss;
  if ($s < 1000) {
    ($ss) = sprintf("%d", $s);
  }
  elsif ($s < 1000000) {
    ($ss) = sprintf("%dK", $s/1000);
  }
  else {
    ($ss) = sprintf("%.1fM", $s/1000000);
  }
  $ss;
}

sub translate_name {
  my $f = shift;
  # lose underscores
  $f =~ s/_/ /g;
  # lose extension
  $f =~ s/[0-9]*\..*//g;
  # capitalise first letters
  $f =~ s/\b([A-Za-z]+)/ucfirst($1)/ge;
  $f;
}

sub filelength {
  my($fname) = @_;
  my($size) = 0;
  my($d) = 0;
  if (-e $fname) {
    ($d,$d,$d,$d,$d,$d,$d,$size,$d,$d,$d,$d,$d) = stat $fname;
    return $size;
  } else {
    return 0;
  }
}

sub bytes {
  my($fname) = @_;
  my($size) = 0;
  $size = filelength($fname);
  if ($size < 1024) {
    return sprintf("%d", $size);
  }
  elsif ($size < 1048576) {
    return sprintf("%dK", $size/1024);
  }
  else {
    return sprintf("%.1fM", $size/(1024*1024));
  }
}

sub mlsize {
  my($mlist) = @_;
  my($count) = 0;

  open FH , "< $(MLPATH)/${mlist}" or return 0;

  while(<FH>) {
    $count++;
  }
  return $count;
}

sub dldsize {
  my($fname) = @_;
  my($size) = 0;
  my($d) = 0;
  $fname = "$(WWWROOT)/download/" . $fname;
  if (-e $fname) {
    ($d,$d,$d,$d,$d,$d,$d,$size,$d,$d,$d,$d,$d) = stat $fname;
    return $size;
  } else {
    return 0;
  }
}

</perl>

<define-tag myemail>$(MYEMAIL)</define-tag>
<define-tag myurl>$(MYURL)</define-tag>
<define-tag mailme endtag=required><a href="mailto:$(MYEMAIL)">%body</a></define-tag>
<define-tag newsp endtag=required><p class="newsbody">%body</p></define-tag>

# URL mappings
<define-tag apsfilter><a href="http://www.apsfilter.org/">Apsfilter</a>
  </define-tag>
<define-tag bsd><a href="http://www.bsd.org/">BSD</a>
  </define-tag>
<define-tag cosmo><a href="http://www.cosmo-project.de/">Cosmo Project</a>
  </define-tag>
<define-tag debian><a href="http://www.debian.org/">Debian Linux</a>
  </define-tag>
<define-tag join><a href="http://www.join.uni-muenster.de/">JOIN</a>
  </define-tag>
<define-tag plusline><a href="http://www.plusline.de/">Plus.line</a>
  </define-tag>
<define-tag dpn><a href="http://www.dpn.de/">DPN</a>
  </define-tag>
<define-tag freebsd> <a href="http://www.FreeBSD.org/">FreeBSD</a>
  </define-tag>
<define-tag freebsdports> <a href="http://www.FreeBSD.org/ports/">FreeBSD Ports Collection</a>
  </define-tag>
<define-tag freebsdalphacd> <a href="http://www.cdrom.com/titles/freebsd/bsdalph.phtml">FreeBSD ALPHA</a>
  </define-tag>
<define-tag gs> <a href="http://www.cs.wisc.edu/~ghost/index.html">Ghostscript</a></define-tag>
<define-tag lprng> <a href="http://www.astart.com/lprng/LPRng.html">LPRng</a>
  </define-tag>
<define-tag mlarchive> <a href="$(ROOT)/Lists-Archives">Mailing List Archive</a>
  </define-tag>
<define-tag netbsd> <a href="http://www.NetBSD.org/">NetBSD</a>
  </define-tag>
<define-tag openbsd> <a href="http://www.OpenBSD.org/">OpenBSD</a>
  </define-tag>
<define-tag ugu> <a href="http://www.ugu.com/">UGU</a>
  </define-tag>
<define-tag unix> <a href="http://www.ugu.com/">Unix</a>
  </define-tag>
<define-tag wml> <a href="http://www.engelschall.com/sw/wml/">WML</a>
  </define-tag>
<define-tag wmlurl><a href="http://www.engelschall.com/sw/wml/"></a>
  </define-tag>

# apsfilter core team
<define-tag andreas><a href="mailto:andreas@apsfilter.org">Andreas Klemm</a>
  </define-tag>
<define-tag bernd><a href="mailto:bernd@cosmo-project.de">Bernd Walter</a>
  </define-tag>
<define-tag joerg><a href="mailto:joerg@FreeBSD.org">Joerg Wunsch</a>
  </define-tag>
<define-tag sroberts><a href="mailto:sroberts@apsfilter.org">Stacey Roberts</a>
  </define-tag>

# apsfilter developers
<define-tag mlossin><a href="mailto:losse@germanymail.com">Michael Lossin</a>
  </define-tag>

# apsfilter.org mailinglists
<define-tag majordomo><a href="mailto:majordomo@apsfilter.org">majordomo@apsfilter.org</a></define-tag>
<define-tag mlapsannounce><a href="mailto:apsfilter-announce@apsfilter.org">apsfilter-announce@apsfilter.org</a></define-tag>
<define-tag mlapschat><a href="mailto:apsfilter-chat@apsfilter.org">apsfilter-chat@apsfilter.org</a></define-tag>
<define-tag mlapscurrent><a href="mailto:apsfilter-current@apsfilter.org">apsfilter-current@apsfilter.org</a></define-tag>
<define-tag mlapscvs><a href="mailto:apsfilter-cvs@apsfilter.org">apsfilter-cvs@apsfilter.org</a></define-tag>
<define-tag mlapsdevel><a href="mailto:apsfilter-devel@apsfilter.org">apsfilter-devel@apsfilter.org</a></define-tag>
<define-tag mlapsdoc><a href="mailto:apsfilter-doc@apsfilter.org">apsfilter-doc@apsfilter.org</a></define-tag>
<define-tag mlapshackers><a href="mailto:apsfilter-hackers@apsfilter.org">apsfilter-hackers@apsfilter.org</a></define-tag>
<define-tag mlapshelp><a href="mailto:apsfilter-help@apsfilter.org">apsfilter-help@apsfilter.org</a></define-tag>
<define-tag mlapshilfe><a href="mailto:apsfilter-hilfe@apsfilter.org">apsfilter-hilfe@apsfilter.org</a></define-tag>
<define-tag mlapsprinting><a href="mailto:apsfilter-printing@apsfilter.org">apsfilter-printing@apsfilter.org</a></define-tag>
<define-tag mlapsstable><a href="mailto:apsfilter-stable@apsfilter.org">apsfilter-stable@apsfilter.org</a></define-tag>

# Unix manpage mappings
<define-tag lpd><a href="http://www.FreeBSD.org/cgi/man.cgi?query=lpd&apropos=0&sektion=0&manpath=FreeBSD+4.0-RELEASE&format=html">lpd(8)</a>
  </define-tag>

# 64Bits
<define-tag siggi><a href="mailto:siggi@universe-architecture.com">Siggi Holz</a>
  </define-tag>

# Display counter only on www.apsfilter.org, which is hosted on srv1...
<define-tag counter>
<div align="center">
<img src="http://$(HOSTNAME)/cgi-bin/Count.cgi?ft=0&md=6&dd=B&frgb=255;215;0|df=apsfilter1" alt="counter">
</div>
</define-tag>

# Release Texts for download page
<define-tag STABLE_comment>
  This is the apsfilter STABLE release.
  <br>Download this release for production environment.
  <br>Please download and apply patches if available !
  <br>Report problems and comments to <mlapsstable> mailinglist.
</define-tag>

<define-tag HEAD_comment>
  This is the apsfilter-current developer release.
  <br>This SNAPSHOT release will become the new apsfilter version.
  <br>Please test this experimental version and give us your feedback.
  <br>Usually even this new stuff is working well, but please don't
  <br>blame us, if you expect problems in production environment.
  <br>Report problems and comments to <mlapscurrent> mailinglist.
</define-tag>

<define-tag tbox endtag=required>
<preserve bgcolor>
<preserve fgcolor>
<preserve bdcolor>
<preserve bdwidth>
<preserve bdspace>
<preserve width>
<set-var %attributes>
<defvar bdwidth 1>
<defvar bdspace 4>
<defvar width "100%">
<if <get-var bdcolor> <group
<table summary="box" cellspacing=0 width=<get-var width> cellpadding=<get-var bdwidth> \
       bgcolor="<get-var bdcolor>" border=0>
<tr>
<td>\
>>
<table summary="box" <if <get-var bgcolor> "bgcolor=\"<get-var bgcolor>\""> \
       cellspacing=0 width="100%" cellpadding=<get-var bdspace> \
       border=0>
<tr>
<td>\
<if <get-var fgcolor> "<font color=\"<get-var fgcolor>\">">\
%body\
<if <get-var fgcolor> "</font>">\
</td>
</tr>
</table>
<if <get-var bdcolor> <group
</td>
</tr>
</table>
>>
<restore width>
<restore bdspace>
<restore bdwidth>
<restore bdcolor>
<restore fgcolor>
<restore bgcolor>
</define-tag>


<define-tag code endtag=required>
<protect pass=4-5>\
<protect pass=7>\
<protect pass=9>\
<pre>\
<font color="<get-var col_code>">\
{:\
[[s|&|&amp;|sg]]\
[[s|<|&lt;|sg]]\
[[s|>|&gt;|sg]]\
[[s|\n+\s*$||s]]\
%body\
:}\
</font>\
</pre>\
</protect>\
</protect>\
</protect>\
</define-tag>

<define-tag pcode endtag=required>
<font color="<get-var col_code>">\
<tt>\
%body\
</tt>\
</font>\
</define-tag>

<define-tag underscore whitespace=delete>
{:
[[s| |_|sg]]
%0
:}
</define-tag>

<define-tag linkgroup endtag=required whitespace=delete>
<preserve name>
<set-var %attributes>
<table summary="border" width="100%" cellspacing="0" cellpadding="1" \
border="0" bgcolor="<get-var col_linkgroup_border>">\
<tr>\
<td>\
<table summary="border" width="100%" cellspacing="0" cellpadding="0" \
border="0" bgcolor="<get-var page_bg_color>">\
<tr>\
<td>\
<table summary="linkgroup" width="100%" border="0" \
cellpadding="2" cellspacing="0">\
<tr>\
<td class="linkgrouptitle">\
<a name="<get-var name>"></a>
<get-var name>\
</td>\
</tr>\
</table>\
<table summary="border" width="100%" cellspacing="2" cellpadding="0" \
border="0" bgcolor="<get-var page_bg_color>">\
%body
</table>
</td>\
</tr>\
</table>\
</td>\
</tr>\
</table>\
<hr width="0" size="0">
<restore name>
</define-tag>

<define-tag linkdesc endtag=required whitespace=delete>
<preserve name>
<preserve url>
<preserve maddr>
<set-var %attributes>
<tr><td>\
<table summary="linkdesc" width="100%" border="0" cellpadding="2" cellspacing="0">\
<tr>\
<td valign="top" align="left" class="linkdescurl">\
<if <get-var maddr> 
 <a href="<get-var maddr>"><get-var name></a>
 <a href="<get-var url>"><get-var name></a>
>
</td>\
<td align="right" class="linkdescurl">\
<if <get-var url>
 <a href="<get-var url>"><get-var url></a>
 <a href="http://www.foo.bar/">unknown</a>
>
</td>\
</tr>\
<tr>\
<td colspan="2" class="linkdescbody">\
%body
</td>\
</tr>\
</table>\
</td></tr>\
<restore name>
<restore url>
<restore maddr>
</define-tag>

<define-tag song endtag=required whitespace=delete>
<preserve title>
<preserve file>
<set-var %attributes>
<tr><td>\
<table summary="linkdesc" width="100%" border="0" cellpadding="2" cellspacing="0">\
<tr>\
<td valign="top" align="left" class="linkdescurl">\
 <a href="<get-var file>"><get-var title></a>
</td>\
<td align="right" class="linkdescurl">\
 <:=bytes("<get-var file>"):>
</td>\
</tr>\
<tr>\
<td colspan="2" class="linkdescbody">\
%body
</td>\
</tr>\
</table>\
</td></tr>\
<restore title>
<restore file>
</define-tag>

<define-tag aps-download-entry endtag=required whitespace=delete>
<preserve gz_name>
<preserve gz_md5_name>
<preserve bz2_name>
<preserve bz2_md5_name>
<preserve patch_name>
<preserve ANNOUNCE_name>
<preserve ChangeLog_name>
<preserve INSTALL_name>
<preserve KNOWN_BUGS_name>
<preserve README_name>
<set-var %attributes>
<tr>
 <td>
  <table summary="linkdesc" width="100%" border="0" cellpadding="2" cellspacing="0">
  <tr>
    <td valign="top" align="left" class="linkdescurl">
      <a href="$(ROOT)/download/<get-var gz_name>"><get-var gz_name></a>
      <a href="$(ROOT)/download/<get-var gz_md5_name>"> [md5] </a>
      or
    </td>
    <td align="right" class="linkdescurl">
      <:=dldsize("<get-var gz_name>"):> bytes
    </td>
  </tr>
  <tr>
    <td valign="top" align="left" class="linkdescurl">
      <a href="$(ROOT)/download/<get-var bz2_name>"><get-var bz2_name></a>
      <a href="$(ROOT)/download/<get-var bz2_md5_name>"> [md5]</a>
    </td>
    <td align="right" class="linkdescurl">
      <:=dldsize("<get-var bz2_name>"):> bytes
    </td>
  </tr>
  <tr>
    <td valign="top" align="left" class="linkdescurl">
      <a href="$(ROOT)/download/<get-var patch_name>"><get-var patch_name></a>
    </td>
    <td align="right" class="linkdescurl">
      <:=dldsize("<get-var patch_name>"):> bytes
    </td>
  </tr>
  <tr>
    <td valign="top" align="left" class="linkdescurl">
      <a href="$(ROOT)/download/<get-var ANNOUNCE_name>">[ANNOUNCE]</a>
      <a href="$(ROOT)/download/<get-var ChangeLog_name>"> [ChangeLog]</a>
    </td>
    <td align="right" class="linkdescurl">
      <a href="$(ROOT)/download/<get-var README_name>">[README]</a>
      <a href="$(ROOT)/download/<get-var INSTALL_name>"> [INSTALL]</a>
      <a href="$(ROOT)/download/<get-var KNOWN_BUGS_name>"> [KNOWN_BUGS]</a>
    </td>
  </tr>
  <tr>
    <td colspan="2" class="linkdescbody">
      %body
    </td>
  </tr>
  </table>
 </td>
</tr>
<restore gz_name>
<restore gz_md5_name>
<restore bz2_name>
<restore bz2_md5_name>
<restore patch_name>
<restore ANNOUNCE_name>
<restore ChangeLog_name>
<restore INSTALL_name>
<restore KNOWN_BUGS_name>
<restore README_name>
</define-tag>

<define-tag news endtag=required>
<preserve date>
<preserve title>
<set-var %attributes>
<table summary="border" width="100%" cellspacing="0" cellpadding="1" \
border="0" bgcolor="<get-var col_news_border>">\
<tr><td>\
<table summary="newsitem" width="100%" border="0" \
cellpadding="2" cellspacing="0">\
<tr>\
<td class="newstitle">\
<a name="<underscore <get-var date>>"></a>
<get-var title>\
</td>\
<td class="newsdate" align="right">\
<get-var date>\
</td>\
</tr><tr><td colspan="2" class="newsitem">
%body
</td></tr></table></td></tr></table><hr width="0" size="0">
<restore date>
<restore title>
</define-tag>

<define-tag menuitem endtag=required>\
<preserve url>\
<set-var %attributes>
<table summary="menuitem" width="100%" border="0" cellpadding="2" cellspacing="1">\
<tr>\
<ifeq <get-var url> $(file) <td class="menuitemsel"> <td class="menuitem">>\
<a href="<get-var url>">%body</a>\
</td>\
</tr>\
</table>\
<restore url>\
</define-tag>

<define-tag menugroup endtag=required whitespace=delete>\
<preserve name>\
<set-var %attributes>
<table summary="border" width="100%" cellspacing="0" cellpadding="1" \
border="0" bgcolor="<get-var col_news_border>">\
<tr>\
<td>\
<table summary="border" width="100%" cellspacing="0" cellpadding="0" \
border="0" bgcolor="<get-var page_bg_color>">\
<tr>\
<td>\
<table summary="menugroup" width="100%" border="0" cellpadding="2" \
cellspacing="0">\
<tr>\
<td align="center" class="menuheader">
<get-var name>\
</td>\
</tr>\
</table>
%body</td>\
</tr>\
</table>\
</td>\
</tr>\
</table>\
<hr size="0" width="0">\
<restore name>\
</define-tag>

<define-tag screenshot endtag=required endtag=required whitespace=delete>
<preserve image>
<preserve date>
<preserve title>
<set-var %attributes>
<hr width="0" size="0">\
<tbox bdwidth=1 bdcolor=<get-var col_news_border> bgcolor=<get-var col_filelist_bg> bdspace=10>\
<:
{
  my $fl = "<get-var image>";
  my $tl = "<get-var title>";
  if (! (-f "t_$fl")) {
      `convert -quality 60 -geometry 250x250 $fl t_$fl`;
  }
  my $alt = "alt=\"%s\"";
  print "<a href=$fl>";
  printf ("<img src=t_$fl border=0 $alt align=left>", $tl);
  print "</a>";
}
:>
<h4><get-var date></h4>\
%body\
<br clear="all">\
</tbox>\
<restore date>
<restore title>
<restore image>
</define-tag>


<define-tag filelist>
<preserve files>
<preserve exclude>
<set-var %attributes>
<over 10>
<box bdwidth=1 bdcolor=<get-var col_filelist_border> bgcolor=<get-var col_filelist_bg> bdspace=10>
<table summary="filelist" border="0" cellpadding="2" cellspacing="0">
<:
    my $pat = '<get-var files>';
    my $rej = '<get-var exclude>';
    my (@F, @R, $f, $r, @T);
    # @F = sort { (stat($a))[9] <=> (stat($b))[9]; } (glob($pat));
    @F = sort (glob($pat));
    MAIN:foreach $f (@F) {
        if ('$rej') {
            @R = (glob("$rej"));
            foreach (@R) {
                 next MAIN if ($f =~ /$_/);
            }
        }
        # $f = "$f/" if (-d $f);
        next if (-d $f);
        printf("<tr><td width=70><b>%"."8d</b></td> <td><a href=%"."s>%"."s</a></td></tr>\n",
             -s $f, $f, $f);
    }
:>
</table>
</box>
</over>
<restore exclude>
<restore files>
</define-tag>

<define-tag imagelist>
<preserve files>
<preserve exclude>
<preserve thumb_w>
<preserve thumb_h>
<preserve columns>
<preserve donames>
<preserve shownames>
<set-var %attributes>
<defvar thumb_w 70>
<defvar thumb_h 70>
<defvar columns 2>
<box bdwidth=1 bdcolor=<get-var col_filelist_border> bgcolor=<get-var col_filelist_bg> bdspace=5>
<table summary="imagelist" border="0" cellpadding="2" cellspacing="2">
<:
    my $pat = '<get-var files>';
    my $rej = '<get-var exclude>';
    my $tw = '<get-var thumb_w>';
    my $th = '<get-var thumb_h>';
    my $cols = '<get-var columns>';
    my $donames = '<get-var donames>';
    my $shownames = '<get-var shownames>';
    my $i = 0;
    my @FF;
    # my @F = sort { -M $a <=> -M $b; } (glob($pat));
    my @F = sort (glob($pat));
    MAIN:for $f (@F) {
        next if ( $f =~ /^t_.*/ );
        if ('$rej' ne '') {
            @R = (glob("$rej"));
            for (@R) {
                 next MAIN if ($f =~ /$_/);
            }
        }
        next if (-d $f);
        push(@FF, $f);
    }
    
    for $f (@FF) {
        $ss = human_readable( -s $f );
        if ($donames eq 'yes') {
           $fname = translate_name($f);
        }
        else {
           $fname = "";
        }
        # Now for thumbnails
        if (! (-f "t_$f")) {
           my $geom = join ("x", $tw, $th);
           `convert -quality 60 -geometry $geom $f t_$f`;
        }
        print "<tr>" unless ($i);
        print "<td width=$tw align=center valign=center>\n";
        print "<a href=$f><img src=t_$f border=0><br>";
        if (! ($shownames eq 'no')) {
           print "$fname<br>";
        }
        print "$ss</a>\n";
        print "</td>";
        $i++;
        if($i == $cols || $i == @FF) {
          print "</tr>\n";
          $i = 0;
        }
    }
:>
</table>
</box>
<restore shownames>
<restore donames>
<restore columns>
<restore thumb_h>
<restore thumb_w>
<restore exclude>
<restore files>
</define-tag>



<define-tag piclist>
<preserve files>
<preserve exclude>
<preserve thumb_w>
<preserve thumb_h>
<set-var %attributes>
<defvar thumb_w 240>
<defvar thumb_h 240>
<box bdwidth=1 bdcolor=<get-var col_filelist_border> bgcolor=<get-var col_filelist_bg> bdspace=5>
<table summary="imagelist" border="0" cellpadding="2" cellspacing="2">
<:
    my $pat = '<get-var files>';
    my $rej = '<get-var exclude>';
    my $tw = '<get-var thumb_w>';
    my $th = '<get-var thumb_h>';
    my @FF;
    # my @F = sort { -M $a <=> -M $b; } (glob($pat));
    my @F = sort (glob($pat));
    MAIN:for $f (@F) {
        next if ( $f =~ /^t_.*/ );
        if ('$rej' ne '') {
            @R = (glob("$rej"));
            for (@R) {
                 next MAIN if ($f =~ /$_/);
            }
        }
        next if (-d $f);
        push(@FF, $f);
    }
    
    for $f (@FF) {
        $desc = get_description($f);
        # Now for thumbnails
        if (! (-f "t_$f")) {
           my $geom = join ("x", $tw, $th);
           `convert -quality 60 -geometry $geom $f t_$f`;
        }
        print "<tr>";
        print "<td width=$tw align=center valign=center>\n";
        print "<a href=$f><img src=t_$f border=0></a><br></td>";
        print "<td><p>$desc</p>";
        print "\n";
        print "</td>";
        print "</tr>\n";
        }
:>
</table>
</box>
<restore thumb_h>
<restore thumb_w>
<restore exclude>
<restore files>
</define-tag>

# vim: set ft=perl: