rudism
/
dotplan-online
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added experimental js endpoint

This commit is contained in:
Rudis Muiznieks 2021-06-22 10:29:21 -05:00
parent 48f6b2b8be
commit 6c8fa2265b
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
server.pl
View File

@ -60,6 +60,7 @@ if (defined $ENV{'LOCAL_DOMAINS'}) {
use HTTP::Accept; use HTTP::Accept;
use URI::Escape qw(uri_escape uri_unescape); use URI::Escape qw(uri_escape uri_unescape);
use File::Spec::Functions qw(catfile); use File::Spec::Functions qw(catfile);
use HTML::Entities qw(encode_entities);
######## ########
# Caches # Caches
@ -136,6 +137,12 @@ if (defined $ENV{'LOCAL_DOMAINS'}) {
PUT => {handler => \&validate_email, valid_types => ['application/json']} PUT => {handler => \&validate_email, valid_types => ['application/json']}
} }
}, },
{
path => qr/^\/js\/([^\/]{$minimum_email_length,$maximum_email_length})$/,
methods => {
GET => {handler => \&get_plan_js, valid_types => ['application/javascript']}
}
}
]; ];
sub handle_request { sub handle_request {
@ -494,6 +501,49 @@ EOF
print_response($cgi, 200, $headers, $body); print_response($cgi, 200, $headers, $body);
} }
##### GET /js/{email}
sub get_plan_js {
my ($cgi, $email) = @_;
my $plan = util_get_plan($email);
my $format = $cgi->param('accept')->match(qw(application/javascript));
if (!defined $plan || defined $plan->{'redirect'}) {
# js can only be requested for locally served plans
print_response($cgi, 404);
return;
}
my $pubkey = $cgi->http('X-Dotplan-Pubkey');
if ((defined $pubkey && !defined $plan->{'signature'}) ||
(defined $pubkey && !util_verify_plan($email, $pubkey))) {
print_response($cgi, 403);
return;
}
# check modified time
my $now = time;
my $mtime = $plan->{'mtime'};
my $ifmod = $cgi->http('If-Modified-Since');
my $ifmtime = HTTP::Date::str2time($ifmod) if defined $ifmod;
if (defined $mtime && defined $ifmtime && $ifmtime <= $now && $mtime <= $ifmtime) {
print_response($cgi, 304);
return;
}
# render response
delete $plan->{'mtime'};
my $escapedPlan = encode_entities($plan->{'plan'});
$escapedPlan =~ s/'/\\'/g;
$escapedPlan =~ s/\n/\\n/g;
my $body = "document.getElementById('dotplan').innerHTML = '$escapedPlan';";
my $headers = {
'Content-Type' => 'application/javascript',
'Last-Modified' => HTTP::Date::time2str($mtime)
};
if (defined $pubkey) {
$headers->{'X-Dotplan-Verified'} = 'true';
}
print_response($cgi, 200, $headers, $body);
}
################### ###################
# Utility Functions # Utility Functions
################### ###################