4 require LWP::UserAgent;
7 $url = $ENV{"REQUEST_URI"};
8 $url =~ s/.*mmlurl=(.*)/$1/;
12 $ua = LWP::UserAgent->new;
13 $request = HTTP::Request->new(GET => "$url");
14 $response = $ua->request($request, \&callback);
17 $content =~ s/\n/ /sg;
18 $content =~ s/<!DOCTYPE[^>]*(.*)>/$1/sg;
19 $content =~ s/<m:/</g;
20 $content =~ s/<\/m:/<\//g;
21 $content =~ s/<math[^>]*>/<math>/sg;
23 $content =~ s/&/&/g;
26 Content-type: text/html
28 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
29 "http://www.w3.org/TR/REC-html40/loose.dtd">
32 <title>Generato in automatico a partire da $url</title>
34 <body bgcolor="#ffffff" text="#000000">
35 <applet codebase="http://www.webeq.com/WebEQ/2.2/classes" code="webeq.Main"
36 +width=600 height=2000 align=middle>
37 <param name=eq value="$content">
38 <param name=color value="#cccccc">
39 <param name=parser value="mathml">
40 <param name=size value="14">
46 #=========================