[Debian-l10n-commits] r2719 - in /ddtp-web: Changelog Packages2packages_tb.pl Packages2packages_tb.sh packages_tb2Packages.pl

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Mon Jul 25 16:48:21 2011
New Revision: 2719

URL: http://svn.debian.org/wsvn/?sc=1&rev=2719
Log:
	* Packages2packages_tb.sh: Redirect errors to stderr.
	* Packages2packages_tb.pl: Redirect messages to stdout.
	* packages_tb2Packages.pl: Redirect messages to stdout.
	* packages_tb2Packages.pl: Remove open_stdout(). open is just one
	line.

Modified:
    ddtp-web/Changelog
    ddtp-web/Packages2packages_tb.pl
    ddtp-web/Packages2packages_tb.sh
    ddtp-web/packages_tb2Packages.pl

Modified: ddtp-web/Changelog
URL: http://svn.debian.org/wsvn/ddtp-web/Changelog?rev=2719&op=diff
==============================================================================
--- ddtp-web/Changelog (original)
+++ ddtp-web/Changelog Mon Jul 25 16:48:21 2011
@@ -1,3 +1,11 @@
+2011-07-25  Nicolas Francois  <nicolas.francois at centraliens.net>
+
+	* Packages2packages_tb.sh: Redirect errors to stderr.
+	* Packages2packages_tb.pl: Redirect messages to stdout.
+	* packages_tb2Packages.pl: Redirect messages to stdout.
+	* packages_tb2Packages.pl: Remove open_stdout(). open is just one
+	line.
+
 2011-07-25  Nicolas Francois  <nicolas.francois at centraliens.net>
 
 	* file2Translation.pl: Remove dead code. md5_hex not used.

Modified: ddtp-web/Packages2packages_tb.pl
URL: http://svn.debian.org/wsvn/ddtp-web/Packages2packages_tb.pl?rev=2719&op=diff
==============================================================================
--- ddtp-web/Packages2packages_tb.pl (original)
+++ ddtp-web/Packages2packages_tb.pl Mon Jul 25 16:48:21 2011
@@ -18,14 +18,14 @@
 
 sub load_packages
 {
-  print STDERR " Loading package file ";
+  print " Loading package file ";
   my $fh = open_stdin( );
   parse_header_format( $fh, \&process_package );
   close $fh;
   my $sth = $dbh->prepare("SELECT count(packages_id) FROM packages_tb");
   $sth->execute;
   my ($counter) = $sth->fetchrow_array;
-  print STDERR "  -> $counter packages in packages_tb\n";
+  print "  -> $counter packages in packages_tb\n";
 }
 
 # Helper for load_packages

Modified: ddtp-web/Packages2packages_tb.sh
URL: http://svn.debian.org/wsvn/ddtp-web/Packages2packages_tb.sh?rev=2719&op=diff
==============================================================================
--- ddtp-web/Packages2packages_tb.sh (original)
+++ ddtp-web/Packages2packages_tb.sh Mon Jul 25 16:48:21 2011
@@ -19,7 +19,7 @@
 
 			echo `date`: ${distribution}/${part}/$arch
 			[ -s $file.bz2 ] && mv $file.bz2 Packages/Packages.bz2
-			wget -P Packages -q -m -nd http://ftp.de.debian.org/debian/dists/${distribution}/${part}/binary-$arch/Packages.bz2 || echo `date`: "Failed to download ${distribution}/${part}/$arch"
+			wget -P Packages -q -m -nd http://ftp.de.debian.org/debian/dists/${distribution}/${part}/binary-$arch/Packages.bz2 || echo `date`: "Failed to download ${distribution}/${part}/$arch" 2>
 			[ -s Packages/Packages.bz2 ] && mv Packages/Packages.bz2 $file.bz2
 			echo `date`: Packages file downloaded
 		done

Modified: ddtp-web/packages_tb2Packages.pl
URL: http://svn.debian.org/wsvn/ddtp-web/packages_tb2Packages.pl?rev=2719&op=diff
==============================================================================
--- ddtp-web/packages_tb2Packages.pl (original)
+++ ddtp-web/packages_tb2Packages.pl Mon Jul 25 16:48:21 2011
@@ -23,8 +23,9 @@
 {
   my ($package,$source,$version,$tag,$priority,$maintainer,$task,$section,$description);
 
-  print STDERR " Export package file \n";
-  my $fh = open_stdout( );
+  print " Export package file \n";
+  my $fh;
+  open $fh, "| bzip2 " or die "Couldn't pipe to bzip2 ($!)\n";
 
   my $sth = $dbh->prepare("SELECT package,source,version,tag,priority,maintainer,task,section,description FROM packages_tb ORDER BY package");
   $sth->execute;
@@ -43,13 +44,3 @@
   close $fh;
 }
 
-# Helper for load_packages
-sub open_stdout
-{
-  my $fh;
- 
-  open $fh, "| bzip2 " or die "Couldn't open stdout ($!)\n";
-  
-  return $fh;
-}
-