@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phpmyadmin-ubuntu-m-2vcpu-16gb-blr1-01 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Current Path :
/
usr
/
share
/
doc
/
popularity-contest
/
examples
/
bin
/
Path :
Upload File :
New :
File
Dir
//usr/share/doc/popularity-contest/examples/bin/gensections.pl
#! /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"; }