Mail header fields are case insensitive.

This commit is contained in:
Wolfram Schneider 1998-02-12 11:09:44 +00:00
parent 7dae10b5d4
commit ef27a45de7
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=2434
2 changed files with 26 additions and 24 deletions

View file

@ -252,27 +252,28 @@ sub printdoc {
foreach $i (split(/\n/, $header)) {
($field, $data) = split(/ /, $i, 2);
$field =~ y/A-Z/a-z/;
$hdr{$field} = $data;
}
print "<BODY>\n<pre>\n";
if (length($hdr{'Date:'}) > 0) {
print "<strong>Date: </strong> $hdr{'Date:'}\n";
if (length($hdr{'date:'}) > 0) {
print "<strong>Date: </strong> $hdr{'date:'}\n";
}
if (length($hdr{'From:'}) > 0) {
print "<strong>From: </strong> $hdr{'From:'}\n";
if (length($hdr{'from:'}) > 0) {
print "<strong>From: </strong> $hdr{'from:'}\n";
}
if (length($hdr{'To:'}) > 0) {
print "<strong>To: </strong> $hdr{'To:'}\n";
if (length($hdr{'to:'}) > 0) {
print "<strong>To: </strong> $hdr{'to:'}\n";
}
if (length($hdr{'Cc:'}) > 0) {
print "<strong>Cc: </strong> $hdr{'Cc:'}\n";
if (length($hdr{'cc:'}) > 0) {
print "<strong>Cc: </strong> $hdr{'cc:'}\n";
}
if (length($hdr{'Sender:'}) > 0) {
print "<strong>Sender: </strong> $hdr{'Sender:'}\n";
if (length($hdr{'sender:'}) > 0) {
print "<strong>Sender: </strong> $hdr{'sender:'}\n";
}
if (length($hdr{'Subject:'}) > 0) {
print "<strong>Subject: </strong> $hdr{'Subject:'}\n";
if (length($hdr{'subject:'}) > 0) {
print "<strong>Subject: </strong> $hdr{'subject:'}\n";
}
print "</pre>\n";

View file

@ -252,27 +252,28 @@ sub printdoc {
foreach $i (split(/\n/, $header)) {
($field, $data) = split(/ /, $i, 2);
$field =~ y/A-Z/a-z/;
$hdr{$field} = $data;
}
print "<BODY>\n<pre>\n";
if (length($hdr{'Date:'}) > 0) {
print "<strong>Date: </strong> $hdr{'Date:'}\n";
if (length($hdr{'date:'}) > 0) {
print "<strong>Date: </strong> $hdr{'date:'}\n";
}
if (length($hdr{'From:'}) > 0) {
print "<strong>From: </strong> $hdr{'From:'}\n";
if (length($hdr{'from:'}) > 0) {
print "<strong>From: </strong> $hdr{'from:'}\n";
}
if (length($hdr{'To:'}) > 0) {
print "<strong>To: </strong> $hdr{'To:'}\n";
if (length($hdr{'to:'}) > 0) {
print "<strong>To: </strong> $hdr{'to:'}\n";
}
if (length($hdr{'Cc:'}) > 0) {
print "<strong>Cc: </strong> $hdr{'Cc:'}\n";
if (length($hdr{'cc:'}) > 0) {
print "<strong>Cc: </strong> $hdr{'cc:'}\n";
}
if (length($hdr{'Sender:'}) > 0) {
print "<strong>Sender: </strong> $hdr{'Sender:'}\n";
if (length($hdr{'sender:'}) > 0) {
print "<strong>Sender: </strong> $hdr{'sender:'}\n";
}
if (length($hdr{'Subject:'}) > 0) {
print "<strong>Subject: </strong> $hdr{'Subject:'}\n";
if (length($hdr{'subject:'}) > 0) {
print "<strong>Subject: </strong> $hdr{'subject:'}\n";
}
print "</pre>\n";