#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / libexec / mc / extfs.d /

216.73.216.50

Home

File a+

#! /usr/bin/perl -w
#
# External filesystem for mc, using mtools
# Written Ludek Brukner <lubr@barco.cz>, 1997
# Much improved by Tom Perkins <968794022@noid.net>, 2000
#
# WARNING - This software is ALPHA - Absolutely NO WARRANTY
#

# These mtools components must be in PATH for this to work

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

$mmd = "mmd";
$mrd = "mrd";
$mdel = "mdel";
$mdir = "mdir -a";
$mcopy = "mcopy -noQ";

$0 =~ s|.*/||;
$qdisk = quote($0);

$ENV{MTOOLS_DATE_STRING} = "mm-dd-yyyy";
$ENV{MTOOLS_TWENTY_FOUR_HOUR_CLOCK} = "1";

SWITCH: for ( $ARGV[0] ) {
  /list/ && do {
    @dirs = get_dirs("");
    while ($dir = shift(@dirs)) {
      push @dirs, get_dirs("$dir/");
    } exit 0; };
  /mkdir/ && do {
    shift; shift;
    exit 1 if scalar(@ARGV) != 1;
    $qname = quote($ARGV[0]);
    system("$mmd $qdisk:/$qname >/dev/null");
    exit 0; };
  /rmdir/ && do {
    shift; shift;
    exit 1 if scalar(@ARGV) != 1;
    $qname = quote($ARGV[0]);
    system("$mrd $qdisk:/$qname >/dev/null");
    exit 0; };
  /rm/ && do {
    shift; shift;
    exit 1 if scalar(@ARGV) != 1;
    $qname = quote($ARGV[0]);
    system("$mdel $qdisk:/$qname >/dev/null");
    exit 0; };
  /copyout/ && do {
    shift; shift;
    exit 1 if scalar(@ARGV) != 2;
    ( $qsrc, $qdest ) = @ARGV;
    $qsrc = quote($qsrc);
    $qdest = quote($qdest);
    system("$mcopy $qdisk:/$qsrc $qdest >/dev/null");
    exit 0; };
  /copyin/ && do {
    shift; shift;
    exit 1 if scalar(@ARGV) != 2;
    ( $qdest, $qsrc ) = @ARGV;
    $qsrc = quote($qsrc);
    $qdest = quote($qdest);
    system("$mcopy $qsrc $qdisk:/$qdest >/dev/null");
    exit 0; };
  /.*/ && do {                               # an unfamiliar command
    exit 1; };
}

