Bug 108987 - Linkify script to use quoteUrls on texts provided by user. Patch by gerv; r=kiko.

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";