FM / extfs.d

/usr/libexec/mc/extfs.d

Name	Size	Mode	Actions
a+	3206	0755	edit dl rm
apt+	9726	0755	edit dl rm
audio	1323	0755	edit dl rm
bpp	1210	0755	edit dl rm
changesetfs	2566	0755	edit dl rm
deb	5534	0755	edit dl rm
deba	3074	0755	edit dl rm
debd	10503	0755	edit dl rm
dpkg+	8998	0755	edit dl rm
gitfs+	786	0755	edit dl rm
hp48+	3665	0755	edit dl rm
iso9660	5956	0755	edit dl rm
lslR	1441	0755	edit dl rm
mailfs	5841	0755	edit dl rm
patchfs	11277	0755	edit dl rm
patchsetfs	2314	0755	edit dl rm
README	7540	0644	edit dl rm
README.extfs	1154	0644	edit dl rm
rpm	14260	0755	edit dl rm
rpms+	1509	0755	edit dl rm
trpm	7839	0755	edit dl rm
u7z	4826	0755	edit dl rm
uace	1511	0755	edit dl rm
ualz	1284	0755	edit dl rm
uar	1327	0755	edit dl rm
uarc	1831	0755	edit dl rm
uarj	1658	0755	edit dl rm
ucab	737	0755	edit dl rm
uha	973	0755	edit dl rm
ulha	3873	0755	edit dl rm
ulib	2825	0755	edit dl rm
unar	1246	0755	edit dl rm
urar	4477	0755	edit dl rm
uwim	5212	0755	edit dl rm
uzip	15263	0755	edit dl rm
uzoo	1604	0755	edit dl rm

Edit: /usr/libexec/mc/extfs.d/apt+ (9726B)

#! /usr/bin/perl
#
# 1999 (c) Piotr Roszatycki <dexter@debian.org>
# This software is under GNU license
# last modification: 1999-12-08
#
# apt

sub quote {
    $_ = shift(@_);
    s/([^\w\/.+-])/\\$1/g;
    return($_);
}

sub bt
{
    my ($dt) = @_;
    my (@time);
    @time = localtime($dt);
    $bt = sprintf "%02d-%02d-%d %02d:%02d", $time[4] + 1, $time[3],
		  $time[5] + 1900, $time[2], $time[1];
    return $bt;
}

sub ft
{
    my ($f) = @_;
    return "d" if -d $f;
    return "l" if -l $f;
    return "p" if -p $f;
    return "S" if -S $f;
    return "b" if -b $f;
    return "c" if -c $f;
    return "-";
}

sub fm
{
    my ($n) = @_;
    my ($m);

if( $n & 0400 ) {
       $m .= "r";
    } else {
       $m .= "-";
    }
    if( $n & 0200 ) {
       $m .= "w";
    } else {
       $m .= "-";
    }
    if( $n & 04000 ) {
       $m .= "s";
    } elsif( $n & 0100 ) {
       $m .= "x";
    } else {
       $m .= "-";
    }

if( $n & 0040 ) {
       $m .= "r";
    } else {
       $m .= "-";
    }
    if( $n & 0020 ) {
       $m .= "w";
    } else {
       $m .= "-";
    }
    if( $n & 02000 ) {
       $m .= "s";
    } elsif( $n & 0010 ) {
       $m .= "x";
    } else {
       $m .= "-";
    }

if( $n & 0004 ) {
       $m .= "r";
    } else {
       $m .= "-";
    }
    if( $n & 0002 ) {
       $m .= "w";
    } else {
       $m .= "-";
    }
    if( $n & 01000 ) {
       $m .= "t";
    } elsif( $n & 0001 ) {
       $m .= "x";
    } else {
       $m .= "-";
    }

return $m;
}

sub ls {
    my ($file,$path,$mode) = @_;

if (-f $file) {
	my @stat = stat(_);
	# mode, nlink, uid, gid, size, mtime, filename
	printf "%s %d %d %d %d %s %s\n", $mode || ft($file).fm($stat[2] & 07777),
	  $stat[3], $stat[4], $stat[5], $stat[7], bt($stat[9]), $path;
    }
}

$DATE=bt(time());

