/usr/lib/interchange/standard/pages/deliver.html is in interchange-cat-standard 5.7.7-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 31 32 33 34 | [seti authorized]
[userdb
function=check_file_acl
location="[scratch deliverable]"
mode=expire
][/seti][perl products]
my $auth = $Scratch->{authorized};
if($auth !~ /1/) {
Log("Not authorized for $Scratch->{deliverable}, 403");
$Document->header('Status: 403 Not authorized');
$Document->hot(1);
$Document->write(<<EOF);
Sorry, not authorized for $Scratch->{deliverable}. Buy it first, please.
EOF
return;
}
my $type = tag_data('products', 'dl_type', $Scratch->{deliverable});
my $location = tag_data('products', 'dl_location', $Scratch->{deliverable});
my $content = $Tag->file("$location");
my $len = length($content);
if(! $len) {
Log("Not found: $Scratch->{deliverable} type=$type at $location, 404");
$Document->header('Status: 404 not found');
$Document->hot(1);
$Document->write(<<EOF);
Sorry, $Scratch->{deliverable} not found.
EOF
return;
}
$Document->header("Content-Type: $type\nContent-Length: $len");
$Document->hot(1);
$Document->write($content);
return;
[/perl]
|