[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: translation of packages.debian.org

On Wed, Dec 26, 2001 at 11:47:32AM +0100, Josip Rodin wrote:
> > 2.) I put a _test_ page of packages.debian.org with support of
> >     translated package description on 
> >       http://ddtp.debian.org/packages.debian.org
> >     can we add something like that on packages.debian.org?
> > 
> >     (On the real page we shouldn't add a own form per language. We
> >     should add a new 'Language' tag on the form. For this we must change
> >     the cgi and add a new option 'lang=XX_XX', but I don't know phyton.)
> 
> It can be done... though I'd prefer the automatic way, using content
> negotiation, like Tomohiro suggested.

please check this patch...

Gruss
Grisu
-- 
Michael Bramer  -  a Debian Linux Developer      http://www.debsupport.de
PGP: finger grisu@db.debian.org  -- Linux Sysadmin   -- Use Debian Linux
".... Zudem solltest Du die Vorhänge zuziehen, damit niemand
 einbricht." --- von Bodo Eggert in dasr im Thema P-FW

diff -ru orig/htmlscripts/create_package_pages.pl new/htmlscripts/create_package_pages.pl
--- orig/htmlscripts/create_package_pages.pl	Wed Dec 26 14:29:04 2001
+++ new/htmlscripts/create_package_pages.pl	Wed Dec 26 14:17:18 2001
@@ -43,6 +43,7 @@
 	"html_root|h=s" => \$html_root,
 	"md5file|m=s" => \$md5file,
 	"experimental|e!" => \$experimental,
+	"lang|l!" => \$lang,
             );
 
 Getopt::Long::config('no_getopt_compat', 'no_auto_abbrev');
@@ -65,6 +66,7 @@
 	exit;
 }
 $experimental = 0 unless defined $experimental;
