os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Mail header fields are case insensitive.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

25
data/cgi/search.cgi
View file

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

25
en/cgi/search.cgi
View file

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