1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self(NoState => 1, InodeNames => 0, UseStrict => 1);
__END__
<%
use File::Basename qw(basename);
use strict;
my $ASP = $Server->{asp};
my $file_id1 = $ASP->FileId(basename($Server->File));
$t->eok(sub { $file_id1 =~ /^__ASP_inode_names_tx.{32}$/ }, "basename FileId()");
my $file_id2 = $ASP->FileId('abc'x200);
$t->eok(sub { $file_id2 =~ /abcx/ and length($file_id1) < 120 }, "long name FileId()");
my $file_id3 = '';
if(my $stat = (stat('.'))[1]) {
# need both here, inode_names is not cached at new() time
$ASP->{r}->dir_config->set('InodeNames', 1);
$ASP->{inode_names} = 1;
$file_id3 = $ASP->FileId(basename($Server->File));
$t->eok(sub { $file_id3 =~ /DEV.+_INODE.+/ }, "InodeNames FileId()");
}
$t->eok(length($ASP->{compile_checksum}) == 32, "Compile Checksum");
%>
|
