* Move coniguratio stuf to own module
[deb/packages.git] / lib / Packages / HTML.pm
1 package Packages::HTML;
2
3 use strict;
4 use warnings;
5
6 use URI::Escape;
7 use HTML::Entities;
8
9 use Packages::CGI;
10 use Packages::Search qw( read_entry_simple );
11 use Packages::Config qw( :all );
12
13 #use Packages::Util;
14 #use Packages::I18N::Locale;
15 #use Packages::I18N::Languages;
16 #use Packages::I18N::LanguageNames;
17 #use Generated::Strings qw( gettext dgettext );
18
19 # dummy routines
20 sub get_charset { return "utf-8" };
21 sub gettext { return $_[0]; };
22
23 our @ISA = qw( Exporter );
24 our @EXPORT = qw( header title trailer file_changed time_stamp
25                   read_md5_hash write_md5_hash simple_menu
26                   ds_begin ds_item ds_end note title marker pdesc
27                   pdeplegend pkg_list pmoreinfo print_deps );
28
29 our $CHANGELOG_URL = '/changelogs';
30
31 sub img {
32     my ( $root, $url, $src, $alt, %attr ) = @_; 
33     my @attr;
34
35     foreach my $a ( keys %attr ) {
36         push @attr, "$a=\"$attr{$a}\"";
37     }
38
39     return "<a href=\"$root$url\"><img src=\"$root$src\" alt=\"$alt\" @attr></a>";
40 }
41
42 sub simple_menu {
43     my $str = "";
44     foreach my $entry (@_) {
45         $str .= "[&nbsp;$entry->[0] <a title=\"$entry->[1]\" href=\"$entry->[2]\">$entry->[3]</a>&nbsp;]\n";
46     }
47     return $str;
48 }
49
50 sub title {
51     return "<h1>$_[0]</h1>\n";
52 }
53
54 sub marker {
55     return "[<span class=\"pred\">$_[0]</span>]";
56 }
57
58 sub pdesc {
59     my ( $short_desc, $long_desc ) = @_;
60     my $str = "";
61
62     $str .= "<div id=\"pdesc\">\n";
63     $str .= "<h2>$short_desc</h2>\n";
64
65     $str .= "<p>$long_desc\n";
66     $str .= "</div> <!-- end pdesc -->\n";
67
68     return $str;
69 }
70
71 sub pdeplegend {
72     my $str = "<table border=\"1\" summary=\"legend\"><tr>\n";
73
74     foreach my $entry (@_) {
75         $str .= "<td><img src=\"../../Pics/$entry->[0].gif\" alt=\"[$entry->[0]]\" width=\"16\" height=\"16\">= $entry->[1]</td>";
76     }
77
78     $str .= "\n</tr></table>\n";
79     return $str;
80 }
81
82 # sub pkg_list {
83 #     my ( $pkgs, $lang, $env ) = @_;
84
85 #     my $str = "";
86 #     foreach my $p ( @$pkgs ) {
87 #       my $p_pkg = $env->{db}->get_pkg( $p );
88
89 #       if ( $p_pkg ) {
90 #           if ($p_pkg->is_virtual) {
91 #               $str .= "<dt><a href=\"../virtual/$p\">$p</a></dt>\n".
92 #                   "\t<dd>".gettext("Virtual package")."</dd>\n";
93 #           } else {
94 #               my %subsections = $p_pkg->get_arch_fields( 'section',
95 #                                                          $env->{archs} );
96 #               my $subsection = $subsections{max_unique};
97 #               my %desc_md5s = $p_pkg->get_arch_fields( 'description-md5', 
98 #                                                        $env->{archs} );
99 #               my $short_desc = conv_desc( $lang,
100 #                                           encode_entities( $env->{db}->get_short_desc( $desc_md5s{max_unique}, $lang ), "<>&\"" ) );
101 #               $str .= "<dt><a href=\"../$subsection/$p\">$p</a></dt>\n".
102 #                   "\t<dd>$short_desc</dd>\n";
103 #           }
104 #       } else {
105 #           $str .= "<dt>$p</dt>\n\t<dd>".gettext("Not available")."</dd>\n";
106 #       }
107 #     }
108 #     if ($str) {
109 #       $str = "<dl>$str</dl>\n";
110 #     }
111
112 #     return $str;
113 # }
114
115 sub pmoreinfo {
116     my %info = @_;
117     
118     my $name = $info{name} or return;
119     my $env = $info{env} or return;
120     my $opts = $info{opts} or return;
121     my $page = $info{data} or return;
122     my $is_source = $info{is_source};
123
124     my $str = "<div id=\"pmoreinfo\">";
125     $str .= sprintf( "<h2>".gettext( "More Information on %s" )."</h2>",
126                      $name );
127         
128     
129     if ($info{bugreports}) {
130         my $bug_url = $is_source ? $SRC_BUG_URL : $BUG_URL; 
131         $str .= "<p>\n".sprintf( gettext( "Check for <a href=\"%s\">Bug Reports</a> about %s." )."<br>\n",
132                          $bug_url.$name, $name );
133     }
134         
135     my $source = $page->get_src( 'name' );
136     my $source_version = $page->get_src( 'version' );
137     my $src_dir = $page->get_src('directory');
138     if ($info{sourcedownload}) {
139         my $files = $page->get_src( 'files' );
140         my $path = (@{$opts->{archive}} >1) ?
141             $opts->{suite} :
142             "$opts->{suite}/$opts->{archive}[0]";
143         $str .= gettext( "Source Package:" );
144         $str .= " <a href=\"/$path/source/$source\">$source</a>, ".
145             gettext( "Download" ).":\n";
146
147         unless (@$files) {
148             $str .= gettext( "Not found" );
149         } else {
150             foreach( @$files ) {
151                 my ($src_file_md5, $src_file_size, $src_file_name) = @$_;
152                 for ($page->get_newest('archive')) {
153                     /security/o && do {
154                         $str .= "<a href=\"$env->{security}/$src_dir/$src_file_name\">["; last };
155                     /volatile/o && do {
156                         $str .= "<a href=\"$env->{volatile}/$src_dir/$src_file_name\">["; last };
157                     /non-us/io && do {
158                         $str .= "<a href=\"$env->{nonus_site}/$src_dir/$src_file_name\">["; last };
159                     $str .= "<a href=\"$env->{us}/$src_dir/$src_file_name\">[";
160                 }
161                 if ($src_file_name =~ /dsc$/) {
162                     $str .= "dsc";
163                 } else {
164                     $str .= $src_file_name;
165                 }
166                 $str .= "]</a>\n";
167             }
168         }
169 #           $package_page .= sprintf( gettext( " (These sources are for version %s)\n" ), $src_version )
170 #               if ($src_version ne $version) && !$src_version_given_in_control;
171     }
172
173     if ($info{changesandcopy}) {
174         if ( $src_dir ) {
175             (my $src_basename = $source_version) =~ s,^\d+:,,; # strip epoche
176             $src_basename = "${source}_$src_basename";
177             $src_dir =~ s,pool/updates,pool,o;
178             $src_dir =~ s,pool/non-US,pool,o;
179             $str .= "<br>".sprintf( gettext( "View the <a href=\"%s\">Debian changelog</a>" ),
180                                     "$CHANGELOG_URL/$src_dir/$src_basename/changelog" )."<br>\n";
181             my $copyright_url = "$CHANGELOG_URL/$src_dir/$src_basename/";
182             $copyright_url .= ( $is_source ? 'copyright' : "$name.copyright" );
183
184             $str .= sprintf( gettext( "View the <a href=\"%s\">copyright file</a>" ),
185                              $copyright_url )."</p>";
186         }
187    }
188
189     if ($info{maintainers}) {
190         my @uploaders = @{$page->get_src( 'uploaders' )};
191         foreach (@uploaders) {
192             $_->[0] = encode_entities( $_->[0], '&<>' );
193         }
194         my ($maint_name, $maint_mail ) = @{shift @uploaders}; 
195         unless (@uploaders) {
196             $str .= "<p>\n".sprintf( gettext( "%s is responsible for this Debian package." ).
197                                      "\n",
198                                      "<a href=\"mailto:$maint_mail\">$maint_name</a>" 
199                                      );
200         } else {
201             my $up_str = "<a href=\"mailto:$maint_mail\">$maint_name</a>";
202             my @uploaders_str;
203             foreach (@uploaders) {
204                 push @uploaders_str, "<a href=\"mailto:$_->[1]\">$_->[0]</a>";
205             }
206             my $last_up = pop @uploaders_str;
207             $up_str .= ", ".join ", ", @uploaders_str if @uploaders_str;
208             $up_str .= sprintf( gettext( " and %s are responsible for this Debian package." ), $last_up );
209             $str .= "<p>\n$up_str ";
210         }
211
212         $str .= sprintf( gettext( "See the <a href=\"%s\">developer information for %s</a>." )."</p>", $QA_URL.$source, $name );
213     }
214
215     if ($info{search}) {
216         my $encodedname = uri_escape( $name );
217         my $search_url = $is_source ? $SRC_SEARCH_URL : $SEARCH_URL;
218         $str .= "<p>".sprintf( gettext( "Search for <a href=\"%s\">other versions of %s</a>" ), $search_url.$encodedname, $name )."</p>\n";
219     }
220
221     $str .= "</div> <!-- end pmoreinfo -->\n";
222     return $str;
223 }
224
225 sub dep_item {
226     my ( $link, $name, $info, $desc ) = @_;
227     my $post_link = '';
228     if ($link) {
229         $link = "<a href=\"$link\">";
230         $post_link = '</a>';
231     } else {
232         $link = '';
233     }
234     if ($info) {
235         $info = " $info";
236     } else {
237         $info = '';
238     }
239     if ($desc) {
240         $desc = "</dt><dd>$desc</dd>";
241     } else {
242         $desc = '</dt>';
243     }
244
245     return "$link$name$post_link$info$desc";
246 } # end dep_item
247
248 sub print_deps {
249     my ( $packages, $opts, $pkg, $relations, $type) = @_;
250     my %dep_type = ('depends' => 'dep', 'recommends' => 'rec', 
251                     'suggests' => 'sug');
252     my $res = "<ul class=\"ul$dep_type{$type}\">\n";
253     my $first = 1;
254
255 #    use Data::Dumper;
256 #    debug( "print_deps called:\n".Dumper( $pkg, $relations, \$type ), 3 );
257
258     foreach my $rel (@$relations) {
259         my $is_old_pkgs = $rel->[0];
260         my @res_pkgs = ();
261
262         if ($is_old_pkgs)  {
263             $res .= "<dt>";
264         } else {
265             if ($first) {
266                 $res .= "<li>";
267                 $first = 0;
268             } else {
269                 $res .= "</dl></li>\n<li>";
270             }
271             $res .= "<dl><dt><img class=\"hidecss\" src=\"../../Pics/$dep_type{$type}.gif\" alt=\"[$dep_type{$type}]\"> ";
272         }
273
274         foreach my $rel_alt ( @$rel ) {
275             next unless ref($rel_alt);
276             my ( $p_name, $pkg_version, $arch_neg,
277                  $arch_str, $subsection, $available ) = @$rel_alt;
278
279             if ($arch_str) {
280                 if ($arch_neg) {
281                     $arch_str = " [".gettext("not")." $arch_str]";
282                 } else {
283                     $arch_str = " [$arch_str]";
284                 }
285             }
286             $pkg_version = "($pkg_version)" if $pkg_version;
287             
288             my @results;
289             my %short_descs;
290             my $short_desc = $short_descs{$p_name} ||
291                 (read_entry_simple( $packages, $p_name, $opts->{h_archives}, $opts->{suite}))->[-1];
292             if ( $short_desc ) {
293                 if ( $is_old_pkgs ) {
294                     push @res_pkgs, dep_item( "/$opts->{suite}/$p_name",
295                                               $p_name, "$pkg_version$arch_str" );
296                 } else {
297                     $short_descs{$p_name} ||= $short_desc;
298                     $short_desc = encode_entities( $short_desc, "<>&\"" );
299                     push @res_pkgs, dep_item( "/$opts->{suite}/$p_name",
300                                               $p_name, "$pkg_version$arch_str", $short_desc );
301                 }
302             } elsif ( $is_old_pkgs ) {
303                 push @res_pkgs, dep_item( undef, $p_name, "$pkg_version$arch_str" );
304             } else {
305                 my $short_desc = gettext( "Package not available" );
306                 push @res_pkgs, dep_item( undef, $p_name, "$pkg_version$arch_str", $short_desc );
307             }
308             
309         }
310         
311         $res .= "\n".join( "<dt>".gettext( "or" )." ", @res_pkgs )."\n";
312     }
313     if (@$relations) {
314         $res .= "</dl></li>\n";
315         $res .= "</ul>\n";
316     } else {
317         $res = "";
318     }
319     return $res;
320 } # end print_deps
321
322 # sub print_src_deps {
323 #     my ( $env, $lang, $pkg, $version, $type) = @_;
324 #     my %dep_type = ('build-depends' => 'adep', 'build-depends-indep' => 'idep' );
325 #     my $found = 0;
326 #     my $res = "<ul class=\"ul$dep_type{$type}\">\n";
327 #     foreach my $dep ( @{$pkg->{versions}{$version}{$type}} ) {
328 #         $found = 1;
329 #       my @res_pkgs;
330 #       $res .= "<li><dl><dt><img class=\"hidecss\" src=\"../../Pics/$dep_type{$type}.gif\" alt=\"[$dep_type{$type}]\"> ";
331 #       foreach my $or_dep ( @$dep ) {
332 #           my $p_name = $or_dep->[0];
333 #           my $p = $env->{db}->get_pkg( $p_name );
334 #           my $p_version = $or_dep->[1] ? "(".encode_entities( $or_dep->[1] ).
335 #               " $or_dep->[2]) " : "";
336 #           my $not = gettext( "not" );
337 #           if ($or_dep->[3]) {
338 #               $or_dep->[3] =~ s/\s+/, /go;
339 #               # as either all or no archs have to be prepended with
340 #               # exlamation marks, convert the first and delete the others
341 #               $or_dep->[3] =~ s/!\s*/$not /o;
342 #               $or_dep->[3] =~ s/!\s*//go;
343 #           }
344 #           my $arch_str = $or_dep->[3] ? " [$or_dep->[3]]" : "";
345 #           if ( $p ) {
346 #               if ( $p->is_virtual ) {
347 #                   my $short_desc = gettext( "Virtual package" );
348 #                   push @res_pkgs, dep_item( "../virtual/$p_name", $p_name, "$p_version$arch_str", $short_desc );
349 #               } else {
350 #                   my %sections = $p->get_arch_fields( 'section',
351 #                                                       $env->{archs} );
352 #                   my $section = $sections{max_unique};
353 #                   my %desc_md5s = $p->get_arch_fields( 'description-md5', 
354 #                                                        $env->{archs} );
355 #                   my $short_desc = conv_desc( $lang, encode_entities( $env->{db}->get_short_desc( $desc_md5s{max_unique}, $lang ), "<>&\"" ) );
356 #                   push @res_pkgs, dep_item( "../$section/$p_name", $p_name, "$p_version$arch_str", $short_desc );
357 #               }
358 #           } else {
359 #               my $short_desc = gettext( "Package not available" );
360 #               push @res_pkgs, dep_item( undef, $p_name, "$p_version$arch_str", $short_desc );
361 #           }
362 #       }
363 #       $res .= "\n".join( "<dt>\n".gettext( "or" )." ", @res_pkgs )."</dl></li>\n";
364 #     }
365 #     if ($found) {
366 #         $res .= "\n</ul>";
367 #     } else {
368 #         $res = "";
369 #     }
370 #     return $res;
371 # } # end print_src_deps
372
373
374 my $ds_begin = '<dl>';
375 my $ds_item_desc  = '<dt>';
376 my $ds_item = ':</dt><dd>';
377 my $ds_item_end = '</dd>';
378 my $ds_end = '</dl>';
379 #           my $ds_begin = '<table><tbody>';
380 #           my $ds_item_desc  = '<tr><td>';
381 #           my $ds_item = '</td><td>';
382 #           my $ds_item_end = '</td></tr>';
383 #           my $ds_end = '</tbody></table>';
384
385 sub ds_begin {
386     return $ds_begin;
387 }
388 sub ds_item {
389     return "$ds_item_desc$_[0]$ds_item$_[1]$ds_item_end\n";
390 }
391 sub ds_end {
392     return $ds_end;
393 }
394
395 sub header {
396     my (%params) = @_;
397
398     my $DESC_LINE;
399     if (defined $params{desc}) {
400         $DESC_LINE = "<meta name=\"Description\" content=\"$params{desc}\">";
401     }
402     else {
403         $DESC_LINE = '';
404     }
405
406     my $title_keywords = $params{title_keywords} || $params{title} || '';
407     my $title_tag = $params{title_tag} || $params{title} || '';
408     my $title_in_header = $params{page_title} || $params{title} || '';
409     my $page_title = $params{page_title} || $params{title} || '';
410     my $meta = $params{meta} || '';
411
412     if ($params{print_title_above}) {
413         $title_in_header = "<h1>$title_in_header</h1>";
414     } else {
415         $title_in_header = '';
416     }
417
418     my $search_in_header = '';
419     $params{print_search_field} ||= "";
420     if ($params{print_search_field} eq 'packages') {
421         my %values = %{$params{search_field_values}};
422         my %checked_searchon = ( names => "",
423                                  all => "",
424                                  sourcenames => "", );
425         $checked_searchon{$values{searchon}} = "checked=\"checked\"";
426         $search_in_header = <<MENU;
427 <form method="GET" action="$SEARCH_CGI">
428 <div id="hpacketsearch">
429 <input type="hidden" name="debug" value="$values{debug}">
430 <input type="hidden" name="suite" value="$values{suite}">
431 <input type="hidden" name="subword" value="$values{subword}">
432 <input type="hidden" name="exact" value="$values{exact}">
433 <input type="hidden" name="arch" value="$values{arch}">
434 <input type="hidden" name="section" value="$values{section}">
435 <input type="hidden" name="case" value="$values{case}">
436 <input type="text" size="30" name="keywords" value="$values{keywords}" id="kw">
437 <input type="submit" value="Search">
438 <span style="font-size: 60%"><a href="$SEARCH_PAGE#search_packages">Full options</a></span>
439 <br>
440 <div style="font-size: 80%">Search on:
441 <input type="radio" name="searchon" value="names" id="onlynames" $checked_searchon{names}>
442 <label for="onlynames">Package names only</label>&nbsp;&nbsp;
443 <input type="radio" name="searchon" value="all" id="descs" $checked_searchon{all}>
444 <label for="descs">Descriptions</label>
445 <br>
446 <input type="radio" name="searchon" value="sourcenames" id="src" $checked_searchon{sourcenames}>
447 <label for="src">Source package names</label>
448 </div>
449 </div> <!-- end hpacketsearch -->
450 </form>
451 MENU
452 ;
453     } elsif ($params{print_search_field} eq 'contents') {
454         my %values = %{$params{search_field_values}};
455         my %checked_searchmode = ( searchfiles => "",
456                                    searchfilesanddirs => "",
457                                    searchword => "",
458                                    filelist => "", );
459         $checked_searchmode{$values{searchmode}} = "checked=\"checked\"";
460         $search_in_header = <<MENU;
461 <form method="GET" action="$CONTENTS_SEARCH_CGI">
462 <div id="hpacketsearch">
463 <input type="hidden" name="debug" value="$values{debug}" />
464 <input type="hidden" name="version" value="$values{version}" />
465 <input type="hidden" name="arch" value="$values{arch}" />
466 <input type="hidden" name="case" value="$values{case}" />
467 <input type="text" size="30" name="word" id="keyword" value="$values{keyword}">&nbsp;
468 <input type="submit" value="Search">
469 <span style="font-size: 60%"><a href="$SEARCH_PAGE#search_contents">Full options</a></span>
470 <br>
471 <div style="font-size: 80%">Display:
472 <input type=radio name="searchmode" value="searchfiles" id="searchfiles" $checked_searchmode{searchfiles}>
473 <label for="searchfiles">files</label>
474 <input type=radio name="searchmode" value="searchfilesanddirs" id="searchfilesanddirs" $checked_searchmode{searchfilesanddirs}>
475 <label for="searchfilesanddirs">files &amp; directories</label>
476 <br>
477 <input type=radio name="searchmode" value="searchword" id="searchword" $checked_searchmode{searchword}>
478 <label for="searchword">subword matching</label>
479 <input type=radio name="searchmode" value="filelist" id="filelist" $checked_searchmode{filelist}>
480 <label for="filelist">content list</label>
481 </div>
482 </div> <!-- end hpacketsearch -->
483 </form>
484 MENU
485 ;
486     }
487
488     my $keywords = $params{keywords} || '';
489     my $KEYWORDS_LINE = "<meta name=\"Keywords\" content=\"debian, $keywords $title_keywords\">";
490     
491     my $LANG = $params{lang};
492     my $charset = get_charset($LANG);
493     my $txt = <<HEAD;
494 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
495 <html lang="$LANG">
496 <head>
497 <title>Debian -- $title_tag</title>
498 <link rev="made" href="mailto:$WEBMASTER_MAIL">
499 <meta http-equiv="Content-Type" content="text/html; charset=$charset">
500 <meta name="Author" content="Debian Webmaster, $WEBMASTER_MAIL">
501 $KEYWORDS_LINE
502 $DESC_LINE
503 $meta
504 <link href="$HOME/debian.css" rel="stylesheet" type="text/css" media="all">
505 </head>
506 <body>
507 <div id="header">
508    <div id="upperheader">
509    <div id="logo">
510   <a href="$HOME/"><img src="$HOME/logos/openlogo-nd-50.png" alt="" /></a>
511 HEAD
512 ;
513
514     $txt .= img( "$HOME/", "", "Pics/debian.png", gettext( "Debian Project" ),
515                  width => 179, height => 61 );
516     $txt .= <<HEADEND;
517
518 </div> <!-- end logo -->
519 HEADEND
520 ;
521
522     $txt .= <<NAVBEGIN;
523 $search_in_header
524 </div> <!-- end upperheader -->
525
526 NAVBEGIN
527 ;
528 # $title_in_header
529     $txt .= "<p class=\"hidecss\"><a href=\"\#inner\">" . gettext("Skip Site Navigation")."</a></p>\n";
530     $txt .= "<div id=\"navbar\">\n<ul>".
531         "<li><a href=\"$HOME/intro/about\">".gettext( "About&nbsp;Debian" )."</a></li>\n".
532         "<li><a href=\"$HOME/News/\">".gettext( "News" )."</a></li>\n".
533         "<li><a href=\"$HOME/distrib/\">".gettext( "Getting&nbsp;Debian" )."</a></li>\n".
534         "<li><a href=\"$HOME/support\">".gettext( "Support" )."</a></li>\n".
535         "<li><a href=\"$HOME/devel/\">".gettext( "Development" )."</a></li>\n".
536         "<li><a href=\"$HOME/sitemap\">".gettext( "Site map" )."</a></li>\n".
537         "<li><a href=\"http://search.debian.org/\">".gettext( "Search" )."</a></li>\n";
538     $txt .= "</ul>\n";
539     $txt .= <<ENDNAV;
540 </div> <!-- end navbar -->
541 </div> <!-- end header -->
542 ENDNAV
543 ;
544     $txt .= <<BEGINCONTENT;
545 <div id="outer">
546 <div id="inner">
547
548 BEGINCONTENT
549 ;
550     if ($params{print_title_above}) {
551         $txt .= "<h1>$page_title</h1>\n";
552     }
553     if ($params{print_title_below}) {
554         $txt .= "<h1>$page_title</h1>\n";
555     }
556
557     return $txt;
558 }
559
560 sub trailer {
561     my ($ROOT, $NAME, $LANG, @USED_LANGS) = @_;
562     my $txt = "</div> <!-- end inner -->\n<div id=\"footer\">\n";
563     my $langs = languages( $NAME, $LANG, @USED_LANGS );
564     my $bl_class = $langs ? ' class="bordertop"' : "";
565     $txt .=
566         $langs.
567         "\n<hr class=\"hidecss\">\n" .
568         "<p$bl_class>".
569         sprintf( gettext( "Back to: <a href=\"%s/\">Debian Project homepage</a> || <a href=\"%s/\">Packages search page</a>" ), $HOME, $ROOT ).
570         "</p>\n<hr class=\"hidecss\">\n".
571         "<div id=\"fineprint\" class=\"bordertop\"><p>".
572         sprintf( gettext( "To report a problem with the web site, e-mail <a href=\"mailto:%s\">%s</a>. For other contact information, see the Debian <a href=\"%s/contact\">contact page</a>." ), $CONTACT_MAIL, $CONTACT_MAIL, $HOME).
573         "</p>\n".
574         "<p>". gettext( "Last Modified: " ). "LAST_MODIFIED_DATE".
575         "<br>\n".
576         sprintf( gettext( "Copyright &copy; 1997-2005 <a href=\"http://www.spi-inc.org\">SPI</a>; See <a href=\"%s/license\">license terms</a>." ), "$HOME/" )."<br>\n".
577         gettext( "Debian is a registered trademark of Software in the Public Interest, Inc." ).
578         "</div> <!-- end fineprint -->\n".
579         "</div> <!-- end footer -->\n".
580         "</div> <!-- end outer -->\n".
581         "</body>\n</html>\n";
582
583     return $txt;
584 }
585
586 sub languages {
587     my ( $name, $lang, @used_langs ) = @_;
588     
589     my $str = "";
590     
591     if (@used_langs) {
592         $str .= "<hr class=\"hidecss\">\n";
593         $str .= "<!--UdmComment-->\n<p>\n";
594         $str .= gettext( "This page is also available in the following languages:\n" );
595         $str .= "</p><p class=\"navpara\">\n";
596         
597         my @printed_langs = ();
598         foreach (@used_langs) {
599             next if $_ eq $lang; # Never print the current language
600             unless (get_selfname($_)) { warn "missing language $_"; next } #DEBUG
601             push @printed_langs, $_;
602         }
603         return "" unless scalar @printed_langs;
604         # Sort on uppercase to work with languages which use lowercase initial
605         # letters.
606         foreach my $cur_lang (sort langcmp @printed_langs) {
607             my $tooltip = dgettext( "langs", get_language_name($cur_lang) );
608             $str .= "<a href=\"$name.$cur_lang.html\" title=\"$tooltip\" hreflang=\"$cur_lang\" lang=\"$cur_lang\" rel=\"alternate\">".get_selfname($cur_lang);
609             $str .= " (".get_transliteration($cur_lang).")" if defined get_transliteration($cur_lang);
610             $str .= "</a>\n";
611         }
612         $str .= "\n</p><p>\n";
613         $str .= sprintf( gettext( "How to set <a href=\"%s\">the default document language</a></p>" ), $CN_HELP_URL );
614         $str .= "\n<!--/UdmComment-->\n";
615     }
616     
617     return $str;
618 }
619
620 1;