Re: Why Debian's webpages aren't DFGS-free ?

[Joey Hess <joeyh@debian.org>]

Per Lundberg wrote:
> >>>>> "TW" == Tomasz Wegrzanowski <maniek@beer.com> writes:
> 
>     >> That's not what I said. They are art. Art doesn't have "source
>     >> code" in the same way as software.
>     TW> Perl programs doesn't have source code either.
> 
> Yes they have. There are even Perl compilers.
> 
>     TW> And web pages have source code : HTML.
> 
> HTML is not the source code. If you generate the HTML pages from SGML
> input, that's source code.

The web pages are genenerated from large bodies of wml, which is a mixture
of html and perl.

joey@paper:~/debian/webwml/english/template/debian>grep \\$ languages.wml 
	[TR:Bu sayfa a$aGdaki dillerde de mevcuttur:]
  my $str = "";
  $base_url = "$(HOME)";
  $file = "$(WML_SRC_BASENAME)";
  $cur_lang = "$(CUR_LANG)";
  $cwd = `pwd`;
  $full_base_url = &canonpath("$cwd/$base_url");
  $rel_dir = &relpath($full_base_url, $cwd);
  chop $rel_dir; chop $rel_dir;
  # printf STDERR "base=$base_url rel_dir=$rel_dir file=$file cur_lang=$cur_lang\n";
     # printf STDERR "$base_url/../$_/$rel_dir/$file.wml\n";
     if ( -f "$base_url/../$_/$rel_dir/$file.wml" ) {
        if ($_ ne lc($cur_lang) or $cur_lang eq "Chinese") {
           push @used_langs, $_;
           # printf STDERR "found file in $_\n";
     $str = "<HR>\n<langtext>:<BR>\n";
        $sorted_langs{$trans{$langs{$_}}{$_}} = $_;
        $cur_lang = $sorted_langs{$_};
        if ($cur_lang ne "chinese") {
           $str .= "<A href=\"$file.$langs{$cur_lang}.html\">$_</A>&nbsp;\n";
           $str .= "<A href=\"$file.$langs{$cur_lang}-cn.html\">$_&nbsp;(GB)</A>&nbsp;\n";
           $str .= "<A href=\"$file.$langs{$cur_lang}-tw.html\">$_&nbsp;(Big5)</A>&nbsp;\n";
     $str .= "\n<BR><A href=\"$base_url/intro/cn\"><setlang></A>\n";
  return $str;

This is a part of the source to the debian website, which it is currently
illegal for you to modify.

-- 
see shy jo, in New York