CGI.pm und Content-length im Header
Von: Reinhard Pagitsch (rprp@gmx.net) [Profil]
Datum: 12.11.2007 12:19
Message-ID: <fh9d44$1j3v$1@geiz-ist-geil.priv.at>
Newsgroup: de.comp.lang.perl.cgi
Datum: 12.11.2007 12:19
Message-ID: <fh9d44$1j3v$1@geiz-ist-geil.priv.at>
Newsgroup: de.comp.lang.perl.cgi
Hallo,
Wo im CGI Modul ist definiert das wenn ich
print header(-type=>'text/xml',-Content_Length=>$len, -Charset=>'UT
F-8');
angebe immer für die Content Länge Content-length verwendet wird anst
att
Content-Length? Ich habs mit dem Fiddler überprüft. Wenn ich einen
normalen http Request absetze sehe ich im Fiddler Content-Length.
Mein CGI sieht so aus:
#!d:/Perl/bin/perl.exe
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use strict;
open(FH, "replay.xml") or die "can not open file!";
my @lines = <FH>;
close FH;
my $line = join('', @lines);
my $query=new CGI;
my $user=$query->param('usuario');
my $ObjectID=$query->param('ObjectID');
my $tipoActa=$query->param('tipoActa');
my $nif=$query->param('nif');
$line =~ s/#nif#/$nif/;
$line =~ s/#usuario#/$user/;
$line =~ s/#ObjectID#/$ObjectID/;
$line =~ s/#tipoActa#/$tipoActa/;
my $len=length($line);
print header(-type=>'text/xml',-Content_Length=>$len, -Charset=>'UT
F-8');
print $line;
Danke,
Reinhard
--
[ Auf dieses Posting antworten ]Antworten
- Frank Seitz (12.11.2007 12:27)
