Changeset 228

Timestamp:

08/27/08 19:53:39 (3 months ago)

Author:

tgenannt

Message:

fixed utf-8 encoding error

Files:

• trunk/system_scripts/autoresponder.pl (modified) (2 diffs)

trunk/system_scripts/autoresponder.pl

@@ -100 +100 @@
 #Now check if autoresponder is enabled
 my $dbh = DBI->connect($dsn, $config{'db_username'}, $config{'db_password'});
-$dbh->do("SET NAMES utf8");
 
 sub check_du_feature($$) {
@@ -216 +215 @@
         my $e_send_to = MIME::Entity->build(
                 Type    => "text/plain",
-                Charset => "UTF-8",
+                Charset => "utf-8",
                 Disposition => 'inline',
                 Data    => $mail_text);
-                        $e_send_to->head->add("User-Agent", 'CPM/Autoresponder');
-                        $e_send_to->head->add("To", $mail_from);
-                        $e_send_to->head->add("X-Loop", "No");
-                        $e_send_to->head->add("X-No-Loop", "Yes");
-                        $e_send_to->head->add("Sender",$sender );
-                        $e_send_to->head->add("From", $sender);
-                        $e_send_to->head->add("Subject", $subject );
-                        $e_send_to->send;
-                        $e_send_to->stringify;
+        $e_send_to->head->add("User-Agent", 'CPM/Autoresponder');
+        $e_send_to->head->add("To", $mail_from);
+        $e_send_to->head->add("X-Loop", "No");
+        $e_send_to->head->add("X-No-Loop", "Yes");
+        $e_send_to->head->add("Sender",$sender );
+        $e_send_to->head->add("From", $sender);
+        $e_send_to->head->add("Subject", $subject );
+        $e_send_to->send;
+        $e_send_to->stringify;
         #OK send autoresponder to email and save email addr in DB
         $sql=sprintf("INSERT INTO autoresponder_send SET email=%s, efromto=%s",