[Popcon-commits] cvs commit to popularity-contest by pere

[pere at cvs.alioth.debian.org]

Update of /cvsroot/popcon/popularity-contest
In directory haydn:/tmp/cvs-serv13588

Modified Files:
	popcon-upload 
Log Message:
   [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.

Index: popcon-upload
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popcon-upload,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- popcon-upload	28 Jul 2006 20:47:07 -0000	1.7
+++ popcon-upload	5 Oct 2006 11:51:52 -0000	1.8
@@ -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