| Server IP : 127.0.0.2 / Your IP : 18.119.99.38 Web Server : Apache/2.4.18 (Ubuntu) System : User : www-data ( ) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : disk_free_space,disk_total_space,diskfreespace,dl,exec,fpaththru,getmyuid,getmypid,highlight_file,ignore_user_abord,leak,listen,link,opcache_get_configuration,opcache_get_status,passthru,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,php_uname,phpinfo,posix_ctermid,posix_getcwd,posix_getegid,posix_geteuid,posix_getgid,posix_getgrgid,posix_getgrnam,posix_getgroups,posix_getlogin,posix_getpgid,posix_getpgrp,posix_getpid,posix,_getppid,posix_getpwnam,posix_getpwuid,posix_getrlimit,posix_getsid,posix_getuid,posix_isatty,posix_kill,posix_mkfifo,posix_setegid,posix_seteuid,posix_setgid,posix_setpgid,posix_setsid,posix_setuid,posix_times,posix_ttyname,posix_uname,pclose,popen,proc_open,proc_close,proc_get_status,proc_nice,proc_terminate,shell_exec,source,show_source,system,virtual MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/lib/mc/extfs.d/ |
Upload File : |
#! /usr/bin/perl
#
# 1999 (c) Piotr Roszatycki <dexter@debian.org>
# This software is under GNU license
# last modification: 1999-12-08
#
# deba
sub quote {
$_ = shift(@_);
s/([^\w\/.+-])/\\$1/g;
return($_);
}
sub list
{
my($qarchive)=@_;
$qarchive = quote($qarchive);
chop($date=`LC_ALL=C date "+%m-%d-%Y %H:%M"`);
chop($info_size=`apt-cache show $qarchive | wc -c`);
$install_size=length($pressinstall);
$upgrade_size=length($pressupgrade);
print "-r--r--r-- 1 root root $info_size $date INFO\n";
chop($debd = `dpkg -s $qarchive | grep -i ^Version | sed 's/^version: //i'`);
chop($deba = `apt-cache show $qarchive | grep -i ^Version | sed 's/^version: //i'`);
if( ! $debd ) {
print "-r-xr--r-- 1 root root $install_size $date INSTALL\n";
} elsif( $debd ne $deba ) {
print "-r-xr--r-- 1 root root $upgrade_size $date UPGRADE\n";
}
}
sub copyout
{
my($archive,$filename,$destfile)=@_;
my $qarchive = quote($archive);
my $qdestfile = quote($destfile);
if($filename eq "INFO") {
system("apt-cache show $qarchive > $qdestfile");
} elsif($filename eq "INSTALL") {
if ( open(FILEOUT, "> $destfile") ) {
print FILEOUT $pressinstall;
close FILEOUT;
system("chmod a+x $qdestfile");
}
} elsif($filename eq "UPGRADE") {
if ( open(FILEOUT, ">, $destfile") ) {
print FILEOUT $pressupgrade;
close FILEOUT;
system("chmod a+x $qdestfile");
}
} else {
die "extfs: $filename: No such file or directory\n";
}
}
sub run
{
my($archive,$filename)=@_;
my $qarchive = quote($archive);
if($filename eq "INSTALL") {
system("apt-get install $qarchive");
} elsif($filename eq "UPGRADE") {
system("apt-get install $qarchive");
} else {
die "extfs: $filename: Permission denied\n";
}
}
$pressinstall=<<EOInstall;
WARNING
Don\'t use this method if you are not willing to install this package...
This is not a real file. It is a way to install the package you are browsing.
To install this package go back to the panel and press Enter on this file.
EOInstall
$pressupgrade=<<EOInstall;
WARNING
Don\'t use this method if you are not willing to upgrade this package...
This is not a real file. It is a way to upgrade the package you are browsing.
To upgrade this package go back to the panel and press Enter on this file.
EOInstall
umask 077;
chop($name = `if [ -f "$ARGV[1]" ]; then cat $ARGV[1]; else echo $ARGV[1]; fi`);
$name =~ s%.*/([0-9a-z.-]*)_.*%$1%;
exit 1 unless $name;
if($ARGV[0] eq "list") { &list($name); exit 0; }
elsif($ARGV[0] eq "copyout") { ©out($name,$ARGV[2],$ARGV[3]); exit 0; }
elsif($ARGV[0] eq "run") { &run($name,$ARGV[2]); exit 0; }
exit 1;