4 <define-tag sendcomments whitespace=delete>
5 <gettext>To report a problem with the web site, e-mail <a href="mailto:debian-www@lists.debian.org">debian-www@lists.debian.org</a>. For other contact information, see the Debian <a href="m4_HOME/contact">contact page</a>.</gettext>
7 <define-tag lastmodified whitespace=delete>
8 <gettext>Last Modified</gettext>
10 <define-tag copyright whitespace=delete>
11 <gettext>Copyright</gettext>
13 <define-tag seelicense whitespace=delete>
14 <gettext>See <a href="m4_HOME/license" rel="copyright">license terms</a></gettext>
16 <define-tag trademark whitespace=delete>
17 <gettext>Debian is a registered trademark of Software in the Public Interest, Inc.</gettext>
20 # Do NOT translate anything below this line. If you feel something needs
21 # to be modified, first write to debian-www list.
23 <define-tag copyrightyears whitespace=delete>
25 $file = $WML_SRC_DIRNAME."/".$WML_SRC_FILENAME;
26 if ($file =~ m,/(\d{4})/,) {
32 # the below code taken from ctime.wml:webwml_ctime
33 if (defined $(GEN_TIME)) {
34 $timevar = $WML_GEN_ISOTIME;
36 $timevar = $WML_SRC_ISOTIME;
38 $timevar =~ /^(\d+)-(..)-(\d+)/;
39 if ($1 <= 31) { # for WML 1.x
41 } else { # for WML 2.x
45 # warn "$first $second\n";
47 if ($first eq $second) {
50 print $first."-".$second;
55 <when <string-eq "$(NOCOMMENTS)" "" />>
56 <p><small><sendcomments/></small></p>
59 <lastmodified/>: <:= webwml_ctime () :>
60 <when <string-eq "$(NOCOPYRIGHT)" "" />>
62 <copyright/> © <copyrightyears/> <a href="http://www.spi-inc.org/">SPI</a>; <seelicense/><br />