Changeset 4045 for extensions/Mail_supervisor/include/fonctions.php
- Timestamp:
- Oct 15, 2009, 4:36:45 PM (15 years ago)
- Location:
- extensions/Mail_supervisor
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/Mail_supervisor
-
Property
svn:ignore
set to
_notes
-
Property
svn:ignore
set to
-
extensions/Mail_supervisor/include
-
Property
svn:ignore
set to
_notes
-
Property
svn:ignore
set to
-
extensions/Mail_supervisor/include/fonctions.php
r4041 r4045 181 181 function corrige_header($Carbonne,$headers) 182 182 { 183 global $mails_options,$conf_mail,$mailto; 184 185 $splitter="|".$Carbonne.":(.*)\n|U"; 186 preg_match_all($splitter,$headers, $out,PREG_PATTERN_ORDER); 187 $val=array(); 188 $match=array("<",">"); 189 $string=array("","") ; 190 foreach($out as $messages) 191 { 192 $val[]= $messages[0] ; 193 } 194 195 196 $val[1]= str_replace( $match,$string,$val[0] ) ; 197 $src=$val[0]; 198 199 $splitter="|\"(.*)\"|U"; 200 preg_match_all($splitter,$val[1], $out,PREG_PATTERN_ORDER); 201 $string=array(); 202 $string = array_fill( 0, count($out), ''); 203 $dest = str_replace($out[0], $string, $val[1]) ; 204 if ($mailto <>"" ) { 205 $dest=str_replace($mailto.',', '', $dest) ; 206 $dest=str_replace($mailto, '', $dest) ; 207 208 } 209 210 211 $headers = str_replace( $src,$dest, $headers) ; 183 global $mails_options,$conf_mail,$mailto,$args; 184 $headers = preg_replace('/.*'.$Carbonne.'(.*).\n/i', $Carbonne.' : '.get_strict_email_list(implode(' , ', $args[$Carbonne]))."\n", $headers); 185 212 186 return $headers; 213 187
Note: See TracChangeset
for help on using the changeset viewer.