Changeset 2395

Timestamp:

06/25/10 10:38:04 (13 years ago)

Author:

kwon

Message:

• closes #481 : Proc d'import en masse des emails améliorée

Location:

plugins/newsletter/trunk

Files:

• _define.php (modified) (1 diff)
• _install.php (modified) (1 diff)
• _public.php (modified) (1 diff)
• changelog.txt (modified) (1 diff)
• inc/class.newsletter.admin.php (modified) (2 diffs)
• inc/class.newsletter.tools.php (modified) (2 diffs)

plugins/newsletter/trunk/_define.php

@@ -16 +16 @@
      /* Description*/    "Manage your newsletters in Dotclear 2",
      /* Author */        "Benoit de Marne",
-     /* Version */       "3.7.2a002",
+     /* Version */       "3.7.2a009",
      /* Permissions */   "usage,contentadmin",
      /* Priority */      null

plugins/newsletter/trunk/_install.php

@@ -57 +57 @@
           
           // activate plugin
-          $GLOBALS['newsletter_settings']->put('newsletter_flag',false,'boolean','Newsletter plugin enabled');
-
+          $newsletter_flag = (boolean)$GLOBALS['newsletter_settings']->newsletter_flag;
+          //$GLOBALS['newsletter_settings']->put('newsletter_flag',true,'boolean','Newsletter plugin enabled');
+          $GLOBALS['newsletter_settings']->put('newsletter_flag',$newsletter_flag,'boolean','Newsletter plugin enabled');
+          
           // Prise en compte de la nouvelle version
           $core->setVersion('newsletter', $this_version);

plugins/newsletter/trunk/_public.php

@@ -82 +82 @@
                case 'about':
                     $msg = __('About Newsletter ...');
-                    //$msg = __('About'). ' ' . newsletterPlugin::dcName() . ' ...' ;
-                    $msg .= '<br />'. __('Version'). ' : ' . newsletterPlugin::dcVersion();
-                    $msg .= '<br />'. __('Authors'). ' : ' . newsletterPlugin::dcAuthor();
-                    $msg .= '<br />'. __('Description'). ' : ' . newsletterPlugin::dcDesc();
+                    $msg .= '<br />'.__('Version').' : ' . newsletterPlugin::dcVersion();
+                    $msg .= '<br />'.__('Author').' : ' . newsletterPlugin::dcAuthor();
+                    $msg .= '<br />'.__('Description').' : ' . newsletterPlugin::dcDesc();
                     break;
 

plugins/newsletter/trunk/changelog.txt

@@ -2 +2 @@
 * RAF -- mise à niveau de la traduction
 * RAF -- mise à niveau de l'aide en ligne
-* RAF -- Ticket #481 : amélioration de la procédure d'import en masse des emails
 * RAF -- Ticket #452 : suppression des url relatives dans la newsletter
 
 Newsletter 3.7.2 - 2009-06-xx
 ===========================================================
+* Ticket #481 : amélioration de la procédure d'import en masse des emails
 * mise à niveau de la licence de l'extension
-* Ticket #480 : stop import si une adresse est invalide
+* Ticket #480 : continue l'import meme si une adresse est invalide
 * Ticket #382 : avec le mot clé LINK_VISU_ONLINE le lien n'apparait pas si aucun post n'est sélectionné 
 * Suppression du choix du format dans le widget si on utilise le mode par défaut

plugins/newsletter/trunk/inc/class.newsletter.admin.php

@@ -180 +180 @@
                $counter_ignore=0;
                $counter_failed=0;
+               $tab_mail=array();
                
                $newsletter_settings = new newsletterSettings($core);
                $modesend = $newsletter_settings->getSendMode();
                 
-               if (!empty($infile)){
+               if (!empty($infile)){
                     
-                    //$core->error->add('Traitement du fichier ' . $infile['name']);
+               //$core->error->add('Traitement du fichier ' . $infile['name']);
                     files::uploadStatus($infile);
                     $filename = $infile['tmp_name'];
                
                     if(file_exists($filename) && is_readable($filename)) {
-
+                         $file_content = file($filename);
+
+                         foreach($file_content as $ligne) {
+                              $tab_mail=newsletterTools::extractEmailsFromString($ligne);
+                              
+                              foreach($tab_mail as $an_email) {
+                                   $email = trim($an_email);
+                                   if (!text::isEmail($email)) {
+                                        $core->error->add(html::escapeHTML($email).' '.__('is not a valid email address.'));
+                                        $counter_failed++;
+                                   } else {
+                                        $regcode = newsletterTools::regcode();
+                                        try {
+                                        if(newsletterCore::add($email, $blog_id, $regcode, $modesend))
+                                             $counter++;
+                                        else
+                                             $counter_ignore++;
+                                        } catch (Exception $e) { 
+                                              $counter_ignore++;
+                                        } 
+                                   }
+                              }
+                         }
+                         
+                         /*
                          // ouverture du fichier
                          $fh = @fopen($filename, "r");
@@ -220 +245 @@
                          // fermeture du fichier
                          @fclose($fh);
-                         
+                         //*/
+                                                  
                          // message de retour
                          if(0 == $counter || 1 == $counter) {

plugins/newsletter/trunk/inc/class.newsletter.tools.php

@@ -31 +31 @@
 
      /**
-     * génère un code d'enregistrement
+     * génère un code d'enregistrement
      */
      public static function regcode() 
@@ -108 +108 @@
      }
      
+     /**
+      * Extrait les adresses e-mails présentes dans une chaine.
+      * La fonction retourne un tableau des adresses e-mails. Si
+      * des adresses e-mails se trouvent en doublon dans la chaine,
+      * alors la fonction ne gardera dans le tableau qu'un seul exemplaire
+      * des adresses e-mails.
+      *
+      * @author Hugo HAMON <webmaster@apprendre-php.com>
+      * @licence LGPL
+      * @param string $sChaine la chaine contenant les e-mails
+      * @return array $aEmails[0] Tableau dédoublonné des e-mails
+      */  
+     public static function extractEmailsFromString($sChaine) {
+      
+          if(false !== preg_match_all('`\w(?:[-_.]?\w)*@\w(?:[-_.]?\w)*\.(?:[a-z]{2,4})`', $sChaine, $aEmails)) {
+               if(is_array($aEmails[0]) && sizeof($aEmails[0])>0) {
+                    return array_unique($aEmails[0]);
+               }
+          }
+          return null;
+     }    
 
 }