aboutsummaryrefslogtreecommitdiffstats
path: root/page.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'page.cgi')
-rwxr-xr-xpage.cgi9
1 files changed, 6 insertions, 3 deletions
diff --git a/page.cgi b/page.cgi
index af0903c30..960774cc4 100755
--- a/page.cgi
+++ b/page.cgi
@@ -39,11 +39,14 @@ ConnectToDatabase();
quietly_check_login();
-if (defined $::FORM{'id'}) {
+if ($::FORM{'id'}) {
+ # Remove all dodgy chars, and split into name and ctype.
$::FORM{'id'} =~ s/[^\w\-\.]//g;
- $::FORM{'id'} =~ /(.*)(\.(.*))?/;
+ $::FORM{'id'} =~ /(.*)\.(.*)/;
- my $format = GetFormat($1, undef, $3);
+ my $format = GetFormat($1, undef, $2);
+
+ $vars->{'form'} = \%::FORM;
print "Content-Type: $format->{'ctype'}\n\n";