[vox] Debian voting on non-free

[Ken Bloom]

--MfFXiAuoTsnnDAfZ
Content-Type: multipart/mixed; boundary="W/nzBZO5zC0uMSeA"
Content-Disposition: inline


--W/nzBZO5zC0uMSeA
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

The Debian project is voting on whether to keep the non-free section
around:

http://www.debian.org/vote/2004/vote_002

I observed that I use the following contrib software:
flashplugin-nonfree/contrib
gjdoc/contrib
libbcel-java/contrib
libcommons-logging-java/contrib
libjdepend-java/contrib
liblog4j1.2-java/contrib
liblogkit-java/contrib
liblucene-java/contrib
liblucene-java-doc/contrib
libswt2.1-gtk2-java/contrib
libxalan2-java/contrib
msttcorefonts/contrib

And the following non-free software:
ncompress/non-free
nntpcache/non-free
scilab/non-free

(Wow, I didn't know those were non-free - but nntpcache and scilab are
very important to me.)

For the curious, I'm attaching the perl script I used to figure this
out. It's a variation on the "whatbranch" script I wrote for geting
statistics about mixed testing/unstable boxes.

--=20
I usually have a GPG digital signature included as an attachment.
See http://www.gnupg.org/ for info about these digital signatures.
My key was last signed 10/14/2003. If you use GPG *please* see me about=20
signing the key. ***** My computer can't give you viruses by email. ***

--W/nzBZO5zC0uMSeA
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=whatbranch

#!/usr/bin/perl -w

$started=0;
@policies=`dpkg --get-selections | grep -v deinstall | cut -f 1 | xargs apt-cache policy`;
foreach $x ( @policies ) {
  if ($x =~ /^[a-z]/){ #matches lines with package names
    if ($started==1) { #print last package info
      print $instdist;
      print "\n";
    }
    chomp $x;  #first *chomp* off a newline
    chop $x;   #then *chop* off a colon
    print $x;
    print '/';
    $started=1;
    $instversion=0;
    $instdist="unknown";
  }
  if ($x =~ /[0-9]+\.[0-9]+/) {$instversion=0;} #match a version number
  if ($x =~ /\*\*\*/ ) {$instversion=1;} #match the current version's ***
  if ($instversion==1 && ($x =~ /http/ || $x =~ /ftp/)){ #match a url line
    if ( $x =~ /non-free/ ) {$instdist="non-free";}
    if ( $x =~ /contrib/ && $instdist ne "non-free")
       {$instdist="contrib";}
    if ( $instdist ne "non-free"
         && $instdist ne "contrib")
       {$instdist="DSFG-free";}
  }
}

#print again after the last line
print $instdist;
print "\n";

--W/nzBZO5zC0uMSeA--

--MfFXiAuoTsnnDAfZ
Content-Type: application/pgp-signature; name="signature.asc"
Content-Description: Digital signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQFAT7UWlHapveKyytERAk6OAJ99R5EYDoaofOu3hbsciJDskHq8NQCghHsr
YlZ64I6Y6RUCmA+Vy5Ettsw=
=VSq7
-----END PGP SIGNATURE-----

--MfFXiAuoTsnnDAfZ--