CGI.pm und Content-length im Header

12/11/2007 - 12:19 von Reinhard Pagitsch | Report spam
Hallo,

Wo im CGI Modul ist definiert das wenn ich
print header(-type=>'text/xml',-Content_Length=>$len, -Charset=>'UTF-8');
angebe immer für die Content Lànge Content-length verwendet wird anstatt
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=>'UTF-8');
print $line;

Danke,
Reinhard


 

Lesen sie die antworten

#1 Frank Seitz
12/11/2007 - 12:27 | Warnen spam
Reinhard Pagitsch wrote:

Wo im CGI Modul ist definiert



$ perldoc -m CGI

das wenn ich
print header(-type=>'text/xml',-Content_Length=>$len, -Charset=>'UTF-8');
angebe immer für die Content Lànge Content-length verwendet wird anstatt



Das sollte egal sein. HTTP-Headernamen sind case insensitive.

Grüße
Frank
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel

Ähnliche fragen