← Back to branch summary

~ubuntu-branches/debian/squeeze/sympa/squeeze

« back to all changes in this revision

Viewing changes to wwsympa/bounce-lib.pl

  • Committer: Bazaar Package Importer
  • Author(s): Stefan Hornburg (Racke)
  • Date: 2008-10-05 12:36:30 UTC
  • mfrom: (1.1.5 upstream) (6.1.3 gutsy)
  • Revision ID: james.westby@ubuntu.com-20081005123630-8ga1kt0ogrkqaizf
Tags: 5.3.4-6
http://bugs.debian.org/501154
http://bugs.debian.org/498144
http://bugs.debian.org/496520
* fix usage of $* Perl variable deprecated in Perl 5.10 
  (Closes: #501154, thanks to Micah Anderson <micah@debian.org> and
  David Moreno <david@dev.axiombox.com> for the report and patches)
* add the sympa.pl --upgrade procedure to the debian/postinst 
  to migrate existing installs (Closes: #498144, thanks to Micah
  Anderson <micah@debian.org> for the patch)
* additional patch for insecure use of /tmp (Closes: #496520)
* missing debian/compat file added

Show diffs side-by-side

added added

removed removed

Lines of Context:
wwsympa/bounce-lib.pl
1
1
# bounce-lib.pl - This module includes functions for analysing non-delivery reports
2
 
# RCS Identication ; $Revision: 1.8.2.1 $ ; $Date: 2006/05/02 14:13:16 $ 
 
2
# RCS Identication ; $Revision: 4543 $ ; $Date: 2007-08-17 11:40:59 +0200 (ven, 17 aoû 2007) $ 
3
3
#
4
4
# Sympa - SYsteme de Multi-Postage Automatique
5
5
# Copyright (c) 1997, 1998, 1999, 2000, 2001 Comite Reseau des Universites
72
72
            while (<BODY>) {
73
73
 
74
74
                my ($status, $recipient);
75
 
                if (/^Status:\s*(\d+\.\d+\.\d+)$/mi) {
 
75
                if (/^Status:\s*(\d+\.\d+\.\d+)(\s|$)/mi) {
76
76
                    $status = $1;
77
77
                }
78
78