# Copyright 2002-2007 Interchange Development Group and others

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version. See the LICENSE file for details.

UserTag file-info Order name

UserTag file-info attrAlias file name

UserTag file-info addAttr

UserTag file-info Version $Revision: 1.4 $

UserTag file-info Routine <<EOR

sub {

my ($fn, $opt) = @_;

if($opt->{server}) {

$fn = "$Global::VendRoot/$fn"

}

elsif($opt->{conf}) {

$fn = "$Global::ConfDir/$fn"

}

elsif($opt->{run}) {

$fn = "$Global::RunDir/$fn"

}

my @stat = stat($fn);

my %info;

my @ary;

my $size = $stat[7] < 1024

? $stat[7]

: ( $stat[7] < 1024 * 1024

? sprintf ("%.2fK", $stat[7] / 1024)

: sprintf ("%.2fM", $stat[7] / 1024 / 1024)

);

if($opt->{flags}) {

$opt->{flags} =~ s/\W//g;

my @flags = split //, $opt->{flags};

for(@flags) {

s/(.)/"-$1 _"/ee;

}

return join "\t", @flags;

}

if($opt->{size}) {

return $stat[7];

}

if($opt->{time}) {

return $stat[9];

}

if($opt->{date}) {

return $Tag->time($Scratch->{mv_locale},{time => $stat[9], gmt => $opt->{gmt}},'%c');

}

$opt->{fmt} = '%f bytes, last modified %Y-%m-%d %H:%M:%S'

if ! $opt->{fmt};

$opt->{fmt} =~ s/%f/$size/g;

$Tag->time($Scratch->{mv_locale},{time => $stat[9], gmt => $opt->{gmt}},$opt->{fmt});

}

EOR