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.
24 'content' => "This file should have permissions 444\n",
32 'content' => "This file should have permissions 666\n",
40 'content' => "This file should have permissions 777\n",
49 'content' => "This file should have permissions 001\n",
58 'content' => "This file should have permissions 110\n",
66 'name' => 'link -> file.txt',
74 'name' => 'link_absolute -> /data/ftp/file.txt',
149 'name' => "file.txt",
150 'content' => "This is content of file \"file.txt\"\n",
158 'content' => "Some junk ;-) This file does not really exist.\n",
200 my %file = %$_;
202 my $ftype = $file{'type'} ? $file{'type'} : "-";
203 my $fperm = $file{'perm'} ? $file{'perm'} : "rwxr-xr-x";
204 my $fuser = $file{'user'} ? sprintf("%15s", $file{'user'}) : "ftp-default";
205 my $fgroup = $file{'group'} ? sprintf("%15s", $file{'group'}) : "ftp-default";
207 if($file{'type'} eq "d") {
208 $fsize = $file{'size'} ? sprintf("%7s", $file{'size'}) : sprintf("%7d", 4096);
211 $fsize = sprintf("%7d", length $file{'content'});
213 my $fhlink = $file{'hlink'} ? sprintf("%4d", $file{'hlink'}) : " 1";
214 my $ftime = $file{'time'} ? sprintf("%10s", $file{'time'}) : "Jan 9 1933";
215 push(@contentlist, "$ftype$fperm $fhlink $fuser $fgroup $fsize $ftime $file{'name'}$eol");
222 my %file = %$_;
224 my $time = $file{'dostime'} ? $file{'dostime'} : "06-25-97 09:12AM";
226 if($file{'type'} =~ /^d$/) {
230 $size_or_dir = sprintf("%20d", length $file{'content'});
232 push(@contentlist, "$time $size_or_dir $file{'name'}$eol");
239 my ($list_type, $file) = @_;
245 if ($f{'name'} eq $file) {
261 my ($list_type, $file) = @_;
267 if ($f{'name'} eq $file) {