tests/directories.pm

   1 #***************************************************************************
   2 #                                  _   _ ____  _
   3 #  Project                     ___| | | |  _ \| |
   4 #                             / __| | | | |_) | |
   5 #                            | (__| |_| |  _ <| |___
   6 #                             \___|\___/|_| \_\_____|
   7 #
   8 # Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
   9 #
  10 # This software is licensed as described in the file COPYING, which
  11 # you should have received as part of this distribution. The terms
  12 # are also available at https://curl.se/docs/copyright.html.
  13 #
  14 # You may opt to use, copy, modify, merge, publish, distribute and/or sell
  15 # copies of the Software, and permit persons to whom the Software is
  16 # furnished to do so, under the terms of the COPYING file.
  17 #
  18 # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  19 # KIND, either express or implied.
  20 #
  21 # SPDX-License-Identifier: curl
  22 #
  23 ###########################################################################
  24
  25 package directories;
  26
  27 use strict;
  28 use warnings;
  29
  30 BEGIN {
  31     use base qw(Exporter);
  32
  33     our @EXPORT = qw(
  34         ftp_contentlist
  35         wildcard_filesize
  36         wildcard_getfile
  37     );
  38 }
  39
  40
  41 my %file_chmod1 = (
  42   'name'      => 'chmod1',
  43   'content'   => "This file should have permissions 444\n",
  44   'perm'      => 'r--r--r--',
  45   'time'      => 'Jan 11 10:00',
  46   'dostime'   => '01-11-10  10:00AM',
  47 );
  48
  49 my %file_chmod2 = (
  50   'name'      => 'chmod2',
  51   'content'   => "This file should have permissions 666\n",
  52   'perm'      => 'rw-rw-rw-',
  53   'time'      => 'Feb  1  8:00',
  54   'dostime'   => '02-01-10  08:00AM',
  55 );
  56
  57 my %file_chmod3 = (
  58   'name'      => 'chmod3',
  59   'content'   => "This file should have permissions 777\n",
  60   'perm'      => 'rwxrwxrwx',
  61   'time'      => 'Feb  1  8:00',
  62   'dostime'   => '02-01-10  08:00AM',
  63 );
  64
  65 my %file_chmod4 = (
  66   'type'      => 'd',
  67   'name'      => 'chmod4',
  68   'content'   => "This file should have permissions 001\n",
  69   'perm'      => '--S--S--t',
  70   'time'      => 'May  4  4:31',
  71   'dostime'   => '05-04-10  04:31AM'
  72 );
  73
  74 my %file_chmod5 = (
  75   'type'      => 'd',
  76   'name'      => 'chmod5',
  77   'content'   => "This file should have permissions 110\n",
  78   'perm'      => '--s--s--T',
  79   'time'      => 'May  4  4:31',
  80   'dostime'   => '05-04-10  04:31AM'
  81 );
  82
  83 my %link_link = (
  84   'type'      => 'l',
  85   'name'      => 'link -> file.txt',
  86   'size'      => '8',
  87   'perm'      => 'rwxrwxrwx',
  88   'time'      => 'Jan  6  4:42'
  89 );
  90
  91 my %link_link_absolute = (
  92   'type'      => 'l',
  93   'name'      => 'link_absolute -> /data/ftp/file.txt',
  94   'size'      => '15',
  95   'perm'      => 'rwxrwxrwx',
  96   'time'      => 'Jan  6  4:45'
  97 );
  98
  99 my %dir_dot = (
 100   'type'      => "d",
 101   'name'      => ".",
 102   'hlink'     => "4",
 103   'time'      => "Apr 27  5:12",
 104   'size'      => "20480",
 105   'dostime'   => "04-27-10  05:12AM",
 106   'perm'      => "rwxrwxrwx"
 107 );
 108
 109 my %dir_ddot = (
 110   'type'      => "d",
 111   'name'      => "..",
 112   'hlink'     => "4",
 113   'size'      => "20480",
 114   'time'      => "Apr 23  3:12",
 115   'dostime'   => "04-23-10  03:12AM",
 116   'perm'      => "rwxrwxrwx"
 117 );
 118
 119 my %dir_weirddir_txt = (
 120   'type'      => "d",
 121   'name'      => "weirddir.txt",
 122   'hlink'     => "2",
 123   'size'      => "4096",
 124   'time'      => "Apr 23  3:12",
 125   'dostime'   => "04-23-10  03:12AM",
 126   'perm'      => "rwxr-xrwx"
 127 );
 128
 129 my %dir_UNIX = (
 130   'type'      => "d",
 131   'name'      => "UNIX",
 132   'hlink'     => "11",
 133   'size'      => "4096",
 134   'time'      => "Nov 01  2008",
 135   'dostime'   => "11-01-08  11:11AM",
 136   'perm'      => "rwx--x--x"
 137 );
 138
 139 my %dir_DOS = (
 140   'type'      => "d",
 141   'name'      => "DOS",
 142   'hlink'     => "11",
 143   'size'      => "4096",
 144   'time'      => "Nov 01  2008",
 145   'dostime'   => "11-01-08  11:11AM",
 146   'perm'      => "rwx--x--x"
 147 );
 148
 149 my %dir_dot_NeXT = (
 150   'type'      => "d",
 151   'name'      => ".NeXT",
 152   'hlink'     => "4",
 153   'size'      => "4096",
 154   'time'      => "Jan 23  2:05",
 155   'dostime'   => "01-23-05  02:05AM",
 156   'perm'      => "rwxrwxrwx"
 157 );
 158
 159 my %file_empty_file_dat = (
 160   'name'      => "empty_file.dat",
 161   'content'   => "",
 162   'perm'      => "rw-r--r--",
 163   'time'      => "Apr 27 11:01",
 164   'dostime'   => "04-27-10  11:01AM"
 165 );
 166
 167 my %file_file_txt = (
 168   'name'      => "file.txt",
 169   'content'   => "This is content of file \"file.txt\"\n",
 170   'time'      => "Apr 27 11:01",
 171   'dostime'   => "04-27-10  11:01AM",
 172   'perm'      => "rw-r--r--"
 173 );
 174
 175 my %file_someothertext_txt = (
 176   'name'      => "someothertext.txt",
 177   'content'   => "Some junk ;-) This file does not really exist.\n",
 178   'time'      => "Apr 27 11:01",
 179   'dostime'   => "04-27-10  11:01AM",
 180   'perm'      => "rw-r--r--"
 181 );
 182
 183 my %lists = (
 184   '/fully_simulated/' => {
 185     'files'   => [ \%dir_dot, \%dir_ddot, \%dir_DOS, \%dir_UNIX ],
 186     'eol'     => "\r\n",
 187     'type'    => "unix"
 188   },
 189   '/fully_simulated/UNIX/' => {
 190     'files'   => [ \%dir_dot, \%dir_ddot,
 191                    \%file_chmod1, \%file_chmod2, \%file_chmod3, \%file_chmod4, \%file_chmod5,
 192                    \%file_empty_file_dat, \%file_file_txt,
 193                    \%link_link, \%link_link_absolute, \%dir_dot_NeXT,
 194                    \%file_someothertext_txt, \%dir_weirddir_txt ],
 195     'eol'     => "\r\n",
 196     'type'    => 'unix'
 197   },
 198   '/fully_simulated/DOS/' => {
 199     'files'   => [ \%dir_dot, \%dir_ddot,
 200                    \%file_chmod1, \%file_chmod2, \%file_chmod3, \%file_chmod4, \%file_chmod5,
 201                    \%file_empty_file_dat, \%file_file_txt,
 202                    \%dir_dot_NeXT, \%file_someothertext_txt, \%dir_weirddir_txt ],
 203     'eol'     => "\r\n",
 204     'type'    => 'dos'
 205   }
 206 );
 207
 208 sub ftp_createcontent {
 209   my ($list) = $_[0];
 210
 211   my $type = $$list{'type'};
 212   my $eol  = $$list{'eol'};
 213   my $list_ref = $$list{'files'};
 214
 215   my @diroutput;
 216   my @contentlist;
 217   if($type eq "unix") {
 218     for(@$list_ref) {
 219       my %file = %$_;
 220       my $line = "";
 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";
 225       my $fsize = "";
 226       if(exists($file{'type'}) && $file{'type'} eq "d") {
 227         $fsize = $file{'size'} ? sprintf("%7s", $file{'size'}) : sprintf("%7d", 4096);
 228       }
 229       else {
 230         $fsize = sprintf("%7d", exists($file{'content'}) ? length $file{'content'} : 0);
 231       }
 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");
 235     }
 236
 237     return @contentlist;
 238   }
 239   elsif($type =~ /^dos$/) {
 240     for(@$list_ref) {
 241       my %file = %$_;
 242       my $line = "";
 243       my $time = $file{'dostime'} ? $file{'dostime'} : "06-25-97  09:12AM";
 244       my $size_or_dir;
 245       if(exists($file{'type'}) && $file{'type'} =~ /^d$/) {
 246         $size_or_dir = "      <DIR>         ";
 247       }
 248       else {
 249         $size_or_dir = sprintf("%20d", length $file{'content'});
 250       }
 251       push(@contentlist, "$time $size_or_dir $file{'name'}$eol");
 252     }
 253     return @contentlist;
 254   }
 255 }
 256
 257 sub wildcard_filesize {
 258   my ($list_type, $file) = @_;
 259   my $list = $lists{$list_type};
 260   if($list) {
 261     my $files = $list->{'files'};
 262     for(@$files) {
 263       my %f = %$_;
 264       if ($f{'name'} eq $file) {
 265         if($f{'content'}) {
 266           return length $f{'content'};
 267         }
 268         elsif ($f{'type'} ne "d"){
 269           return 0;
 270         }
 271         else {
 272           return -1;
 273         }
 274       }
 275     }
 276   }
 277   return -1;
 278 }
 279
 280 sub wildcard_getfile {
 281   my ($list_type, $file) = @_;
 282   my $list = $lists{$list_type};
 283   if($list) {
 284     my $files = $list->{'files'};
 285     for(@$files) {
 286       my %f = %$_;
 287       if ($f{'name'} eq $file) {
 288         if($f{'content'}) {
 289           return (length $f{'content'}, $f{'content'});
 290         }
 291         elsif (!exists($f{'type'}) or $f{'type'} ne "d"){
 292           return (0, "");
 293         }
 294         else {
 295           return (-1, 0);
 296         }
 297       }
 298     }
 299   }
 300   return (-1, 0);
 301 }
 302
 303 sub ftp_contentlist {
 304   my $listname = $_[0];
 305   my $list = $lists{$listname};
 306   return ftp_createcontent($list);
 307 }