mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2024-12-22 12:32:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

* vfs/extfs/a: Set environment to force date and time format

Browse Source 
suitable for VFS.  Fix support for long filenames with spaces.
This commit is contained in:
Pavel Roskin 2002-11-08 18:06:14 +00:00
parent 6b0df00830
commit 5dbffb96c2
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2002-11-08 Pavel Roskin <proski@gnu.org>
* vfs/extfs/a: Set environment to force date and time format
suitable for VFS. Fix support for long filenames with spaces.
2002-11-07 Andrew V. Samoilov <sav@bcs.zp.ua> 2002-11-07 Andrew V. Samoilov <sav@bcs.zp.ua>
* syntax/ada95.syntax: Highlight "then" and "else". * syntax/ada95.syntax: Highlight "then" and "else".

5
vfs/extfs/a
View File

@ -17,6 +17,9 @@ $mcopy = "mcopy -noQ";
$0 =~ s|.*/||; $0 =~ s|.*/||;
$disk = $0; $disk = $0;
$ENV{MTOOLS_DATE_STRING} = "mm-dd-yyyy";
$ENV{MTOOLS_TWENTY_FOUR_HOUR_CLOCK} = "1";
SWITCH: for ( $ARGV[0] ) { SWITCH: for ( $ARGV[0] ) {
/list/ && do { /list/ && do {
@dirs = get_dirs(""); @dirs = get_dirs("");
@ -75,7 +78,7 @@ sub get_dirs {
$_ = substr($_,12); $_ = substr($_,12);
s/^[ ]+//; s/^[ ]+//;
($size,$date,$time,$longname) = split(/[ \t]+/); ($size,$date,$time,$longname) = split(/[ \t]+/, $_, 4);
@lst = split(/([:ap])/, $time); @lst = split(/([:ap])/, $time);
$lst[0] += 12 if ($lst[3] eq "p"); $lst[0] += 12 if ($lst[3] eq "p");