sub list
{
    my ($pkg, $fn, $dn, $sz, $bt);

my($check,$stats,$config);
    chop($check = `apt-get -q check 2>/dev/null`);
    chop($available = `apt-cache dumpavail 2>/dev/null`);
    chop($stats = `apt-cache stats 2>/dev/null`);
    chop($config = `apt-config dump 2>&1`);
    $sz = length($check);
    print "-r--r--r-- 1 root root $sz $DATE CHECK\n";
    $sz = length($available);
    print "-r--r--r-- 1 root root $sz $DATE AVAILABLE\n";
    $sz = length($stats);
    print "-r--r--r-- 1 root root $sz $DATE STATS\n";
    $sz = length($config);
    print "-r--r--r-- 1 root root $sz $DATE CONFIG\n";
    $sz = length($pressupdate);
    print "-r-xr--r-- 1 root root $sz $DATE UPDATE\n";
    $sz = length($pressupgrade);
    print "-r-xr--r-- 1 root root $sz $DATE UPGRADE\n";
    print "-r-xr--r-- 1 root root $sz $DATE DIST-UPGRADE\n";

ls("/etc/apt/sources.list","sources.list");
    ls('/etc/apt/apt.conf','apt.conf') if (-f '/etc/apt/apt.conf');

print "drwxr-xr-x 1 root root 0 $DATE all\n";

if ( open(PIPEIN, "find /var/cache/apt/archives -type f |") ) {
       while(<PIPEIN>) {
           chop;
           next if /\/lock$/;
	   my $file = $_;
           s%/var/cache/apt/archives/%CACHE/%;
           ls($file, $_);
       }
       close PIPEIN;
    }
    
    my %sects = ();
    my %debd = ();
    my %deba = ();

open STAT, "/var/lib/dpkg/status"
       or exit 1;
    while( <STAT> ) {
       chop;
       if( /^([\w-]*): (.*)/ ) {
           $pkg = $2 if( lc($1) eq 'package' );
           $debd{$pkg}{lc($1)} = $2;
       }
    }
    close STAT;

foreach $pkg (sort keys %debd) {
       next if $debd{$pkg}{status} =~ /not-installed/;
       $fn = $debd{$pkg}{package}. "_". $debd{$pkg}{version};
       $dn = $debd{$pkg}{section};
       if( ! $dn ) {
           $dn = "unknown";
       } elsif( $dn =~ /^(non-us)$/i ) {
           $dn .= "/main";
       } elsif( $dn !~ /\// ) {
           $dn = "main/". $dn;
       }
       unless( $sects{$dn} ) {
           my $sub = $dn;
           while( $sub =~ s!^(.*)/[^/]*$!$1! ) {
               unless( $sects{$sub} ) {
                   print "drwxr-xr-x 1 root root 0 $DATE $sub/\n";
                   $sects{$sub} = 1;
               }
           }
           print "drwxr-xr-x 1 root root 0 $DATE $dn/\n";
           $sects{$dn} = 1;
       }
       $sz = $debd{$pkg}{'status'} =~ /config-files/ ? 0 : $debd{$pkg}{'installed-size'} * 1024;
       @stat = stat("/var/lib/dpkg/info/".$debd{$pkg}{package}.".list");
       $bt = bt($stat[9]);
       print "-rw-r--r-- 1 root root $sz $bt $dn/$fn.debd\n";
       print "lrwxrwxrwx 1 root root $sz $bt all/$fn.debd -> ../$dn/$fn.debd\n";
    }

open STAT, "apt-cache dumpavail |"
       or exit 1;
    while( <STAT> ) {
       chop;
       if( /^([\w-]*): (.*)/ ) {
           $pkg = $2 if( lc($1) eq 'package' );
           $deba{$pkg}{lc($1)} = $2;
       }
    }
    close STAT;

foreach $pkg (sort keys %deba) {
       next if $deba{$pkg}{version} eq $debd{$pkg}{version};
       $fn = $deba{$pkg}{package}. "_". $deba{$pkg}{version};
       $dn = $deba{$pkg}{section};
       if( ! $dn ) {
           $dn = "unknown";
       } elsif( $dn =~ /^(non-us)$/i ) {
           $dn .= "/main";
       } elsif( $dn !~ /\// ) {
           $dn = "main/". $dn;
       }
       unless( $sects{$dn} ) {
           my $sub = $dn;
           while( $sub =~ s!^(.*)/[^/]*$!$1! ) {
               unless( $sects{$sub} ) {
                   print "drwxr-xr-x 1 root root 0 $DATE $sub/\n";
                   $sects{$sub} = 1;
               }
           }
           print "drwxr-xr-x 1 root root 0 $DATE $dn/\n";
           $sects{$dn} = 1;
       }
       $sz = $deba{$pkg}{'status'} =~ /config-files/ ? 0 : $deba{$pkg}{'installed-size'} * 1024;
       print "-rw-r--r-- 1 root root $sz $DATE $dn/$fn.deba\n";
       print "lrwxrwxrwx 1 root root $sz $DATE all/$fn.deba -> ../$dn/$fn.deba\n";
    }
}

