|
...
|
...
|
@@ -139,15 +139,19 @@ foreach my $dest (keys(%{$cfg::config{notification}->{to}})) {
|
|
139
|
139
|
|
|
140
|
140
|
my $data = '';
|
|
141
|
141
|
|
|
142
|
|
- if (substr($cfg::config{notification}->{to}->{$dest}->{intro}, 0, 1) eq "@"
|
|
143
|
|
- and -r $cfg::config{notification}->{intro_default_path} . substr($cfg::config{notification}->{to}->{$dest}->{intro},1) . $cfg::config{notification}->{intro_suffix}) {
|
|
144
|
|
- open INTRO, $cfg::config{notification}->{intro_default_path} . substr($cfg::config{notification}->{to}->{$dest}->{intro},1) . $cfg::config{notification}->{intro_suffix};
|
|
145
|
|
- while (<INTRO>) {
|
|
146
|
|
- if (/^<body /../^<\/body>/) {
|
|
147
|
|
- $data .= $_ unless /^<body / or /^<\/body>/;
|
|
|
142
|
+ if (substr($cfg::config{notification}->{to}->{$dest}->{intro}, 0, 1) eq "@") {
|
|
|
143
|
+ if (-r $cfg::config{notification}->{intro_default_path} . substr($cfg::config{notification}->{to}->{$dest}->{intro},1) . $cfg::config{notification}->{intro_suffix}) {
|
|
|
144
|
+ open INTRO, $cfg::config{notification}->{intro_default_path} . substr($cfg::config{notification}->{to}->{$dest}->{intro},1) . $cfg::config{notification}->{intro_suffix};
|
|
|
145
|
+ while (<INTRO>) {
|
|
|
146
|
+ if (/^<body /../^<\/body>/) {
|
|
|
147
|
+ $data .= $_ unless /^<body / or /^<\/body>/;
|
|
|
148
|
+ }
|
|
148
|
149
|
}
|
|
|
150
|
+ close INTRO;
|
|
|
151
|
+ }
|
|
|
152
|
+ else {
|
|
|
153
|
+ $data .= 'Salut,<br><br>voici les actions de la section pour les prochaines semaines:<br><br>';
|
|
149
|
154
|
}
|
|
150
|
|
- close INTRO;
|
|
151
|
155
|
}
|
|
152
|
156
|
else {
|
|
153
|
157
|
$data .= $cfg::config{notification}->{to}->{$dest}->{intro};
|