--____IDGSMDTPKCJYGAIDCSAC____
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
I'm trying to link a web application to a clinical portal in a hospital. =
The portal links various web enabled applications so the clinician can see =
things from all sorts of databases all in one view. I am trying to =
display from our Electrocardiography application a PDF file of an ECG =
using LWP for display within this portal. When I get the return of the =
PDF, the adobe acrobat plugin pops up but it comes up blank. For multi =
page ECG's it comes up with multiple blank pages. I have saved this =
blank file and looked at it, it seems like it has the same size as a PDF =
which displays in the inherent web application. Loading this saved file =
into Adobe from the desktop, its still blank. Some characters hex code are =
different though (so I'm not sure this is an encoding issue).
Anyone have any thoughts why the PDF file displays
The code I'm using is:
#!c:\Perl\bin\perl.exe
#################################################
## GEMuse_detail.cgi =
#
## =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D =3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D #
## - displays patients individual EKG result =
#
#################################################
$| =3D 1;
use CGI;
use CGI qw/:standard/;
use LWP::UserAgent;
$dataIn =3D new CGI;
$dataIn->header();
$requestType =3D $dataIn->param('requestType');
$PatientID =3D $dataIn->param('PatientID');
$Date =3D $dataIn->param('Date');
$Time =3D $dataIn->param('Time');
$TestType =3D $dataIn->param('TestType');
$Site =3D $dataIn->param('Site');
$OutputType =3D $dataIn->param('OutputType');
$Ext =3D $dataIn->param('Ext');
my $url =3D "http://100.200.10.10/musescripts/museweb.dll?RetrieveTestBy Dat=
eTime?PatientID=3D".$PatientID."&Date=3D".$Date."&Time=3D".$ Time."&TestType=
=3D".$TestType."&Site=3D".$Site."&OutputType=3D".$OutputType ."&Ext=3D".$Ext=
;
my $browser =3D LWP::UserAgent->new();
$browser->credentials('100.200.10.10:80', '100.200.10.10', 'user' =3D> =
'password');
my $response =3D $browser->get($url);
print "Content-type: ".$response->header('Content-type');
print "\n\n";
print $response->content;
--____IDGSMDTPKCJYGAIDCSAC____
Content-Type: multipart/related; boundary="____TITWXRYKJLKCDMBDJDVN____"
--____TITWXRYKJLKCDMBDJDVN____
Content-Type: text/html; charset=windows-1252
Content-Transfer-Encoding: quoted-printable
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-1"=
>
<META content=3D"MSHTML 6.00.2900.2912" name=3DGENERATOR></HEAD>
<BODY style=3D"MARGIN: 4px 4px 1px; FONT: 10pt Tahoma">
<DIV>I'm trying to link a web application to a clinical portal in a =
hospital. The portal links various web enabled applications so the =
clinician can see things from all sorts of databases all in one view. =
I am trying to display from our Electrocardiography application a =
PDF file of an ECG using LWP for display within this portal. =
When I get the return of the PDF, the adobe acrobat plugin pops up =
but it comes up blank. For multi page ECG's it comes up =
with multiple blank pages. I have saved this blank file and =
looked at it, it seems like it has the same size as a PDF which displays =
in the inherent web application. Loading this saved file into =
Adobe from the desktop, its still blank. Some characters hex code are =
different though (so I'm not sure this is an encoding issue).</DIV>
<DIV> </DIV>
<DIV>Anyone have any thoughts why the PDF file displays</DIV>
<DIV> </DIV>
<DIV>The code I'm using is:</DIV>
<DIV> </DIV>
<DIV>#!c:\Perl\bin\perl.exe</DIV>
<DIV> </DIV>
<DIV>#################################################<BR>## GEMuse_detail.=
cgi =
&nb=
sp; =
&nb=
sp; =
&nb=
sp; #<BR>## =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D =3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D =3D=3D=3D =
#<BR>## - displays patients individual EKG result &n=
bsp; =
; &n=
bsp; =
; #<BR>#################################################</DIV>
<DIV> </DIV>
<DIV>$| =3D 1;</DIV>
<DIV> </DIV>
<DIV>use CGI;<BR>use CGI qw/:standard/;<BR>use LWP::UserAgent;</DIV>
<DIV> </DIV>
<DIV><BR> $dataIn =3D new =
CGI; <BR> $dataIn->header();<BR> =
$requestType =3D $dataIn->param('requestType');</DIV>
<DIV> </DIV>
<DIV> <BR> $PatientID =
=3D $dataIn->param('PatientID');<BR> $Date =
; =3D =
$dataIn->param('Date');<BR> $Time &nb=
sp; =3D $dataIn->param('Time')=
;<BR> $TestType =
=3D $dataIn->param('TestType');<BR> $Site =
=3D $dataIn->para=
m('Site');<BR> $OutputType =
=3D $dataIn->param('OutputType');<BR> $Ext =
=3D $dataIn-&g=
t;param('Ext');</DIV>
<DIV> </DIV>
<DIV><BR>my $url =3D "<A href=3D'http://100.200.10.10/musescripts/museweb.d=
ll?RetrieveTestByDateTime?PatientID=3D".$PatientID."&Dat e=3D".$Date."&a=
mp;Time=3D".$Time."&TestType=3D".$TestType."&Site=3D ".$Site."&O=
utputType=3D".$OutputType."&Ext=3D".$Ext'>http://100.200 .10.10/musescri=
pts/museweb.dll?RetrieveTestByDateTime?PatientID=3D".$Patien tID."&Date=
=3D".$Date."&Time=3D".$Time."&TestType=3D".$TestType ."&Site=3D"=
..$Site."&OutputType=3D".$OutputType."&Ext=3D".$Ext</A>;</DIV>
<DIV> </DIV>
<DIV><BR>my $browser =3D LWP::UserAgent->new();</DIV>
<DIV> </DIV>
<DIV><BR>$browser->credentials('100.200.10.10:80', '100.200.10.10', =
'user' =3D> 'password');</DIV>
<DIV> </DIV>
<DIV> <BR>my $response =3D $browser->get($url);</DIV>
<DIV> </DIV>
<DIV><BR>print "Content-type: ".$response->header('Content-type');<BR>pr=
int "\n\n";</DIV>
<DIV> </DIV>
<DIV>print $response->content;</DIV></BODY></HTML>
--____TITWXRYKJLKCDMBDJDVN____--
--____IDGSMDTPKCJYGAIDCSAC____--
