30 use File::Basename;

    30 use File::Basename;

    31 use Digest::MD5 qw(md5_hex);

    31 use Digest::MD5 qw(md5_hex);

    32 use OSSP::uuid;

    32 use OSSP::uuid;

    33 

    33 

    34 my $DIR     = "d/{view}";

    34 my $DIR     = "d/{view}";

    36 

    36 

    37 sub human($);

    37 sub human($);

    38 

    38 

    39 delete @ENV{ grep /PATH/, keys %ENV };

    39 delete @ENV{ grep /PATH/, keys %ENV };

    40 $ENV{PATH} = "/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin";

    40 $ENV{PATH} = "/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin";