#! /usr/bin/perl -wT my $mirrorbase = "/srv/mirrors/debian"; my $docurlbase = ""; $ENV{PATH}="/bin:/usr/bin"; for (glob("$mirrorbase/dists/stable/*/binary-*/Packages.xz")) { /([^[:space:]]+)/ or die("incorrect package name"); $file = $1;#Untaint open AVAIL, "-|:encoding(UTF-8)","xzcat $file"; while(<AVAIL>) { /^Package: (.+)/ and do {$p=$1;next;}; /^Section: (.+)/ or next; $section{$p}=$1; } close AVAIL; } @pkgs=sort keys %section; for (@pkgs) { print "$_ $section{$_}\n"; }
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
README.examples | File | 1.36 KB | 0644 |
|
gensections.pl | File | 509 B | 0755 |
|
popanal.py | File | 8.23 KB | 0755 |
|
popcon-process.sh | File | 2.31 KB | 0755 |
|
popcon-stat.pl | File | 4.08 KB | 0755 |
|
popcon.pl | File | 18.78 KB | 0755 |
|
prepop.pl | File | 2.2 KB | 0755 |
|