OXIESEC PANEL
- Current Dir:
/
/
snap
/
core
/
17200
/
usr
/
sbin
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
06/06/2024 02:31:58 PM
rwxr-xr-x
📄
aa-exec
22.16 KB
06/29/2023 11:30:47 AM
rwxr-xr-x
📄
aa-remove-unknown
2.86 KB
06/29/2023 11:30:39 AM
rwxr-xr-x
📄
aa-status
7.11 KB
06/29/2023 11:30:39 AM
rwxr-xr-x
📄
add-shell
695 bytes
01/26/2016 06:17:55 PM
rwxr-xr-x
📄
addgroup
36.4 KB
07/02/2015 08:11:22 PM
rwxr-xr-x
📄
adduser
36.4 KB
07/02/2015 08:11:22 PM
rwxr-xr-x
📄
apparmor_status
7.11 KB
06/29/2023 11:30:39 AM
rwxr-xr-x
📄
arp
54.09 KB
06/30/2014 01:19:24 PM
rwxr-xr-x
📄
arpd
46.74 KB
04/16/2019 12:37:11 PM
rwxr-xr-x
📄
chat
26.01 KB
07/23/2020 03:09:52 PM
rwxr-xr-x
📄
chgpasswd
53.33 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
chpasswd
49.43 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
chroot
38.8 KB
03/02/2017 06:07:22 PM
rwxr-xr-x
📄
cpgr
51.48 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
cppw
51.48 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
cron
43.43 KB
05/10/2022 10:15:25 PM
rwxr-xr-x
📄
delgroup
16.13 KB
07/02/2015 08:11:22 PM
rwxr-xr-x
📄
deluser
16.13 KB
07/02/2015 08:11:22 PM
rwxr-xr-x
📄
dnsmasq
379.6 KB
04/18/2023 08:21:30 AM
rwxr-xr-x
📄
dpkg-divert
0 bytes
01/01/1970 12:00:00 AM
---------
📄
dpkg-preconfigure
3.52 KB
05/08/2019 06:33:33 PM
rwxr-xr-x
📄
dpkg-reconfigure
4.23 KB
05/08/2019 06:33:33 PM
rwxr-xr-x
📄
dpkg-statoverride
0 bytes
01/01/1970 12:00:00 AM
---------
📄
e2freefrag
10.24 KB
06/03/2022 08:47:31 PM
rwxr-xr-x
📄
e4defrag
26.53 KB
06/03/2022 08:47:31 PM
rwxr-xr-x
📄
faillock
14.4 KB
02/02/2023 06:52:20 PM
rwxr-xr-x
📄
fanatic
35.21 KB
12/12/2017 04:13:01 PM
rwxr-xr-x
📄
fanctl
41.97 KB
04/23/2019 10:35:14 AM
rwxr-xr-x
📄
fdformat
22.57 KB
06/14/2022 09:28:54 PM
rwxr-xr-x
📄
filefrag
14.31 KB
06/03/2022 08:47:31 PM
rwxr-xr-x
📄
genl
46.69 KB
04/16/2019 12:37:11 PM
rwxr-xr-x
📄
groupadd
57.42 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
groupdel
65.83 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
groupmod
67.7 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
grpck
53.31 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
grpconv
49.19 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
grpunconv
49.2 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
iconvconfig
26.66 KB
11/28/2023 02:47:37 PM
rwxr-xr-x
📄
invoke-rc.d
19.41 KB
11/29/2016 05:28:22 PM
rwxr-xr-x
📄
ip6tables-apply
6.85 KB
02/19/2016 03:20:21 PM
rwxr-xr-x
📄
iptables-apply
6.85 KB
02/19/2016 03:20:21 PM
rwxr-xr-x
📄
ldattach
26.63 KB
06/14/2022 09:28:54 PM
rwxr-xr-x
📄
logrotate
63.11 KB
08/10/2017 03:16:07 PM
rwxr-xr-x
📄
mkinitramfs
10.24 KB
10/07/2019 10:53:35 AM
rwxr-xr-x
📄
mklost+found
10.25 KB
06/03/2022 08:47:31 PM
rwxr-xr-x
📄
netplan
17.94 KB
09/27/2019 04:27:57 PM
rwxr-xr-x
📄
newusers
73.84 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
nfnl_osf
14.37 KB
02/19/2016 03:21:11 PM
rwxr-xr-x
📄
nologin
5.95 KB
02/07/2024 10:59:50 AM
rwxr-xr-x
📄
pam-auth-update
19.09 KB
02/02/2023 06:50:45 PM
rwxr-xr-x
📄
pam_getenv
2.82 KB
02/02/2023 06:50:45 PM
rwxr-xr-x
📄
pam_timestamp_check
10.38 KB
02/02/2023 06:52:20 PM
rwxr-xr-x
📄
pppd
385.73 KB
07/23/2020 03:09:52 PM
rwxr-xr--
📄
pppdump
18.1 KB
07/23/2020 03:09:52 PM
rwxr-xr-x
📄
pppoe-discovery
18 KB
07/23/2020 03:09:52 PM
rwxr-xr-x
📄
pppstats
13.99 KB
07/23/2020 03:09:51 PM
rwxr-xr-x
📄
pwck
45.36 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
pwconv
41.27 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
pwunconv
36.43 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
readprofile
14.52 KB
06/14/2022 09:28:54 PM
rwxr-xr-x
📄
remove-shell
749 bytes
01/26/2016 06:17:55 PM
rwxr-xr-x
📄
rfkill
10.29 KB
06/20/2018 11:54:19 AM
rwxr-xr-x
📄
rmt
54.95 KB
12/06/2023 12:12:24 PM
rwxr-xr-x
📄
rmt-tar
54.95 KB
12/06/2023 12:12:24 PM
rwxr-xr-x
📄
rsyslogd
585.28 KB
05/23/2022 05:31:02 PM
rwxr-xr-x
📄
rtcwake
38.8 KB
06/14/2022 09:28:54 PM
rwxr-xr-x
📄
service
9.82 KB
09/12/2016 08:57:57 AM
rwxr-xr-x
📄
setvesablank
10.27 KB
09/22/2016 05:33:23 PM
rwxr-xr-x
📄
sshd
772.48 KB
01/09/2024 03:07:56 PM
rwxr-xr-x
📄
tarcat
936 bytes
12/06/2023 12:12:23 PM
rwxr-xr-x
📄
tunelp
22.53 KB
06/14/2022 09:28:54 PM
rwxr-xr-x
📄
tzconfig
106 bytes
01/03/2024 12:40:26 PM
rwxr-xr-x
📄
update-alternatives
46.61 KB
05/27/2022 10:37:03 AM
rwxr-xr-x
📄
update-ca-certificates
5.25 KB
05/24/2023 12:18:18 PM
rwxr-xr-x
📄
update-initramfs
8.38 KB
10/07/2019 10:53:35 AM
rwxr-xr-x
📄
update-mime
8.84 KB
10/30/2015 03:39:30 PM
rwxr-xr-x
📄
update-passwd
30.41 KB
01/02/2016 11:13:25 PM
rwxr-xr-x
📄
update-rc.d
14.1 KB
02/29/2016 12:24:38 PM
rwxr-xr-x
📄
useradd
118.72 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
userdel
81.92 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
usermod
118.5 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
vcstime
6.26 KB
09/22/2016 05:33:23 PM
rwxr-xr-x
📄
vigr
55.7 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
vipw
55.7 KB
02/07/2024 10:59:49 AM
rwxr-xr-x
📄
visudo
187.89 KB
05/24/2023 01:48:57 PM
rwxr-xr-x
📄
zic
50.54 KB
11/28/2023 02:47:37 PM
rwxr-xr-x
Editing: update-mime
Close
#! /usr/bin/perl ############################################################################### # # Update-MIME: Install programs into "/etc/mailcap", resolve conflicts, # auto-uninstall, make dinner, and wash dishes. # # Written by Brian White <bcwhite@pobox.com>. # # This program has been placed in the public domain (the only true "free"). # Do whatever you wish with it, though I'd appreciate it if my name stayed # on it as the original author. # ############################################################################### umask(022); # # Program Constants # $debug = 0; $conffile = "/etc/update-mime.conf"; $mailcap = "/etc/mailcap"; $mailcapdef = "/usr/lib/mime/mailcap"; $mimedir = "/usr/lib/mime/packages"; $appsdir = "/usr/share/applications"; $orderfile = "/etc/mailcap.order"; $defpriority = 5; $localgen = 0; # If the call comes from dpkg, only accept it if --triggered is passed # This is so that we don't get useless calls from packages' postinsts # that call update-mime due to dh_installmime adding that call for # when there was no triggers support. # # When this 'hack' is removed, mime-support's postinst should be updated # to not pass --triggered anymore in 'triggered'. if ($ENV{"DPKG_RUNNING_VERSION"} ne "" && $ARGV[0] ne "--triggered") { exit (0); } # Allow local run if ($ARGV[0] eq "--local") { $conffile = "$ENV{HOME}/.update-mime.conf"; $mailcap = "$ENV{HOME}/.mailcap"; $orderfile = "$ENV{HOME}/.mailcap.order"; $localgen = 1; } # # Allow local customizations # do $conffile if -f $conffile; # # Global Variables # %entries; %packages; %priorities; @order; $counter=1; sub ReadEntries { my($pkg,$priority); # foreach $file (glob "$mimedir/*") { foreach $file (map { glob $_.'/*' } split ':',$mimedir) { next if ($file =~ m!(^|/)(\.|\#)|(\~)$!); ($pkg) = ($file =~ m|/([^/]*)$|); print STDERR "$pkg:\n" if $debug; if (!defined $packages{$pkg}) { $packages{$pkg} = []; } if (open(FILE,"<$file")) { while (<FILE>) { chomp; next if m/^\s*$|^\s*\#/; if (! m(^[a-zA-Z0-9*][a-zA-Z0-9!#\$&^_.+-]*/[a-zA-Z0-9*][a-zA-Z0-9!#\$&^_.+-]*;) ) { print STDERR "Warning: mailcap line not starting with a media type in $pkg\n"; print STDERR "Problematic line: $_\n"; } if (m/priority\s*=\s*(\d+)\s*($|;)/i) { $priority=$1; } else { $priority=$defpriority; } if ($priority < 0 || $priority > 9) { print STDERR "Error: priority of $priority is out of range (0 <= pri <= 9)\n"; print STDERR " $_\n"; $priority=$defpriority; } $entries{$counter} = $_; push @{$packages{$pkg}},$counter; push @{$priorities{$priority}},$counter; print STDERR "$counter: $_\n" if $debug; $counter++; } close(FILE); } else { print STDERR "Warning: could not open file '$file' -- $!\n"; } } } sub RecurseIntoDirectories { my @files; foreach my $dir (@_) { next if ($dir =~ m!(^|/)(\.|\#)|(\~)$!); my @entries = glob "$dir/*"; push @files, RecurseIntoDirectories(grep { -d $_ } @entries); push @files, grep { -f $_ } @entries; } return @files; } sub ReadDesktopEntries { my($pkg,$priority); foreach $file (RecurseIntoDirectories(split ':',$appsdir)) { next if ($file =~ m!(^|/)(\.|\#)|(\~)$!); next unless ($file =~ m/\.desktop$/); ($pkg) = ($file =~ m|/([^/]*)\.desktop$|); print STDERR "$pkg:\n" if $debug; next if (defined $packages{$pkg}); $packages{$pkg} = []; if (open(FILE,"<$file")) { my($terminal, $name, $icon, $exec, @types) = ("test=test -n \"\$DISPLAY\"", $pkg); while (<FILE>) { chomp; next if (m/^\s*$|^\s*\#/); if (m/^Terminal=(\w+)/i) { $terminal = "needsterminal" if ($1 eq "true"); } elsif (m/^Name=(.+)/i) { $name = $1; } elsif (m/^Icon=(.+)/i) { $icon = $1; } elsif (m/Exec=(.*)$/i) { $exec = $1; $exec =~ s/%[fFuU]/%s/g; $exec .= " %s" if ($exec !~ m/%s/); } elsif (m/MimeType=(.*)/i) { push @types, split(/;/, $1); } } if (!defined($exec) || !scalar(@types)) { close(FILE); next; } $exec =~ s/%c/$name/g; $exec =~ s/%i/--icon $icon/g; foreach $type (@types) { my $entry = "$type; $exec; $terminal"; $priority=$defpriority; $entries{$counter} = $entry; push @{$packages{$pkg}},$counter; push @{$priorities{$priority}},$counter; print STDERR "$counter: $entry\n" if $debug; $counter++; } close(FILE); } else { print STDERR "Warning: could not open file '$file' -- $!\n"; } } } sub ReadOrder { if (-e $orderfile) { if (open(FILE,"<$orderfile")) { while (<FILE>) { chomp; s/\s*\#.*$//; next if m/^\s*$/; push @order,$_; /(.*):/; my $pkg = $1; unless( grep {/^$pkg$/} keys(%packages)) { print STDERR "Warning: package $pkg listed in /etc/mailcap.order does not have mailcap entries.\n"; } } close(FILE); } else { print STDERR "Warning: could not open file '$orderfile' -- $!\n"; } } } sub OrderEntries { my(@entrylist,@orderlist,@templist,$priority,$entrycode,$ordercode); foreach $priority (sort {$b <=> $a} keys %priorities) { print STDERR " - Priority $priority:" if $debug; @templist = @{$priorities{$priority}}; @templist = sort { $ae = $entries{$a}; $ac = 0; $ac += 1 if $ae =~ m!^\S+/\*!; $ac += 2 if $ae =~ m!^\*/!; $be = $entries{$b}; $bc = 0; $bc += 1 if $be =~ m!^\S+/\*!; $bc += 2 if $be =~ m!^\*/!; $ac <=> $bc; } @templist; foreach $entry (@templist) { print STDERR " $entry" if $debug; push @entrylist,$entry; } print STDERR "\n" if $debug; } print STDERR "entrylist: @entrylist\n" if $debug; foreach $ordercode (@order) { my($pkg,$typ); if ($ordercode =~ m/:/) { ($pkg,$typ) = ($ordercode =~ m/^(.*):(\S*)/); } else { $pkg = $ordercode; $typ = "*/*"; } $typ = "*/*" unless $typ; print STDERR " - Ordering '$ordercode'... (package=$pkg, type=$typ, orderlist=@orderlist)\n" if $debug; $typ =~ s/\*/\.\*/g; foreach $entrycode (@entrylist) { next if grep(/^\Q$entrycode\E$/,@orderlist); print STDERR " - Checking entrycode '$entrycode' against (@{$packages{$pkg}})...\n" if $debug; if (grep(/^\Q$entrycode\E$/,@{$packages{$pkg}})) { $entry = $entries{$entrycode}; my($etype) = ($entry =~ m/^(.*?)(;|\s)/); print STDERR " - entry found, type=$etype, checking against '$typ'\n" if $debug; if ($etype =~ m!^$typ$!) { # print STDERR " - matched!\n" if $debug; # my($oaction) = ($ordercode =~ m/action=([^\s;]*)/i); # my($eaction) = ($entry =~ m/action=([^\s;]*)/i); # $eaction="view" unless $eaction; # print STDERR " - checking entry action '$eaction' against '$oaction'\n" if $debug; # if (!$oaction || $eaction =~ m/^($oaction)$/) { push @orderlist,$entrycode; print STDERR " - matched! (orderlist=@orderlist)\n" if $debug; # } } } } } foreach $entrycode (@entrylist) { next if grep(/^\Q$entrycode\E$/,@orderlist); push @orderlist,$entrycode; } print STDERR "orderlist: @orderlist\n" if $debug; return @orderlist; } # # Generate new mailcap file # sub UpdateMailcap { my(@entrylist) = @_; my(@above,@user,@below,$state,$entrycode); $state = 0; if (!open(PATH,"<$mailcap")) { if (!open(PATH,"<$mailcapdef")) { # print STDERR "Warning: could not read '$mailcap' (update stopped) -- $!\n"; # print STDERR " restore from backup or delete and re-install mime-support package"; return; } } while (<PATH>) { s/install-mime/update-mime/g; if ($state == 0) { push @above,$_; } $state=2 if ($state == 1 && /^\# ----- .* Ends /); if ($state == 1) { push @user,$_; } $state=1 if ($state == 0 && /^\# ----- .* Begins /); if ($state == 2) { push @below,$_; } $state=3 if ($state == 2); } close PATH; if ($state == 3) { my $newfile = join('',@above,@user,@below); $newfile .= "\n###############################################################################\n\n"; foreach $entrycode (@entrylist) { my $entry = $entries{$entrycode}; $entry =~ s/\s*priority\s*=\s*\d+\s*($|;)//; $entry =~ s/\s*;\s*$//; $newfile .= $entry."\n"; } if (!open(PATH,">$mailcap.new")) { print STDERR "Error: could not write '$mailcap.new' -- $!\n"; exit(1) unless ($debug); open(PATH,">-"); } print PATH $newfile; close PATH; if (!open(PATH,"<$mailcap.new")) { die "Error: could not read generated '$mailcap.new' -- $!\n"; } my $savfile = ""; $savfile .= $_ while (<PATH>); if ($savfile ne $newfile) { die "Error: contents of '$mailcap.new' do not match what was written -- abort\n"; } rename "$mailcap.new","$mailcap"; } else { print STDERR "Error: '$mailcap' is not in required format -- not updated\n"; print STDERR " Restore from backup or delete and re-install mime-support package"; } } ReadEntries(); ReadDesktopEntries(); ReadOrder(); @list = OrderEntries(); UpdateMailcap(@list);