+$lang = "en" unless defined $lang;
 
 if ($#ARGV >= 0) {
 	@packages_files = @ARGV;
@@ -93,7 +95,7 @@
 
 create_package_dependencies();
 
-write_pages($html_root);
+write_pages($html_root,$lang);
 
 
 
diff -ru orig/htmlscripts/pages.pl new/htmlscripts/pages.pl
--- orig/htmlscripts/pages.pl	Wed Dec 26 14:29:07 2001
+++ new/htmlscripts/pages.pl	Wed Dec 26 14:23:43 2001
@@ -16,26 +16,26 @@
 $BUG_URL = 'http://bugs.debian.org/';
 
 sub write_pages() {
-	my ($dest_dir) = @_;
+	my ($dest_dir,$lang) = @_;
 	my $res;
 
 	@tmp = split('/', $dest_dir);
 	$release = pop(@tmp);
 	read_md5_hash();
 	create_sections();
-	write_main_index($dest_dir);
-	write_all_package($dest_dir);
+	write_main_index($dest_dir,$lang);
+	write_all_package($dest_dir,$lang);
 	foreach(sort(keys %sections)) {
 #		print "$sections{$_}[1]\n";
 		if ($sections{$_}[2]) {
-			write_section($dest_dir, $_);
+			write_section($dest_dir, $_,$lang);
 		}
 	}
 	write_md5_hash();
 }
 
 sub write_main_index() {
-	my ($dest_dir) = @_;
+	my ($dest_dir,$lang) = @_;
 	use POSIX;
 	my $res;
 
@@ -70,9 +70,9 @@
 	$index_page .= "</dl></table>\n";
 	$index_page .= "<center><a href=allpackages.html title=\"List of all packages\">All packages</a>\n";
 	$index_page .= trailer('../..');
-	if(file_changed("$dest_dir/index.html", $index_page)) {
-		open(FILEH, ">$dest_dir/index.html") || die "Can\'t open file $dest_dir/index.html: $!";
-		sysopen(FILEH, "$dest_dir/index.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/index.html: $!";
+	if(file_changed("$dest_dir/index.$lang.html", $index_page)) {
+		open(FILEH, ">$dest_dir/index.$lang.html") || die "Can\'t open file $dest_dir/index.$lang.html: $!";
+		sysopen(FILEH, "$dest_dir/index.$lang.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/index.$lang.html: $!";
 		$now_time = gmtime();
 		$index_page =~ s/LAST_MODIFIED_DATE/$now_time/;
 		print FILEH $index_page;
@@ -81,7 +81,7 @@
 }
 
 sub write_all_package() {
-	my ($dest_dir) = @_;
+	my ($dest_dir,$lang) = @_;
 	my $res;
 
 	@htmldir = split /\//, $dest_dir; $distro = pop @htmldir;
@@ -99,9 +99,9 @@
 	}
 	$all_package .= "</dl>\n";
 	$all_package .= trailer('../..');
-	if(file_changed("$dest_dir/allpackages.html", $all_package)) {
-		open(FILEH, ">$dest_dir/allpackages.html") || die "Can\'t open file $dest_dir/allpackages.html: $!";
-		sysopen(FILEH, "$dest_dir/allpackages.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/allpackages.html: $!";
+	if(file_changed("$dest_dir/allpackages.$lang.html", $all_package)) {
+		open(FILEH, ">$dest_dir/allpackages.$lang.html") || die "Can\'t open file $dest_dir/allpackages.$lang.html: $!";
+		sysopen(FILEH, "$dest_dir/allpackages.$lang.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/allpackages.$lang.html: $!";
 		$now_time = gmtime();
 		$all_package =~ s/LAST_MODIFIED_DATE/$now_time/;
 		print FILEH $all_package;
@@ -110,7 +110,7 @@
 }
 
 sub write_section() {
-	my ($dest_dir, $section) = @_;
+	my ($dest_dir, $section, $lang) = @_;
 	my $res;
 
 	$now_time = gmtime();
@@ -235,9 +235,9 @@
 
 		$package_page .= trailer('../../..');
 
-		if (file_changed("$dest_dir/$section/$pack.html", $package_page)) {
-			open(FILEH_PACK, ">$dest_dir/$section/$pack.html") || die "Can\'t open file $dest_dir/$section/$pack.html: $!";
-			sysopen(FILEH_PACK, "$dest_dir/$section/$pack.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/$section/$pack.html: $!";
+		if (file_changed("$dest_dir/$section/$pack.$lang.html", $package_page)) {
+			open(FILEH_PACK, ">$dest_dir/$section/$pack.$lang.html") || die "Can\'t open file $dest_dir/$section/$pack.$lang.html: $!";
+			sysopen(FILEH_PACK, "$dest_dir/$section/$pack.$lang.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/$section/$pack.$lang.html: $!";
 			$package_page =~ s/LAST_MODIFIED_DATE/$now_time/;
 			print FILEH_PACK $package_page;
 			close FILEH_PACK;
@@ -245,10 +245,10 @@
 	}
 	$section_page .= "</dl>\n\n";
 	$section_page .= trailer('../../..');
-	if(file_changed("$dest_dir/$section/index.html", $section_page)) {
-		open(FILEH_SEC, ">$dest_dir/$section/index.html") or
-		       print "Couldn't open index.html in section $section\n";
-		sysopen(FILEH_SEC, "$dest_dir/$section/index.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/$section/index.html: $!";
+	if(file_changed("$dest_dir/$section/index.$lang.html", $section_page)) {
+		open(FILEH_SEC, ">$dest_dir/$section/index.$lang.html") or
+		       print "Couldn't open index.$lang.html in section $section\n";
+		sysopen(FILEH_SEC, "$dest_dir/$section/index.$lang.html", O_WRONLY | O_TRUNC | O_CREAT, 0664) || die "Can\'t open file $dest_dir/$section/index.$lang.html: $!";
 		$section_page =~ s/LAST_MODIFIED_DATE/$now_time/;
 		print FILEH_SEC $section_page;
 		close FILEH_SEC;
diff -ru orig/update-files new/update-files
--- orig/update-files	Wed Dec 26 14:34:55 2001
+++ new/update-files	Wed Dec 26 14:40:10 2001
@@ -38,3 +38,19 @@
 #      gunzip -c Sources.gz > experimental/${sect}.Sources.non-US; } || true
 done
 rm -f Packages.gz Sources.gz
+
+for lang in ${ddtp_langs}; do
+  test -d ${lang} || mkdir -p ${lang}
+  for dist in unstable testing ${frozen} stable; do
+    test -d ${lang}/${dist} || mkdir -p ${lang}/${dist}
+    echo "getting Packages/Sources from ${lang}/${dist}"
+    for sect in main ; do
+      { wget -q -N $ddtp_ftpsite/dists/${lang}/${dist}/${sect}/binary-i386/Packages.gz && \
+        gunzip -c Packages.gz > ${lang}/${dist}/${sect}.Packages; } || true
+      { wget -q -N $ddtp_ftpsite/dists/${dist}/${sect}/source/Sources.gz && \
+        gunzip -c Sources.gz > ${lang}/${dist}/${sect}.Sources; } || true
+    done
+    rm -f Packages.gz Sources.gz
+  done
+done 
+
diff -ru orig/update-htmls new/update-htmls
--- orig/update-htmls	Wed Dec 26 14:30:09 2001
+++ new/update-htmls	Wed Dec 26 14:41:33 2001
@@ -38,3 +38,37 @@
     $filesdir/${dist}/{main,contrib,non-free}.{Packages,Sources}
   fi
 done
+
+for lang in ${ddtp_langs}; do
+  for dist in unstable testing ${frozen} stable; do
+    test -d ${htmldir}/${lang}/${dist} || mkdir -p ${htmldir}/${lang}/${dist}
+    echo "updating Packages/${lang}/${dist}"
+  
+    # weekly cleanup <sigh>
+    # if [ $hour -ge 18 -a $dow -eq 0 ] ; then
+    if [ $dow -eq 0 ] ; then
+      rm -rf $htmldir/${lang}/${dist}/*
+    fi
+  
+    # the below two URLs are *different* from $ftpsite and $nonus_ftpsite
+    if [ $dist != "experimental" ]; then
+      $script_base/create_package_pages.pl \
+      -s http://ftp.debian.org/debian \
+      -n http://non-us.debian.org/debian-non-US \
+      -h $htmldir/${lang}/${dist} \
+      -m $filesdir/md5sum.${lang}.${dist} \
+      -l $lang \
+      $filesdir/${lang}/${dist}/main.{Packages,Sources}
+    else
+      $script_base/create_package_pages.pl \
+      -s http://ftp.debian.org/debian \
+      -n http://non-us.debian.org/debian-non-US \
+      -h $htmldir/${lang}/${dist} \
+      -m $filesdir/md5sum.${lang}.${dist} \
+      -l $lang \
+      -e \
+      $filesdir/${lang}/${dist}/main.{Packages,Sources}
+    fi
+  done
+done
+
diff -ru orig/vars new/vars
--- orig/vars	Wed Dec 26 14:42:19 2001
+++ new/vars	Wed Dec 26 14:42:59 2001
@@ -10,3 +10,6 @@
 htmldir=$topdir/www
 ftpsite=http://ftp.debian.org/debian
 nonus_ftpsite=http://ftp.uk.debian.org/debian/non-US
+ddtp_ftpsite=http://ddtp.debian.org/aptable
+ddtp_langs="fr ja de pt_BR"
+

Attachment: pgpfdt3PcEPVe.pgp
Description: PGP signature

Reply to: