OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
popularity-contest
/
examples
/
bin
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/21/2019 03:49:14 PM
rwxr-xr-x
📄
README.examples
1.36 KB
02/21/2018 04:44:56 AM
rw-r--r--
📄
gensections.pl
509 bytes
02/21/2018 04:44:56 AM
rwxr-xr-x
📄
popanal.py
8.23 KB
02/21/2018 04:44:56 AM
rwxr-xr-x
📄
popcon-process.sh
2.31 KB
02/21/2018 04:44:56 AM
rwxr-xr-x
📄
popcon-stat.pl
4.08 KB
02/21/2018 04:44:56 AM
rwxr-xr-x
📄
popcon.pl
18.78 KB
02/21/2018 04:44:56 AM
rwxr-xr-x
📄
prepop.pl
2.2 KB
02/21/2018 04:44:56 AM
rwxr-xr-x
Editing: gensections.pl
Close
#! /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"; }