Linux anchor 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64
Apache/2.4.18 (Ubuntu)
Server IP : 10.10.100.4 & Your IP : 216.73.217.150
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
popularity-contest /
examples /
bin /
Delete
Unzip
Name
Size
Permission
Date
Action
README.examples
1.36
KB
-rw-r--r--
2013-11-21 21:10
gensections.pl
508
B
-rwxr-xr-x
2013-05-16 22:53
popanal.py
7.98
KB
-rwxr-xr-x
2015-05-31 16:39
popcon-process.sh
1.91
KB
-rwxr-xr-x
2015-05-31 16:39
popcon-stat.pl
4.08
KB
-rwxr-xr-x
2015-05-31 16:39
popcon.pl
18.64
KB
-rwxr-xr-x
2015-05-31 16:39
prepop.pl
2.17
KB
-rwxr-xr-x
2015-05-31 16:39
Save
Rename
#! /usr/bin/perl -wT my $mirrorbase = "/srv/mirrors/debian"; my $docurlbase = ""; $ENV{PATH}="/bin:/usr/bin"; for (glob("$mirrorbase/dists/stable/*/binary-*/Packages.gz")) { /([^[:space:]]+)/ or die("incorrect package name"); $file = $1;#Untaint open AVAIL, "-|:encoding(UTF-8)","zcat $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"; }