Lines Matching refs:file
10 # This software is licensed as described in the file COPYING, which
16 # furnished to do so, under the terms of the COPYING file.
43 'content' => "This file should have permissions 444\n",
51 'content' => "This file should have permissions 666\n",
59 'content' => "This file should have permissions 777\n",
68 'content' => "This file should have permissions 001\n",
77 'content' => "This file should have permissions 110\n",
85 'name' => 'link -> file.txt',
93 'name' => 'link_absolute -> /data/ftp/file.txt',
168 'name' => "file.txt",
169 'content' => "This is content of file \"file.txt\"\n",
177 'content' => "Some junk ;-) This file does not really exist.\n",
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) {