1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
--- Procmailrc.pm.orig Wed Nov 20 22:15:55 2002
+++ Procmailrc.pm Wed Feb 5 20:48:22 2003
@@ -6,14 +6,12 @@
package Mail::Procmailrc;
##################################
-use 5.006;
use strict;
-use warnings;
use Carp qw(confess);
-our $VERSION = '1.03';
-our $Debug = 0;
-our %RE = (
+use vars qw($VERSION); $VERSION = '1.03';
+use vars qw($Debug); $Debug = 0;
+use vars qw( %RE); %RE = (
'flags' => qr/^\s*:0/o,
'flagsm' => qr/^\s*(:0.*)$/o,
'var' => qr/^\s*[^#\$=]+=.+/o,
@@ -389,7 +387,7 @@
## FIXME: handle comments on the assignment line
-our $Debug = 0;
+use vars qw($Debug);$Debug = 0;
sub new {
my $self = bless { }, shift;
@@ -435,10 +433,10 @@
$line .= shift @$data;
## check assignment
- confess "Could not init: bad pattern in '$line'\n" unless $line =~ /$RE{'var'}/;
+ confess "Could not init: bad pattern in '$line'\n" unless $line =~ /$Mail::Procmailrc::RE{'var'}/;
## check for continuation
- while( $line =~ /$RE{'cont'}/ ) {
+ while( $line =~ /$Mail::Procmailrc::RE{'cont'}/ ) {
$line .= "\n";
$line .= shift @$data;
}
@@ -571,7 +569,7 @@
FLAGS: {
$line = shift @$data;
$line =~ s/^\s*//;
- confess( "Not a recipe: $line\n" ) unless $line =~ /$RE{'flags'}/;
+ confess( "Not a recipe: $line\n" ) unless $line =~ /$Mail::Procmailrc::RE{'flags'}/;
$self->flags($line);
}
@@ -582,13 +580,13 @@
$line =~ s/^\s*//;
## comment/info
- if( $line =~ s/$RE{'comm'}/$1/ ) {
+ if( $line =~ s/$Mail::Procmailrc::RE{'comm'}/$1/ ) {
push @{$self->info}, $line;
redo INFO;
}
## skip empty lines
- if( $line =~ /$RE{'blank'}/ ) {
+ if( $line =~ /$Mail::Procmailrc::RE{'blank'}/ ) {
redo INFO;
}
@@ -603,8 +601,8 @@
$line =~ s/^\s*//;
## check for condition
- if( $line =~ s/$RE{'condm'}/$1/ ) {
- while( $line =~ /$RE{'cont'}/ ) {
+ if( $line =~ s/$Mail::Procmailrc::RE{'condm'}/$1/ ) {
+ while( $line =~ /$Mail::Procmailrc::RE{'cont'}/ ) {
$line .= "\n"; ## tack on the newline for quoted lines
$line .= shift @$data;
}
@@ -614,12 +612,12 @@
}
## check for embedded comments and skip them
- if( $line =~ /$RE{'comt'}/ ) {
+ if( $line =~ /$Mail::Procmailrc::RE{'comt'}/ ) {
redo CONDITIONS;
}
## check for empty lines and skip them
- if( $line =~ /$RE{'blank'}/ ) {
+ if( $line =~ /$Mail::Procmailrc::RE{'blank'}/ ) {
redo CONDITIONS;
}
@@ -634,7 +632,7 @@
$line =~ s/^\s*//;
## if contains a '{' we pass it to Procmailrc
- if( $line =~ /$RE{'blkopen'}/ ) {
+ if( $line =~ /$Mail::Procmailrc::RE{'blkopen'}/ ) {
unshift @$data, $line;
$self->action( Mail::Procmailrc->new( { 'data' => $data,
'level' => $self->defaults('level') } ));
@@ -642,7 +640,7 @@
## this is a plain old action line
else {
- while( $line =~ /$RE{'cont'}/ ) {
+ while( $line =~ /$Mail::Procmailrc::RE{'cont'}/ ) {
$line .= "\n";
$line .= shift @$data;
}
@@ -761,7 +759,7 @@
$pmrc = new Mail::Procmailrc("$HOME/.procmail/rc.spam");
## add a new variable
- $pmrc->push( new Mail::Procmailrc::Variable("FOO=bar") );
+ $pmrc->push( new Mail::Procmailrc::Variable(["FOO=bar"]) );
## add a new recipe
$recipe =<<'_RECIPE_';
|
