Lines Matching refs:file
219 my %file = %$_;
221 my $ftype = $file{'type'} ? $file{'type'} : "-";
222 my $fperm = $file{'perm'} ? $file{'perm'} : "rwxr-xr-x";
223 my $fuser = $file{'user'} ? sprintf("%15s", $file{'user'}) : "ftp-default";
224 my $fgroup = $file{'group'} ? sprintf("%15s", $file{'group'}) : "ftp-default";
226 if(exists($file{'type'}) && $file{'type'} eq "d") {
227 $fsize = $file{'size'} ? sprintf("%7s", $file{'size'}) : sprintf("%7d", 4096);
230 $fsize = sprintf("%7d", exists($file{'content'}) ? length $file{'content'} : 0);
232 my $fhlink = $file{'hlink'} ? sprintf("%4d", $file{'hlink'}) : " 1";
233 my $ftime = $file{'time'} ? sprintf("%10s", $file{'time'}) : "Jan 9 1933";
234 push(@contentlist, "$ftype$fperm $fhlink $fuser $fgroup $fsize $ftime $file{'name'}$eol");
241 my %file = %$_;
243 my $time = $file{'dostime'} ? $file{'dostime'} : "06-25-97 09:12AM";
245 if(exists($file{'type'}) && $file{'type'} =~ /^d$/) {
249 $size_or_dir = sprintf("%20d", length $file{'content'});
251 push(@contentlist, "$time $size_or_dir $file{'name'}$eol");
258 my ($list_type, $file) = @_;
264 if ($f{'name'} eq $file) {
281 my ($list_type, $file) = @_;
287 if ($f{'name'} eq $file) {
