1 #! /usr/bin/perl -T

     1 #! /usr/bin/perl -T

     2 # Example .htaccess

     2 # Example .htaccess

     3 # | <Files upload.pl>

     4 # | <Files upload.pl>

     4 # | AuthType Basic

     5 # | AuthType Basic

     5 # | AuthName upload

     6 # | AuthName upload

     6 # | Require valid-user

     7 # | Require valid-user

     7 # | AuthUserFile /home/heiko/public_html/.passwd

     8 # | AuthUserFile /home/heiko/public_html/.passwd

    23 use CGI::Pretty;

    24 use CGI::Pretty;

    24 use IO::File;

    25 use IO::File;

    25 use File::Basename;

    26 use File::Basename;

    26 use Digest::SHA1 qw(sha1_hex);

    27 use Digest::SHA1 qw(sha1_hex);

    27 

    28 

    29 my $DIR_URI = "/$DIR";

    30 my $DIR_URI = "/$DIR";

    30 

    31 

    31 -d $DIR

    32 -d $DIR

    32   or mkdir $DIR => 0750

    33   or mkdir $DIR => 0750

    33   or die "Can't mkdir $DIR: $!\n";

    34   or die "Can't mkdir $DIR: $!\n";