/[mws]/trunk/MWS.pm
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 /trunk/MWS.pm

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

revision 21 by dpavlin, Sat May 8 00:54:16 2004 UTC revision 22 by dpavlin, Sat May 8 01:13:33 2004 UTC
# Line 247  sub decode_qp($) { Line 247  sub decode_qp($) {
247                          return $qp;                          return $qp;
248                  }                  }
249    
250                  print STDERR "$qp -> " if ($debug == 2);                  print STDERR "$qp\n" if ($debug == 2);
251    
252                  my $iconv = Text::Iconv->new($cp,'ISO-8859-2');                  my $iconv = Text::Iconv->new($cp,'ISO-8859-2');
253                  return $iconv->convert($qp) || '';                  return $iconv->convert($qp) || '';
# Line 356  sub fetch_result_by_id { Line 356  sub fetch_result_by_id {
356                  $row->{'id'} = $id;                  $row->{'id'} = $id;
357    
358                  foreach my $p (qw(from to cc bcc)) {                  foreach my $p (qw(from to cc bcc)) {
359                          foreach my $v ($self->unroll($message,'from','phrase')) {                          foreach my $v ($self->unroll($message,$p,'phrase')) {
360                                  push @{$row->{$p}},$v;                                  push @{$row->{$p}},$v;
361                                  $self->add_counter($p,$v);                                  $self->add_counter($p,$v);
362                          }                          }
Legend:
Removed from v.21  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26