sub get_dirs {
  my ($path, $name, $size, $date, $time, $longname, @lst, @rv);
  $path = shift(@_);
  my $qpath = quote($path);
  @rv = ();

open(FILE,"$mdir $qdisk:/$qpath |");
  while ( <FILE> ) {
    chomp();
    /^ / && next;                            # ignore `non-file' lines
    m{^Directory for $0:/}i && next;         # ignore `non-file' lines
    /^$/ && next;                            # ignore empty lines
    /^\.\.?/ && next;                        # ignore `.' and `..'

$name = substr($_,0,12);
    $name =~ s/^([^ ]*) +([^ ]+)[ \t]*$/$1.$2/;
    $name =~ s/[ .]+$//;

$_ = substr($_,12);
    s/^[ ]+//;

($size,$date,$time,$longname) = split(/[ \t]+/, $_, 4);

defined $time || next;

# process "am" and "pm".  Should not be needed if
    # MTOOLS_TWENTY_FOUR_HOUR_CLOCK is respected.
    @lst = split(/([:ap])/, $time);
    $lst[0] += 12 if (defined $lst[3] && $lst[3] eq "p");

$time = sprintf("%02d:%02d", $lst[0], $lst[2]);
    @lst = split(/-/, $date);
    $lst[2] %= 100 if ($lst[2] > 100);
    $date = sprintf ("%02d-%02d-%02d", @lst);

$name = $path . lc(($longname) ? $longname : $name);

if ($size =~ /DIR/) {
      printf("drwxr-xr-x   1 %-8d %-8d %8d %s %s %s\n",
        0, 0, 0, $date, $time, $name);
      push @rv, $name;
    } else {
      printf("-rw-r--r--   1 %-8d %-8d %8d %s %s %s\n",
        0, 0, $size, $date, $time, $name);
    }
  }
  close(FILE);
  return @rv;
}

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2024-06-24 01:43:03
..	DIR	-	drwxr-xr-x	2024-06-24 01:43:03
README	text/plain	7.29 KB	-rw-r--r--	2017-03-04 05:26:20
README.extfs	text/plain	1.11 KB	-rw-r--r--	2017-02-24 08:25:57
a+	text/x-perl	3.13 KB	-rwxr-xr-x	2019-10-18 08:37:56
apt+	text/x-perl	9.5 KB	-rwxr-xr-x	2019-10-18 08:37:56
audio	text/x-shellscript	1.29 KB	-rwxr-xr-x	2019-10-18 08:37:56
bpp	text/x-shellscript	1.18 KB	-rwxr-xr-x	2017-02-24 08:25:57
changesetfs	text/x-shellscript	2.5 KB	-rwxr-xr-x	2017-02-24 08:25:57
deb	text/x-perl	5.34 KB	-rwxr-xr-x	2019-10-18 08:37:56
deba	text/x-perl	3 KB	-rwxr-xr-x	2019-10-18 08:37:56
debd	text/x-perl	10.26 KB	-rwxr-xr-x	2019-10-18 08:37:56
dpkg+	text/x-perl	8.79 KB	-rwxr-xr-x	2019-10-18 08:37:56
gitfs+	text/x-shellscript	782 B	-rwxr-xr-x	2017-02-24 08:25:57
hp48+	text/x-shellscript	3.58 KB	-rwxr-xr-x	2019-10-18 08:37:56
iso9660	text/x-shellscript	5.65 KB	-rwxr-xr-x	2019-10-18 08:37:56
lslR	text/x-shellscript	1.38 KB	-rwxr-xr-x	2019-10-18 08:37:56
mailfs	text/x-perl	5.59 KB	-rwxr-xr-x	2019-10-18 08:37:56
patchfs	text/x-perl	10.88 KB	-rwxr-xr-x	2019-10-18 08:37:56
patchsetfs	text/x-shellscript	2.26 KB	-rwxr-xr-x	2017-02-24 08:25:57
rpm	text/x-shellscript	13.25 KB	-rwxr-xr-x	2017-03-04 05:26:20
rpms+	text/x-perl	1.47 KB	-rwxr-xr-x	2019-10-18 08:37:56
trpm	text/x-shellscript	7.65 KB	-rwxr-xr-x	2017-02-24 08:25:57
u7z	text/x-shellscript	4.71 KB	-rwxr-xr-x	2017-03-04 05:26:20
uace	text/x-shellscript	1.47 KB	-rwxr-xr-x	2019-10-18 08:37:56
ualz	text/x-shellscript	1.25 KB	-rwxr-xr-x	2019-10-18 08:37:56
uar	text/x-shellscript	1.29 KB	-rwxr-xr-x	2019-10-18 08:37:56
uarc	text/x-shellscript	1.79 KB	-rwxr-xr-x	2019-10-18 08:37:56
uarj	text/x-shellscript	1.62 KB	-rwxr-xr-x	2019-10-18 08:37:56
ucab	text/x-shellscript	734 B	-rwxr-xr-x	2019-10-18 08:37:56
uha	text/x-shellscript	969 B	-rwxr-xr-x	2019-10-18 08:37:56
ulha	text/x-shellscript	3.78 KB	-rwxr-xr-x	2019-10-18 08:37:56
ulib	text/x-perl	2.76 KB	-rwxr-xr-x	2019-10-18 08:37:56
urar	text/x-shellscript	4.37 KB	-rwxr-xr-x	2019-10-18 08:37:56
uzip	text/x-perl	14.9 KB	-rwxr-xr-x	2019-10-18 08:37:56
uzoo	text/x-shellscript	1.56 KB	-rwxr-xr-x	2019-10-18 08:37:56

~ ACUPOFTEA - mail.ontime-ae.com