Browse Source

[Petter Reinholdtsen]

* Rewrite argument parsing code in popcon-upload to avoid the
     perl-modules dependency and to keep the disk footprint for popcon
     small. (Closes: #386879)
   * Translations
     - Added Bengali by Mahay Alam Khan.
     - Updated Hebrew by Lior Kaplan. Closes: #387635
     - Updated Brazilian Portuguese by Andre Luis Lopes. Closes: #389098
     - Updated Croatian by Josip Rodin. Closes: #389708
     - Updated Danish by Claus Hindsgaul. Closes: #390611
     - Updated Ukrainian by Eugeniy Meshcheryakov. Closes: #390738
     - Updated Hungarian by SZERVÁC Attila. Closes: #390746
     - Added Estonian by Siim Põder. Closes: #390973
     - Updated Macedonian by Georgi Stanojevski. Closes: #390804
     - Updated Norwegian Bokmål from Petter Reinholdtsen.
suites/ascii
Petter Reinholdtsen 16 years ago
parent
commit
c0ffc62648
  1. 5
      debian/changelog
  2. 14
      popcon-upload

5
debian/changelog

@ -1,5 +1,10 @@
popularity-contest (1.35) UNRELEASED; urgency=low
[Petter Reinholdtsen]
* Rewrite argument parsing code in popcon-upload to avoid the
perl-modules dependency and to keep the disk footprint for popcon
small. (Closes: #386879)
* Translations
- Added Bengali by Mahay Alam Khan.
- Updated Hebrew by Lior Kaplan. Closes: #387635

14
popcon-upload

@ -4,12 +4,22 @@
use strict;
use IO::Socket;
use Getopt::Std;
my %opts;
getopts("Cdu:f:", \%opts);
# Not using Getopt::Std to avoid perl-modules dependency
while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) {
shift @ARGV;
if (/^-C$/) { $opts{'C'} = 1; next }
if (/^-d$/) { $opts{'d'} = 1; next }
if (/^-u$/) { $opts{'u'} = shift; next }
if (/^-f$/) { $opts{'f'} = shift; next }
&usage("unknown option");
exit 1;
}
sub usage {
print "popcon-upload: error: @_\n" if ($#_ >= 0);
print <<"EOF";
Usage: $0 [-Cd] [-u <url>] [-f <file>]
-C send submissions in clear text, and not compressed

Loading…
Cancel
Save