FM / extfs.d

/usr/lib/mc/extfs.d

Name	Size	Mode	Actions
a+	3206	0755	edit dl rm
apt+	9726	0755	edit dl rm
audio	1319	0755	edit dl rm
bpp	1207	0755	edit dl rm
changesetfs	2562	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+	782	0755	edit dl rm
hp48+	3660	0755	edit dl rm
iso9660	5952	0755	edit dl rm
lslR	1437	0755	edit dl rm
mailfs	5841	0755	edit dl rm
patchfs	11277	0755	edit dl rm
patchsetfs	2310	0755	edit dl rm
README	7540	0644	edit dl rm
README.extfs	1154	0644	edit dl rm
rpm	14257	0755	edit dl rm
rpms+	1509	0755	edit dl rm
s3+	13082	0755	edit dl rm
trpm	7836	0755	edit dl rm
u7z	4880	0755	edit dl rm
uace	1507	0755	edit dl rm
ualz	1279	0755	edit dl rm
uar	1323	0755	edit dl rm
uarc	1827	0755	edit dl rm
uarj	1654	0755	edit dl rm
uc1541	22746	0755	edit dl rm
ucab	733	0755	edit dl rm
uha	968	0755	edit dl rm
ulha	3869	0755	edit dl rm
ulib	2825	0755	edit dl rm
unar	1242	0755	edit dl rm
urar	4496	0755	edit dl rm
uwim	5208	0755	edit dl rm
uzip	15269	0755	edit dl rm
uzoo	1600	0755	edit dl rm

Edit: /usr/lib/mc/extfs.d/deba (3074B)

#! /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") { &copyout($name,$ARGV[2],$ARGV[3]); exit 0; }
elsif($ARGV[0] eq "run") { &run($name,$ARGV[2]); exit 0; }

exit 1;

#! /usr/bin/perl # # 1999 (c) Piotr Roszatycki # 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=<