/[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.2 by dpavlin, Wed Apr 19 06:08:53 2000 UTC revision 1.3 by dpavlin, Wed Apr 19 10:27:53 2000 UTC
# Line 265  sub GetHeader { Line 265  sub GetHeader {
265          #the browser will chop it off.          #the browser will chop it off.
266          #This is unlikely, but we want to cover any          #This is unlikely, but we want to cover any
267          #eventuality.          #eventuality.
268          foreach ($pop->Head($i)) {          my @headers=$pop->Head($i);
269            while ($_ = shift @headers) {
270                                    
271                  #parse out the From line from the header.                  #parse out the From line from the header.
272                  #Also, remove any angle brackets                  #Also, remove any angle brackets
# Line 291  sub GetHeader { Line 292  sub GetHeader {
292                          $replyto = $';                          $replyto = $';
293                          $replyto =~ s/\s+//;    #remove intervening white space                          $replyto =~ s/\s+//;    #remove intervening white space
294                          $replyto =~ s/\</&lt\;/;          #make angle brackets browser safe                          $replyto =~ s/\</&lt\;/;          #make angle brackets browser safe
295                                  $replyto =~ s/\>/&gt\;/;                          $replyto =~ s/\>/&gt\;/;
296                  }                  }
297                                    
298                                    
# Line 334  sub GetHeader { Line 335  sub GetHeader {
335                          # $' PERL system function.                          # $' PERL system function.
336                          $to = $';                          $to = $';
337                          $to =~ s/\s+//;           #remove leading white space                          $to =~ s/\s+//;           #remove leading white space
338                          $to =~ s/\</&lt\;/;       #make angle brackets browser safe                          #support for multi-line To:
339                                  $to =~ s/\>/&gt\;/;                          while ($headers[0] =~ m/^ +/) {
340                                    my $tmp = shift @headers;
341                                    $tmp =~ s/\s+//;
342                                    $to .= $tmp;
343                            }
344                            $to =~ s/\</&lt\;/g;      #make angle brackets browser safe
345                            $to =~ s/\>/&gt\;/g;
346                                                    
347                  }                  }
348                  #parse out the recipient line.                  #parse out the recipient line.
# Line 346  sub GetHeader { Line 353  sub GetHeader {
353                          $cc = $';                          $cc = $';
354                          $cc =~ s/\s+//;           #remove leading white space                          $cc =~ s/\s+//;           #remove leading white space
355                          $cc =~ s/\</&lt\;/;       #make angle brackets browser safe                          $cc =~ s/\</&lt\;/;       #make angle brackets browser safe
356                                  $to =~ s/\>/&gt\;/;                          $cc =~ s/\>/&gt\;/;
357                                                    
358                  }                  }
359          }          }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26