Graph

X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fgraphs%2Ftools%2Fmk_html.pl;h=6ca4d0bcf3caa819d58eaa87bc3424726e353f50;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=b98e38de13af906ff681087dc09fc57e983ae6ba;hpb=5f01ce40bc7c19da0a220a9899019074acf94ff8;p=helm.git diff --git a/helm/graphs/tools/mk_html.pl b/helm/graphs/tools/mk_html.pl index b98e38de1..6ca4d0bcf 100755 --- a/helm/graphs/tools/mk_html.pl +++ b/helm/graphs/tools/mk_html.pl @@ -3,72 +3,27 @@ use URI::Escape; print < Graph - - - - - EOT +my $count = 0; + while () { + $count++; my (undef,$point1,$point2,$uri) = split; my ($point1x,$point1y) = split /,/,$point1; my ($point2x,$point2y) = split /,/,$point2; @@ -77,64 +32,18 @@ while () { $point1x = substr($point1x,1); $point2x = substr($point2x,1); -# Linea corretta se c'e' il menu -# print < -#EOT - -# In assenza di menu - my $point_1_5_x = $point1x + ($point2x - $point1x)/5; - my $point_2_5_x = $point1x + 2*($point2x - $point1x)/5; - my $point_3_5_x = $point1x + 3*($point2x - $point1x)/5; - my $point_4_5_x = $point1x + 4*($point2x - $point1x)/5; - print < - var iurl = unescape(getParam("url")); - var getterURL = getParam3(iurl,"param.getterURL"); - var interfaceURL = unescape(getParam3(iurl,"param.interfaceURL")); - var url = setParam(iurl,"keys","MDG"); - url = setParam(url,"xmluri", getterURL + "getxml%3Furi%3D$uri"); - url = setParam(url,"param.CICURI","$uri"); - url = setParam(url,"param.RDFURI","helm:rdf:www.cs.unibo.it/helm/rdf/rdfprova//$uri"); - var draw_graph_url = - location.protocol + '//' + location.host + location.pathname; - url = draw_graph_url + "?url=" + escape(url); - document.write(''); - -EOT print < - var iurl = unescape(getParam("url")); - var getterURL = getParam3(iurl,"param.getterURL"); - var interfaceURL = unescape(getParam3(iurl,"param.interfaceURL")); - var url = setParam(iurl,"keys",getParam3(iurl,"param.keys")); - url = setParam(url,"xmluri", getterURL + "getxml%3Furi%3D$uri"); - url = setParam(url,"param.CICURI","$uri"); - url = setParam(url,"param.RDFURI","helm:rdf:www.cs.unibo.it/helm/rdf/rdfprova//$uri"); - url = interfaceURL + "?url=" + escape(url); - document.write(''); - -EOT - print < - var iurl = unescape(getParam("url")); - var getterURL = getParam3(iurl,"param.getterURL"); - var interfaceURL = unescape(getParam3(iurl,"param.interfaceURL")); - var url = setParam(iurl,"keys","MMG"); - url = setParam(url,"xmluri", getterURL + "getxml%3Furi%3Dhelm:rdf:www.cs.unibo.it/helm/rdf/rdfprova//$uri"); - url = setParam(url,"param.CICURI","$uri"); - url = setParam(url,"param.RDFURI","helm:rdf:www.cs.unibo.it/helm/rdf/rdfprova//$uri"); - var draw_graph_url = - location.protocol + '//' + location.host + location.pathname; - url = draw_graph_url + "?url=" + escape(url); - document.write(''); - + EOT } print < - + EOT