⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.184
Server IP:
65.21.180.239
Server:
Linux gowhm.eplangoweb.com 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.0.30
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
popularity-contest
/
examples
/
bin
/
Edit File: 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"; }
Simpan