/[webmail]/cgi-bin/getmsg.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cgi-bin/getmsg.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Wed Apr 19 10:27:53 2000 UTC revision 1.4 by dpavlin, Fri Apr 28 08:20:44 2000 UTC
# Line 181  if ($ctype =~ m/multipart/) { Line 181  if ($ctype =~ m/multipart/) {
181          $body=~ s/$bound(.*)$bound.*/$1/;          $body=~ s/$bound(.*)$bound.*/$1/;
182          @bodylines=split("\n",$body);          @bodylines=split("\n",$body);
183          $partone=0;          $partone=0;
184          $mimeHeader=0;          $mimeHeader=1;  # on header?
185          foreach $bdy (@bodylines) {          foreach $bdy (@bodylines) {
186                  if (($bdy=~ m/$bound/)&&($partone==1)) {                  if (($bdy=~ m/$bound/)&&($partone==1)) {
187                          $partone=2;                          $partone=2;
188                  }                  }
189                  if ($partone==1) { $mimeHeader++; }                  if (($partone==1)&&(!$mimeHeader)) {
                 if (($partone==1)&&($mimeHeader > 3)    ) {  
190                          $bdy=decodeHexChars($bdy);                          $bdy=decodeHexChars($bdy);
191                          print $bdy."<br>\n";                          print $bdy."<br>\n";
192                  }                  }
193                    if ($partone==1 && $bdy=~m/^$/) { $mimeHeader=0; }
194                  if (($bdy=~ m/text\/plain/)&&($partone==0.5)) {                  if (($bdy=~ m/text\/plain/)&&($partone==0.5)) {
195                          $partone=1;                          $partone=1;
196                  }                  }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26