sub copyout
{
    my($archive,$filename) = @_;
    my $qarchive = quote($archive);
    my $qfilename = quote($filename);
    if( $archive eq 'CHECK' ) {
       system("apt-get -q check > $qfilename");
    } elsif( $archive eq 'AVAILABLE' ) {
       system("apt-cache dumpavail > $qfilename");
    } elsif( $archive eq 'STATS' ) {
       system("apt-cache stats > $qfilename");
    } elsif( $archive eq 'CONFIG' ) {
       system("(apt-config dump 2>&1) > $qfilename");
    } elsif( $archive eq 'UPDATE' ) {
       open O, ">$filename";
       print O $pressupdate;
       close O;
    } elsif( $archive eq 'UPGRADE' || $archive eq 'DIST-UPGRADE' ) {
       open O, ">$filename";
       print O $pressupgrade;
       close O;
    } elsif( $archive eq 'apt.conf' ) {
       system("cp /etc/apt/apt.conf $qfilename");
    } elsif( $archive eq 'sources.list' ) {
       system("cp /etc/apt/sources.list $qfilename");
    } elsif( $archive =~ /^CACHE\// ) {
       $archive =~ s%^CACHE/%/var/cache/apt/archives/%;
       system("cp $qarchive $qfilename");
    } else {
       open O, ">$filename";
       print O $archive, "\n";
       close O;
    }
}

sub copyin
{
    my($archive,$filename) = @_;
    my $qarchive = quote($archive);
    my $qfilename = quote($filename);
    if( $archive =~ /\.deb$/ ) {
       system("dpkg -i $qfilename>/dev/null");
    } elsif( $archive eq 'apt.conf' ) {
       system("cp $qfilename /etc/apt/apt.conf");
    } elsif( $archive eq 'sources.list' ) {
       system("cp $qfilename /etc/apt/sources.list");
    } elsif( $archive =~ /^CACHE\// ) {
       $qarchive =~ s%^CACHE/%/var/cache/apt/archives/%;
       system("cp $qfilename $qarchive");
    } else {
       die "extfs: cannot create regular file \`$archive\': Permission denied\n";
    }
}

sub run
{
    my($archive,$filename) = @_;
    if( $archive eq 'UPDATE' ) {
       system("apt-get update");
    } elsif( $archive eq 'UPGRADE' ) {
       system("apt-get upgrade -u");
    } elsif( $archive eq 'DIST-UPGRADE' ) {
       system("apt-get dist-upgrade -u");
    } else {
       die "extfs: $archive: command not found\n";
    }
}

sub rm
{
    my($archive) = @_;
    my $qarchive = quote($archive);
    if( $archive =~ /^CACHE\// ) {
       $qarchive =~ s%^CACHE/%/var/cache/apt/archives/%;
       system("rm -f $qarchive");
    } elsif( $archive eq 'apt.conf' ) {
       system("rm -f /etc/apt/apt.conf");
    } elsif( $archive eq 'sources.list' ) {
       system("rm -f /etc/apt/sources.list");
    } elsif( $archive =~ /\.debd?$/ ) {
       # uncommented and changed to use dpkg - alpha
       my $qname = $qarchive;
       $qname =~ s%.*/%%g;
       $qname =~ s%_.*%%g;
       system("dpkg --remove $qname >/dev/null");
       die("extfs: $archive: Operation not permitted\n") if $? != 0;
    } else {
       die "extfs: $archive: Operation not permitted\n";
    }
}

$pressupdate=<<EOInstall;

WARNING
  Don\'t use this method if you don't want to retrieve new lists of packages.
  ==========================================================================

This is not a real file. It is a way to retrieve new lists of packages.
To update this information 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 perform an upgrade.
     ===================================================================

This is not a real file. It is a way to perform an upgrade.
To upgrade this information go back to the panel and press Enter on this file.

EOInstall

# override any locale for dates
$ENV{"LC_ALL"}="C";

if ($ARGV[0] eq "list") { list(); exit(0); }
elsif ($ARGV[0] eq "copyout") { copyout($ARGV[2], $ARGV[3]); exit(0); }
elsif ($ARGV[0] eq "copyin") { copyin($ARGV[2], $ARGV[3]); exit(0); }
elsif ($ARGV[0] eq "run") { run($ARGV[2]); exit(0); }
elsif ($ARGV[0] eq "rm") { rm($ARGV[2]); exit(0); }
exit(1);

cmd: